zahl in Uhrzeit darstellen

[Hawkeye219]

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