Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Sekunden umrechnen in Uhrzeit

  Alt 28. Jun 2004, 09:51
Hallo,

probiers ma hiermit:
Delphi-Quellcode:
function SecToClock (sec : integer) : string ;
var
 DT : TDatetime ;
begin
     DT := Sec/60/60/24 ;
     Result := format ('%d:%s',[trunc(DT),formatDatetime('hh:nn:ss',DT)]) ;
end ;
Vorsicht, ist aber nicht getestet...

Gruß,
Tom
  Mit Zitat antworten Zitat