Rechnen mit Zeiten zur Berechnung von Spesen

[PASST]

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