Discussion :

[KRis]

Bonjour à tous,
j'utilise la fonction SecondsBetween(ANow,AThen:TDateTime):Int64 renvoyant le nombre de secondes entre 2 dates.
elle fonctionne bien, à un détail près, je perds parfois une seconde ?
en effet avec ces 2 dates :
01/08/2007 - 10:50:24
01/08/2007 - 11:06:24
j'obtiens le résultat suivant : 959 secondes
hors le compte réel est de 16 minutes, soit 960 secondes...

Comment se fait il ? est ce normal ??

Merci d'avance

[KRis]

Rebonjour,
pour info j'ai contourné mon problème en utilisant une fonction réécrite de la manière suivante :

function DateTimeDiff(Start, Stop : TDateTime) : int64;
var TimeStamp : TTimeStamp;
begin
TimeStamp := DateTimeToTimeStamp(Stop - Start);
Dec(TimeStamp.Date, TTimeStamp(DateTimeToTimeStamp(0)).Date);
Result := (TimeStamp.Date*24*60*60)+(TimeStamp.Time div 1000);
end;

bizarre bizarre...

[Cl@udius]

Salut

Ou peut-être plus simple ainsi:

Code :

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

1
2
3
4
5
 
function DateTimeDiff(Start, Stop: TDateTime): Int64;
begin
  result := Round(Abs(Start - Stop) * SecsPerDay);
end;

@+ Claudius

[ShaiLeTroll]

SecondsBetween a une Erreur ...

Presque, ... en fait c'est une erreur du TDateTime, le type double étant limité dans sa précision, cela provoque des erreurs,

utilise SecondSpan que tu arrondis via Round ou Ceil ... au lieu de Trunc qui est utilisé dans SecondsBetween

[KRis]

Merci !