Ich habe den Code mal ein wenig poliert, damit der Compiler ihn übersetzen kann und der Rechner ohne Laufzeitfehler das richtige Ergbnis liefert:
Delphi-Quellcode:
function SecToStr (t: Int64): string;
var
DT : TDateTime;
begin
DT := t / (60 * 60 * 24);
Result := Format('%d Tag(e), %s', [Trunc(DT), FormatDateTime('h "Stunden", n "Minuten und" s "Sekunden"', DT)]);
end;
Gruß Hawkeye