Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: TimeToStr, mehr als 24 std.

    Delphi
    by Schlingel, 28. Apr 2006
  Habs so gelösst..
  
  
  ////////////////////////////////////////////////////////////////////////////////
  function TimeToStringFormat(DeltaTime: TDateTime; MSecEnabled: Boolean): String;
  var Hour, Min, Sec, MSec: Word;
  begin
  DecodeTime(DeltaTime, Hour, Min, Sec, MSec);
  case MsecEnabled of
  True : Result:= IntToStr(Hour + (Round(Int(DeltaTime+(1/86400))*24))) +...