Zeitstring 58:00 in ohne Überlauf in DateTime konvertieren

[sakura]

Zitat von messie:

klar, ich hatte aber gehofft daß es vielleicht Aufrufkonventionen für die Standardfunktionen gibt, mit denen man das einstellen kann. In Excel beispielsweise gibt es eine auch Formatierung, die Stunden > 24 zuläßt.

Diese Formatierung musst Du halt selbst machen, aber das ist ja nun nicht schwer, oder

Delphi-Quellcode:

uses
  DateUtils; // oder so ähnlich ;)

function ToHourMinuteString(dt: TDateTime): string;
var
  Hours, Minutes, Dummy: Word;
begin
  DecodeTime(Hours, Minutes, Dummy, Dummy);
  Result := Format('%d:%d', [Trunc(dt) * 24 + Hours, Minutes]);
end;

Es kann sein, dass die Parameter bei DecodeTime jetzt nicht stimmen, aber es gibt ja die Hilfe

......