zahl in Uhrzeit darstellen

[Matze]

@Luckie: Sei doch bitte nicht immer so wortkarg und erläutere doch die wichtigen Dinge. Hier beispielsweise, dass man die Zeit in Millisekunden angeben muss.

Edit: Ging es nicht auch einfach so?

Delphi-Quellcode:

function FormatTime(t: int64): string;
begin
  t := t div 1000; // seconds
  result := IntToStr(t mod 60) + ' Sek ' + result;
  t := t div 60;   // minutes
  result := IntToStr(t mod 60) + ' Min ' + result;
  t := t div 60;   // hours
  result := IntToStr(t mod 24) + ' Std ' + result;
  result := IntToStr(t div 24) + ' T ' + result;
end;