Zeitenberechnungs-Unit, bitte um Tests

[shmia]

Zitat von BingoBongo:

Auch den Gedanken mit der Tagesabtrennung mußte ich verwerfen, da es sich auf dem 'Lohnzettel' seltsam macht, wenn dann steht: Arbeitszeit: 22d 7h 15min.
Deshalb muß alles in Stunden ausgegeben werden, auch wenn es von der Menge her mehrere Tage sind.

Auch das ist kein Problem:

Delphi-Quellcode:

function TimeSpanToStr(timespan:TDateTime);
var
   Hour, Min, Sec, MSec: Word
begin
   DecodeTime(timespan, Hour, Min, Sec, MSec);
   
   // jetzt noch die vollen Tage draufaddieren
   Hour := Hour + Int(timespan)*24.0;
   result := Format('%.2d:%.2d:%.2d', [Hour, Min, Sec]);
end;