TimeToStr, mehr als 24 std.

[Schlingel]

Habs so gelösst..

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
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))) + DateTimeToStringFormat(DeltaTime, ':nn:ss,zzz');
else
         Result:= IntToStr(Hour + (Round(Int(DeltaTime+(1/86400))*24))) + DateTimeToStringFormat(DeltaTime, ':nn:ss');
end;end;
////////////////////////////////////////////////////////////////////////////////
function DateTimeToStringFormat(DateTime: TDateTime; Format: String): String;
var tmp: String;
begin
  DateTimeToString(tmp, Format, DateTime);
  Result:= tmp;
end;
////////////////////////////////////////////////////////////////////////////////

Aufruf Bsp:

Delphi-Quellcode:

TimeToStringFormat(10.0, True) = '240:00:00,000';
TimeToStringFormat(10.0, False) = '240:00:00;

Grüsse
Schlingel

[edit=Sharky] Ich habe die /// gekürzt um eine einen Scrollbalken zu vermeiden. Mfg, Sharky[/edit]