1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| procedure TFODP_Occupation.DATE_Change(Sender: TObject);
var
Annee, Mois, Jour, Heure, Minute, Seconde, MSeconde: Word;
DateDebut, DateFin: TDateTime;
Interval: Double;
begin
DecodeDate(DATE_DebutPrevu.Date, Annee, Mois, Jour);
DecodeTime(TIME_DebutPrevu.Time, Heure, Minute, Seconde, MSeconde);
DateDebut := EncodeDateTime(Annee, Mois, Jour, Heure, Minute,
Seconde, MSeconde);
DecodeDate(DATE_FinPrevu.Date, Annee, Mois, Jour);
DecodeTime(TIME_FinPrevu.Time, Heure, Minute, Seconde, MSeconde);
DateFin := EncodeDateTime(Annee, Mois, Jour, Heure, Minute,
Seconde, MSeconde);
Interval := HourSpan(DateDebut, DateFin);
TXT_DureePrevu.FloatValue := Interval;
end; |
Partager