Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#7

Re: Zeitstring 58:00 in ohne Überlauf in DateTime konvertie

  Alt 1. Aug 2006, 17:17
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

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat