interval entre deux temps Résolu

Question

slllt j un prb qui peux m'aidè :

je veux connaitre la diffirence entre deux temps avec(timer)"formatdatetime" mais ca m'affiche un résultat 00:00:00  :(

voici le prg:
---------------
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=label1.Caption;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text:=label1.Caption;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
t1,t2:tdatetime;
begin
edit3.Text:=formatdatetime('hh:mm:ss',t2-t1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
t1,t2:tdatetime;
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
end;

end.

korgis · Accepted Answer

Salut,

Tu oublies d'affecter une valeur aux variables t1 et t2.

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=label1.Caption;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit2.Text:=label1.Caption; 
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  t1,t2: TTime;
begin
  t1 := StrToTime(Edit1.Text);
  t2 := StrToTime(Edit2.Text);
edit3.Text:=formatdatetime('hh:mm:ss',t2-t1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
//var
//t1,t2:tdatetime;
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
end;

korgis · Answer

Je te donne LA SOLUTION là, au-dessus.
Pas la peine d'aller chercher ailleurs... 
http://codes-sources.commentcamarche.net/forum/affich-10023754-calcul-d-un-temp-pour-chronometrage

Interval entre deux temps

2 réponses

Votre réponse

Discussions similaires