Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

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

Re: Zeitsummen > 24h als string formatieren

  Alt 6. Jul 2005, 20:43
Ich meine er will eher, dass 1 Tag, 2 Stunden, 3 Minuten zu 26:03 wird, oder?

Delphi-Quellcode:
function DateTime2HoursAndMins (DT : TDateTime) : string ;
var
 h, n, s, ms : word ;
begin
     decodetime (DT,h,n,s,ms) ;
     h := trunc (h + 24*trunc(DT)) ;
     Result := format ('%d.2',[h]) + ':' + format ('%d.2',[n]) ;
end ;
  Mit Zitat antworten Zitat