TDateTime geht wieder auf null

hi,

Ich möchteZeiten mit TDate Time zusammenrechnen. Das funktioniert auch sehr gut aber wenn ich über die 24 Stunden hinauskomme geht er ja wieder von vorne los. Kann man sich auch anzeigen lassen das er zum beispiel 2Tage und 13:20:24 Stunden ausgibt???

akari

Hallo

Suchst du FormatDateTime()?

bis bald
akari

Habe hier mal ein Beispiel wie ich das so meine. In Caption soll er mir die Differenzzeit von 24:20Stunden (1Tag und 20 Minuten) angeben. Aber bei 24 Stunden geht er wieder auf null und zeigt mir nur 00:20 Stunden an, anstatt 1Tag und 00:20Stunden.

TDateTime Anf = StrToDateTime("20.07.2005 02:30");
  TDateTime End = StrToDateTime("21.07.2005 02:50");
  TDateTime TimeDif = Anf-End;
  Caption = TimeDif;

akari

Hallo

achso, das meinst du. Dann mußt du noch die Tage extra ausrechnen

TDateTime Anf = StrToDateTime("20.07.2005 02:30");
  TDateTime End = StrToDateTime("21.07.2005 03:20");
  TDateTime TimeDif = End-Anf;
  int Days = int(End) - int(Anf);
  Caption = "Tage : " + IntToStr(Days) + ", Stunden : " + TimeDif.TimeString();

bis bald
akari

Wieso? Er macht genau das, was Du ihm sagst:

TDateTime TimeDif = Anf-End;

Schau dir im Debugger mal den Wert von TimeDif an. Respektive schreib mal den 'rohen' Wert in die Caption: AnsiString(TimeDif.Val).