Rechnen mit Zeiten zur Berechnung von Spesen

[PASST]

Ich werde, wie empfohlen, in Minuten umrechnen.
Ich verwende bei der Eingabe des von- und bis-Zeitpunktes je zwei DateTimePicker für Datum und Uhrzeit. Als Testdaten habe ich für von und bis den selben Zeitpunkt 1.1.2008 00:00 gewählt. Je nach Variante wie ich die Differenz errechne, wird mir ein anderes Ergebnis angezeigt:

Delphi-Quellcode:

Variante 1:
IntToStr(Round( (Trunc(vonD.Date) + Frac(vonZ.Time)) *1400) <- sollte natürlich 1440 heißen
       - Round( (Trunc(bisD.Date) + Frac(bisZ.Time)) *1440))
-> Ergebnis -1577920
Variante 2:
IntToStr(Round( Trunc(vonD.Date) *1440 + Frac(vonZ.Time) *1400) <- hier auch
       - Round( Trunc(bisD.Date) *1440 + Frac(bisZ.Time) *1440))
-> Ergbenis 0

Kann mir das jemand erklären. Ich wende doch nur das Kommutativgesetz an. Wo ist mein Denkfehler?

gruß
Peter

[PASST]

M...! Tippfehler! Natürlich muss ich überall mit dem Faktor 1440 und nicht 1400 rechnen. Das war der Fehler!

Außerdem wende ich nicht zu 100% das Kommutativgesetz an, da ich dazwischen noch eine Rundung durchführe.

[bluesbear]

Ein Vorschlag:

Delphi-Quellcode:

function DateTimeToMinutes(const aDT : TDateTime) : Integer;
begin
  Result := Round(aDT * 1440 * 60);
  Result := Result div 60;
end;

function MinutesToDateTime(const aMinutes : Integer) : TDateTime;
begin
  Result := aMinutes / 1440;
end;

// Zeitdifferenz in Minuten ginge dann so:
Diff := DateTimeToMinutes((bisD.Date + bisZ.Time) - (vonD.Date + vonZ.Time));

[PASST]

Gute Idee, das Umrechnen in Sekunden beugt sicherlich Rundungsfehler vor.

Zitat:

// Zeitdifferenz in Minuten ginge dann so:
Diff := DateTimeToMinutes((bisD.Date + bisZ.Time) - (vonD.Date + vonZ.Time));

Hier musst du allerdings beachten, dass die DatePicker bisD und bisZ so eingestellt sind, dass bei bisD der Zeitwert auf 00:00h gesetzt ist und für bisZ der Datumswert auf 30.12.1899 oder halt mit Frac und Trunc arbeiten. Analog für vonD und vonZ.

[bluesbear]

Ich dachte, der DatePicker liefert bei .Date wirklich nur den Datumsanteil, und bei .Time nur die Nachkommastellen?

[PASST]

Nein, leider nicht. Immer beides, allerdings kann man nur den Teil verändern, den man mit der Kind-Eigenschaft eingestellt hat.

[bluesbear]

Na das ist ja ein doofes Teil. Jetzt verstehe ich auch, warum Du eine andere Komponente suchst. :) Vielleicht ist ja in der JVCL was dabei? Ich bin leider noch nicht dazu gekommen, mich näher damit zu beschäftigen.

[mkinzler]

Man kann das aber umgehen, wenn man Trunc()/Frac() verwendet.

[PASST]

Na, genau das mache ich auch. Ich hatte aber gehofft, es vermeiden zu können.