Delphi-Quellcode:
function FormatTime(t: int64): string; { (gettime by Assarbad) }
begin
result := IntToStr(t mod 1000);
case t mod 1000 < 100 of
true: result := {'0' +} result;
end;
t := t div 1000; // -> seconds
{result := IntToStr(t mod 60) + ' Sekunden ' + result;
case t mod 60 < 10 of
true: result := '0' + result;
end;}
t := t div 60; //minutes
result := IntToStr(t mod 60) + ' Min ' + result;
case t mod 60 < 10 of
true: result := '0' + result;
end;
t := t div 60; //hours
result := IntToStr(t mod 24) + ' Std ' + result;
case t mod 60 < 10 of
true: result := '0' + result;
end;
result := IntToStr(t div 24) + ' T ' + result;
end;
Mögest mir den auch kruz erklären?