Einzelnen Beitrag anzeigen

Benutzerbild von negaH
negaH

Registriert seit: 25. Jun 2003
Ort: Thüringen
2.950 Beiträge
 
#9

Re: MinutesBetween - Wie Ungenauigkeit verhindern?

  Alt 16. Nov 2006, 22:35
MyMinutesBetween := Trunc (0.5 + (aDate - anotherDate)*1440); Hm ich würde es so machen

Delphi-Quellcode:

MyMinutesBetween as Int64 := Round(aDate * 1440) - Round(anotherDate * 1440);
Das dürfte die entstehende "Ungenauigkeit" der Subtrakton beider TDateTime=Double eliminieren und zusätzlich noch durch Round() auf beiden Seiten Rundungsfehlern entgegenwirken.

Gruß Hagen
  Mit Zitat antworten Zitat