Discussion :

[Thierry65]

Bonjour,

Je travaille sous Lazarus 1.6, et je teste les fonctions de gestion des dates des heures en créant un programme qui calcule des durées. En faisant quelques essais, je tombe sur une petite erreur que je n'arrive pas à corriger.

Ce n'est pas bien grave, mais c'est par curiosité :

Je pose une date/heure, Date1, à laquelle j'ajoute quelques minutes (5 par exemple) pour obtenir une seconde date, Date2. Ensuite j'utilise la fonction MinutesBetween pour récupérer la durée entre les 2 dates et ça me renvoie 4 au lieu de 5. Si j'utilise la fonction MinuteSpan, j'ai effectivement une valeur proche de 5 (4.9999999953433871), mais qui n'est pas 5.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program Test;
uses
  sysUtils, DateUtils;
var
  Date1, Date2: TDateTime;
begin
  Date1:=now();
  Date2:=IncMinute(Date1, 5);
  writeln(MinutesBetween(Date1, Date2));
  writeln(MinuteSpan(Date1, Date2));
  readln();
end.

Est-il possible de corriger cette légère approximation ? A quoi est-elle due ?

Merci de vos éclairages.

[gvasseur58]

Bonjour,

Si j'utilise la fonction MinuteSpan, j'ai effectivement une valeur proche de 5 (4.9999999953433871), mais qui n'est pas 5.

Pour ce qui est du résultat avec MinuteSpan, j'attribuerais volontiers l'erreur à une difficulté à représenter des nombres entiers avec des flottants. C'est un problème récurrent d'arrondi qui fait qu'on obtient parfois (dans tous les langages de programmation) des résultats étranges dès qu'on approche certaines valeurs. MinuteSpan renvoie le nombre de minutes entre deux temps, y compris une éventuelle part fractionnelle. Le plus simple dans ces cas où les valeurs approchent la valeur entière escomptée est d'utiliser la fonction Round.
On en revient d'ailleurs à la difficulté rencontrée avec MinutesBetween qui renvoie le nombre de minutes entières séparant deux dates : or, 4.9999999953433871 a pour partie entière 4 !