Also Luckie, von deiner langen Funktion bin ich jetzt etwas überrascht... Ich würd das in einen 2-Zeiler packen
Delphi-Quellcode:
function SecToStr (t : int64) : string ;
var
DT : TDateTime ;
begin
DT := t / 60 / 60 / 24 ;
Result := format ('%s Tage, %s',[Trunc(TD),formatdatetime ('h Stunden, n Minuten und s Sekunden',DT)]) ;
end ;