Différences entre deux TDateTime ?

Version imprimable

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:

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

05/03/2008, 10h58
Aka Guymelef
Essaye ça :
Code:

1 2 Debut := Trunc( DateTimePicker1.Date ) + Frac( DateTimePicker2.Time ); Fin := Trunc( DateTimePicker3.Date ) + Frac( DateTimePicker4.Time );
Explication dans un DateTime, la date est encodée dans la partie entière du nombre réel et l'heure dans la partie décimale (donc après la virgule).
05/03/2008, 11h02
rsc
Pour le nombre de jours ça ne peut pas marcher : DecodeDate te renvoie le quantième de la date représentée par ton nombre, étant entendu que 0 correspond au 30/12/1899 !
J'utiliserais un calcul du genre :
Code:

1 2 3 J := Trunc (Duree); H := Trunc ((Duree - J) * 24); MN := Trunc (((Duree - J) * 24 - H) * 60);

Salut,

Avec vos deux réponses mixées, tout marche parfaitement !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button1Click(Sender: TObject);
var
     Debut     : TDateTime;
     Fin       : TDateTime;
     Duree     : TDateTime;
     J,H,M     : Word;
begin
     Debut := Trunc(DateTimePicker1.Date) + Frac(DateTimePicker2.Time);
     Fin := Trunc(DateTimePicker3.Date) + Frac(DateTimePicker4.Time);
     Duree := Fin - Debut;
     J := Trunc(Duree);
     H := Trunc((Duree-J)*24);
     M := Trunc(((Duree-J)*24-H)*60);
     Edit1.Text := IntToStr(J) + ' jour(s) - ' + IntToStr(H) + 'h' + IntToStr(M);
end;

Merci,
ZiP

05/03/2008, 11h37
Rayek

Ne serait il pas mieux d'utiliser MinutesBetween qui se trouve dans l'unité DateUtils puis de faire le calcul d'affichage après ?