Sekunden in Zeit umwandeln

[Daniel B]

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

[sakura]

Oder auch einfach:

Delphi-Quellcode:

function SecondsToTime(wSeconds: Word): TDateTime;
begin
  Result := (1 / 24 / 60 / 60) * wSeconds;
end;

......

[negaH]

oder math. logischer

result := Sekunden / (24 * 60 * 60); Hagen

[edit=Matze][delphi]-Tags hinzugefügt. Mfg, Matze[/edit]
[edit=Matze] Mfg, Matze[/edit]