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?

Hallo,

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


Heiko

Nein, tut er nicht.

markieren

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.

Hallo,

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

werd noch ein paar andere Werte testen.

Gruß

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ä...

mh,

müsste lauten:

markieren

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ß

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.

Wieso nicht einfach

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

MyMinutesBetween := Trunc (0.5 + (aDate - anotherDate)*1440); Hm ich würde es so machen

markieren

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

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