MinutesBetween - Wie Ungenauigkeit verhindern?

[Daniel G]

N'Abend

Wenn ich mithilfe der Funktion MinutesBetween die Differenz zweier Zeiten ermittel will, stoße ich auf folgendes Problem:

12:10:10 => 14:10:10 = 120 Min. Differenz
12:20:20 => 14:20:20 = 119 Min. Differenz

Gibt es eine elegante Lösung für dieses Problem?

[hoika]

Hallo,

zeig mal den Code.
Du machst da was verkehrt.
Wahrscheinlich dort noch Millisekunden irgendwo drin.


Heiko

[3_of_8]

Nein, tut er nicht.

Delphi-Quellcode:

showmessage(inttostr(MinutesBetween(EncodeTime(12,10,10,0),EncodeTime(14,10,20,0))));
showmessage(inttostr(MinutesBetween(EncodeTime(12,20,10,0),EncodeTime(14,20,20,0))));

Ergebnis:
1. Messagebox: 120
2. Messagebox: 119

Ich denke mal, das ist das typische Problem der Ungenauigkeit mit Floats.

[verwirrt]

Hallo,

unter Delphi 6 mit Update 2 bekomme ich da jeweils 120,

werd noch ein paar andere Werte testen.

Gruß

[Daniel G]

Zitat von hoika:

Du machst da was verkehrt.

Wie 0815 schon gesagt hat, das tu' ich nicht. Zumindest wüsste ich das nicht.

MinutesEdit.Text := IntToStr(MinutesBetween(StrToTime(TimeFromMskEdt.Text),StrToTime(TimeToMskEdt.Text))); Ich denke mal, das hängt damit zusammen, dass TDateTime intern ein Double - Wert ist. Ich wollte halt nur wissen, ob's zum Kompensieren dieses Problems schon eine Funktion gibt oder nicht.

//Edit:
@verwirrt: Ähä...

[verwirrt]

mh,

müsste lauten:

Delphi-Quellcode:

showmessage(inttostr(MinutesBetween(EncodeTime(12,10,10,0),EncodeTime(14,10,10,0))));
showmessage(inttostr(MinutesBetween(EncodeTime(12,20,10,0),EncodeTime(14,20,10,0))));

3_of_8 hat in der zweiten Zeile

... EncodeTime(12,20,10,0),EncodeTime(14,20,20,0)))); ...

was natürlich mit 10 Sekunden über den 120 Minuten klare 120 ergab.

Fazit: ich kann das mit den 119 jetzt nachvollziehen.

Edit: Möglicher Workaround: nimm MilliSecondsBetween oder SecondsBetween und runde...

Gruß

[3_of_8]

Hoppala, hab ich mich vertippt. Getestet hab ichs aber richtig, nur hier wohl falsch abgeschrieben.

TDateTime ist übrigens deklariert als ein type Double, hat also die gleichen Eigenschaften wie ein Double.

[alzaimar]

Wieso nicht einfach

  MyMinutesBetween := Trunc (0.5 + (aDate - anotherDate)*1440);

[negaH]

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

[Daniel G]

Danke für die Tipps. Was wäre ich bloß ohne euch.