Bonjour,

J'utilise quatre TDateTimePicker qui marchent par couple Date et Time.

Je cherche donc à encoder ces deux couples en TDateTime puis à en faire la différence pour l'afficher en jour(s), heure(s) et minute(s).

Voici mon bout de code actuel :
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
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject);
var
     Debut     : TDateTime;
     Fin       : TDateTime;
     Duree     : TDateTime;
     J,Mo,A    : Word;
     H,Mi,S,MS : Word;
begin
     Debut := DateTimePicker1.Date + DateTimePicker2.Time;
     Fin := DateTimePicker3.Date + DateTimePicker4.Time;
     Duree := Fin - Debut;
     DecodeDate(Duree,A,Mo,J);
     DecodeTime(Duree,H,Mi,S,MS);
     Edit1.Text := IntToStr(J) + ' - ' + IntToStr(Mo) + ' - ' + IntToStr(A) + ' - ' + IntToStr(H) + 'h' + IntToStr(Mi);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     DateTimePicker3.Date := Date;
     DateTimePicker4.Time := Time;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
     DateTimePicker1.Date := Date;
     DateTimePicker2.Time := Time;
end;
Mon code ne semble pas donner les résultats attendus

Merci pour votre aide,
ZiP