result := SimpleRoundTo((DT2 - DT1)*HoursPerDay, -2);
Danke Uwe, das funktioniert jetzt wunderbar.
HourSpan + RountTo oder HourSpan + RountTo+FloatToStr oder Format oder FormatFloat oder ...
Ein kleines
-
dokumentiert den Code nicht so schön wie z.B. HourSpan.
machte das aufaddieren von Arbeitszeiten beim erstellen von Arbeitsplänen
Ein schweizer Uhrenhersteller wollte mal, gegen Ende des letzten Jahrtausends, 'ne Uhr(zeit) mit 10 Stunden á 100 Minuten pro Tag einführen ... schade daß sich das nicht durchsetzte.