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 :
Mon code ne semble pas donner les résultats attendus
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;
Merci pour votre aide,
ZiP
Partager