Discussion :

[chacarre]

Bonjour,

J'aimerai chronométré le temps passé sur le programme par l'utilisateur dans le but de calculer des quotas (programme de sondage téléphonique).

Pourriez vous m'aider ?

Merci

Charlotte

[ero-sennin]

Salut,

Est ce que l'on doit voir le temps passé qui s'affiche au fur et à mesure ?
J'entends par la : Est ce que le programme doit afficher en temps réel le temps écoulé depuis l'ouverture du programme ?

Une solution simple serait de faire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  Form1: TForm1;
  StartChrono:TDateTime;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // On récupère la date ainsi que l'heure à laquelle l'application s'est lancée
  StartChrono:=Now;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  duree:TDateTime;
begin
  // On récupère la durée écoulée
  duree:=Now-StartChrono;
  // On affiche la durée
  ShowMessage(TimeToStr(duree));
end;

C'est une des façon de faire

A+

[Lung]

Ou sinon, jouer avec GetTickCount.

[defluc]

1. Déclarer les variables TTime

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   InitTime, FinalTime : TTime;

2. Initialiser la variable à l'entrée de l'utilisateur dans le programme

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   InitTime := Now;

3. Calculer le temps passé par l'utilisateur à sa sortie

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   FinalTime := Now - InitTime;

[ero-sennin]

Ou sinon, jouer avec GetTickCount.

Oui, j'y avais pensé mais je n'arrive pas à reformater le résultat pour dire d'avoir la notion hh:mm:ss

[Franck SORIANO]

Attention avec GetTickCount, le compteur s'incrémente à partir du démarrage de la machine. Il arrive donc un moment où le compteur fait un overflow et retourne au début...
Si l'application est utilisée sur un serveur, ça peut arriver.

Sinon pour formater le résultat au format hh:mm:ss, il suffit de faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   debut := GetTickCount;
   ...
   fin := GetTickCount;
   total := (fin - debut) div 1000; // Calcul du temps en secondes.
   temps := Format('%0.2d:%0.2d:%0.2d', [total div 3600, (total mod 3600) div 60, (total mod 3600) mod 60]);

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   debut := GetTickCount;
   ...
   fin := GetTickCount;
   total := (fin - debut) div 1000; // Calcul du temps en secondes.
   temps := TimeToStr( total / (3600 * 24));

[Lung]

Il arrive donc un moment où le compteur fait un overflow et retourne au début...

C'est quoi la limite ?

Si l'application est utilisée sur un serveur, ça peut arriver.

Effectivement.