Hallo Pascal,
wer hat dir gesagt, dass du eine Zeitmenge einfach in ein Datum umwandeln kannst?
DateTimeToStr() ist einfach fehl am Platz:
Delphi-Quellcode:
function LongTimeToStr(seconds: Cardinal): string;
var
dt: TDateTime;
days: Integer;
begin
dt := seconds / SecsPerDay;
Result := TimeToStr(dt);
days := Trunc(dt);
case days of
0: Result := TimeToStr(dt);
1: Result := IntToStr(days) + ' Tag ' + TimeToStr(dt);
else Result := IntToStr(days) + ' Tage ' + TimeToStr(dt);
end;
end;
Freundliche Grüße vom marabu