TDateTime geht wieder auf null

Reply to TDateTime geht wieder auf null on Mon, 25 Jul 2005 11:54:41 GMT

keineahnung2005 — Mon, 25 Jul 2005 11:54:41 GMT

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???

Reply to TDateTime geht wieder auf null on Mon, 25 Jul 2005 12:00:36 GMT

akari — Mon, 25 Jul 2005 12:00:36 GMT

Hallo

Suchst du FormatDateTime()?

bis bald
akari

Reply to TDateTime geht wieder auf null on Mon, 25 Jul 2005 12:25:19 GMT

keineahnung2005 — Mon, 25 Jul 2005 12:25:19 GMT

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;

Reply to TDateTime geht wieder auf null on Mon, 25 Jul 2005 12:33:11 GMT

akari — Mon, 25 Jul 2005 12:33:11 GMT

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

Reply to TDateTime geht wieder auf null on Mon, 25 Jul 2005 12:35:32 GMT

[[global:guest]] — Mon, 25 Jul 2005 12:35:32 GMT

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).