Discussion :

[ILP]

Bonjour,
J'ai à effectuer le calcul du nombre d'heure entre deux dates. Sur une fiche j'ai donc quatre TDateTimePicker (deux pour les dates et deux pour les heures.
Dans le OnChange de ces composants j'ai mis ce code :

Code Pascal :

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
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;

Le problème c'est que la valeur retournée dans la variable Interval n'est pas toujours celle que j'attend.
Par exemple, si je mets l'heure de début à 12:00 et celle de fin à 13:00, je récupère une valeur d'interval de 0,99999999994 au lieu de 1.
Quelqu'un aurait une idée d'une solution ?

[BuzzLeclaire]

@Salut,

As-tu essayé HoursBetween

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 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);

simplifiable en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DateDebut := Int(DATE_DebutPrevu.Date) + Frac(TIME_DebutPrevu.Time);
DateFin := Int(DATE_FinPrevu.Date) + Frac(TIME_FinPrevu.Time);

Int et Frac pour la parano, mais normalement Date et Time ne sont pas sensés être parasité, quoi qu'il est possible que cela contiennent pour Time au moins la date du jour !

Pour tout ce qui calcul sur Float, il faut utiliser les fonctions gérant un Epsilon comme IsZero ou SameValue de l'unité Math

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if SameValue(0,99999999994, 1, EncodeTime(0,0,0,1)) then
  ...

EncodeTime(0,0,0,1) = 1 / 24 / 60 / 60 / 1000 =~ 0,0000000157

[ILP]

Je pense avoir trouvé une solution en fouillant un peut dans l'unité Math.
J'utilise les fonctions SetRoundMode et SetPrecisionMode.
C'est peut être pas la meilleur des solutions, mais elle a l'air de marcher

Code Pascal :

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
procedure TFODP_Occupation.DATE_Change(Sender: TObject);
var
  SavedRoundMode:     TFPURoundingMode;
  SavedPrecisionMode: TFPUPrecisionMode;
  DateDebut, DateFin: TDateTime;
  Interval:           Double;
begin
  SavedRoundMode     := GetRoundMode();
  SetRoundMode(rmNearest);
  SavedPrecisionMode := GetPrecisionMode();
  SetPrecisionMode(pmDouble);
 
  DateDebut := DATE_DebutPrevu.Date + TIME_DebutPrevu.Time;
  DateFin   := DATE_FinPrevu.Date + TIME_FinPrevu.Time;
  Interval  := HourSpan(DateDebut, DateFin);
 
  TXT_DureePrevu.FloatValue := RoundTo(Interval, -6);
 
  SetRoundMode(SavedRoundMode);
  SetPrecisionMode(SavedPrecisionMode);
end;

[Rayek]

C'est peut être pas la meilleur des solutions, mais elle a l'air de marcher

Oui, surtout que dans l'unité DateUtils il y a tout ce qu'il faut pour faire mumuse avec les dates et comme l'avait précisé plus haut BuzzLeclair, il y a la fonction HoursBetween

[ILP]

Oui, surtout que dans l'unité DateUtils il y a tout ce qu'il faut pour faire mumuse avec les dates et comme l'avait précisé plus haut BuzzLeclair, il y a la fonction HoursBetween

Bah, la fonction HoursBetween ne retourne qu'un entier et moi je voulais aussi avoir les fractions d'heures, par exemple s'il n'y a qu'une demie heure entre deux valeurs. C'est pour ça que la fonction HourSpan m'intéressait.

[Kaféine]

HourSpan renvois un double
oups javais pas tout lu