Hallo,
hiermit kann man Sekunden in eine Uhrzeit umwandeln.
Delphi-Quellcode:
function SecondsToTime(wSeconds: Word): TDateTime;
var
wHours, wMin: Word;
begin
wHours := Trunc(wSeconds div 3600);
wSeconds := wSeconds - (3600 * Trunc(wSeconds div 3600));
wMin := Trunc(wSeconds div 60);
wSeconds := wSeconds - (60 * Trunc(wSeconds div 60));
Result := EncodeTime(wHours, wMin, wSeconds, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TimeToStr(SecondsToTime(123))); //Hier also die Sekunden angeben
end;
Grüsse, Daniel
