Hallo allerseits,

ich möchte eine Anwendung zur Berechnung von Spesen schreiben. Somit muss ich mit Zeiten rechnen und dabei mit einer Genauigkeit auf Minuten.

Ich habe jetzt in Delphi mit Zeiten experimentiert und bin dabei auf Probleme durch Rundungen gestoßen. Dabei war die Differenz z.B. von (16:17 - 16:16) = (16:17 - 16:15). Ok, das liegt sicherlich an meiner Funktion, die naiv außer Acht läßt, dass ein Tag nicht 1000 Minuten sondern 1440 Minuten hat.

Nun habe ich dieses und andere Foren durchforstet und den Tipp gefunden die TDateTime-Werte mit dem Faktor 1440 = 24*60 in Integer-Werte umzurechnen. Bevor ich jetzt per Zufall auf irgendwelche Probleme stoße, vorab die Frage: Kann es hierbei auch Rundungsprobleme geben?

Gruß
Peter

hallo,

schau mal hier Zeitdifferenzen

Hm, der Link sagt allerdings nichts über eventuelle Rundungsprobleme beim Rechnen in Minuten. Oder habe ich da etwas nicht richtig verstanden?

bei dieser

markieren

Delphi-Quellcode:

If YearsBetween(Zeit1, Zeit2) <> 0 Then
  S := IntToStr(YearsBetween(Zeit1, Zeit2)) + ' Jahre' 
Else If MonthsBetween(Zeit1, Zeit2) <> 0 Then
  S := IntToStr(MonthsBetween(Zeit1, Zeit2)) + ' Monate' 
Else If WeeksBetween(Zeit1, Zeit2) <> 0 Then
  S := IntToStr(WeeksBetween(Zeit1, Zeit2)) + ' Wochen ' + IntToStr(Round(Abs(Zeit) - WeeksBetween(Zeit1, Zeit2) * 7)) + ' Tage' 
Else If DaysBetween(Zeit1, Zeit2) <> 0 Then
  S := IntToStr(DaysBetween(Zeit1, Zeit2)) + ' Tage ' + TimeToStr(Abs(Zeit) - DaysBetween(Zeit1, Zeit2))
Else
  S := TimeToStr(Abs(Zeit1 - Zeit2));

Variante passieren keine Rundungsfehler.

Du willst es minutengenau haben?
Dann wirst du auch keine Rundungfehler bekommen.
TDateTime ist millisekundengenau.

Du solltest nicht auf eigene Faust rechnen, sondern die bereitgestellten Funktionen nutzen.

Öffne mal die Hilfe.
Tipp bei der Index-Suche z.B. Now ein.
Klicke auf den Beitrag zu der Now-Funktion.

Bei der Erklärung zur Now-Funktion z.B. steht da jetzt Kategorie und darunter ein Link "Datum und Uhrzeit".

Klicke auf den Link un du erhälst jede Menge Datums/Zeit Funktionen/Prozeduren.
Mit diesen solltest du alles was du magst berechnen können.

Hm, ich habe da noch einen Fehler. Aber das liegt wohl eher daran, wie ich Datum und Uhrzeit zusammenbastele.Ergebnis := MinutesBetween(Trunc(dt1.Date) + Frac(dt3.Time), Trunc(dt2.Date) + Frac(dt4.Time)) Ich habe für Start und Ende vier TDateTimePicker verwendet, um Datum und Uhrzeit getrennt abzubilden. Das Ergebnis ist für:
'20.12.2007 16:17 und 20.12.2007 16:16' -> 1
'20.12.2007 16:17 und 20.12.2007 16:15' -> 1

Da kann doch irgendwas nicht stimmen. Genau das sind die Rundungsprobleme, die ich fürchte.

Hat jemand eine Idee?

Gruß
Peter

Das liegt vielleicht daran, dass TDateTime nichts anderes als eine Realzahl ist.

Vielleicht funktioniert es so

Ergebnis := MinutesBetween(Trunc(dt1.Date) + Frac(dt3.Time) + 1 / SecsPerDay, Trunc(dt2.Date) + Frac(dt4.Time) - 1 / SecsPerDay) Also bei der weiter in der Zukunft liegenden Zeit vorsichtshalber eine Sekunde dazu und bei der anderen eine Sekunde abziehen


MfG

Klaus

Danke, soweit klappt das schon mal.
Ich kann mir dieses seltsame Verhalten nur so erklären, dass Delphi automatisch zu der Uhrzeit, die ich in Minuten angebe, zufällig Millisekunden hinzuaddiert. Könnte das hinkommen?

So ungefähr. Eine Sekunde ist ja ein 86400stel, und dafür gibt es in einem TDateTime (Double) nicht immer eine exakte binäre Entsprechung. Da treten in der Praxis dann schon Probleme auf, z.B. bei if t1 = t2 then ... der Vergleich kann False ergeben, selbst wenn beide (Uhr)Zeiten auf die Sekunde gleich sind.

Ich fand die Idee mit dem Multiplizieren gar nicht so schlecht.

markieren

Delphi-Quellcode:

ZeitInMinuten1 := trunc(zeit1 * 1440);
ZeitInMinuten2 := trunc(zeit2 * 1440);
Differenz := ZeitInMinuten2 - ZeitInMinuten1;