TDateTime Problem

[Marcel2906]

Zitat von himitsu:

Zitat von Marcel2906:

ich weiß nur nicht wie ich das umsetzen soll

Überleg mal etwas.


Du willst ein Datum vergleichen, also wandle es in ein vergleichbares Format um und vergleiche es.
TTime oder TDateTime?

(wobei man witziger Weise auch direkt den String vergleichen kann, wenn dieses genau einem gewissen Vormat entspricht ... führende Nullen und genau "hh:mm" oder "hhmm" oder so ähnlich ... denn ein String wird Zeichen für Zeichen von vorhne nach hinten verglichen, was so "zufällig" den Wertigkeiten der Dezimalstellen entspricht)

Also ich benutze TDateTime. Mein Problem ist, wie bekommt der eingebene Text in Form von hh:mm das heutige datum zugewiesen + die angegebene uhrzeit?

[DeddyH]

Trunc(now) + Frac(Deine Zeit)

[himitsu]

Zitat von Marcel2906:

Mein Problem ist, wie bekommt der eingebene Text in Form von hh:mm das heutige datum zugewiesen + die angegebene uhrzeit?

Mal überlegen

Man wandle en String in die Uhrzeit und besorge sich das aktuelle Datum.

StrToTime(...) + Trunc(Now) ?

[Marcel2906]

Nun werden meine Werte mit Datum in das Array eingetragen. Aber wenn ich Abfahrt - Ankunft rechne klappt es immer noch nicht. Bin mir ziemlich sicher, dass dort ein Minus Wert herauskommt, ich weiß aber nicht warum.

Zum Aufbau: Eingegeben wird Ankunftszeit, Abfahrtszeit und Verspätung. Falls die Pause zwischen Ankunft und Abfahrt kleiner ist als die Verspätung, wird die normale Abfahrtszeit ausgegeben. Andernfalls soll die Ankunftszeit + Verspätung ausgegeben werden.

Code:

     //Liste ausgeben
      StelleEintrag:=0;
         //Wenn Verspätung größer als Pause zwischen Ankunft und Abfahrt, Abfahrt verändern
         if Liste[StelleEintrag].Abfahrt-Liste[StelleEintrag].Ankunft<Liste[StelleEintrag].Verspätung then begin
            while ((StelleEintrag < length(Liste)) and (StelleEintrag<LängeListe)) do begin
               ListBox1.Items.Strings[StelleEintrag]:=
               '  '+Liste[StelleEintrag].Linie+ Tab +
               Liste[StelleEintrag].Ziel+Tab+
               (DateTimeToStr(Liste[StelleEintrag].Ankunft+Liste[StelleEintrag].Verspätung))+' Uhr'+Tab+
               TimeToStr(Liste[StelleEintrag].Verspätung)+Tab+'h';
               StelleEintrag:=StelleEintrag+1;
            end;
         end else
            //Wenn Verspätung kleiner als Pause zwischen Ankunft und Abfahrt, Abfahrt nicht verändern
            while ((StelleEintrag < length(Liste)) and (StelleEintrag<LängeListe)) do begin
               ListBox1.Items.Strings[StelleEintrag]:=
               '  '+Liste[StelleEintrag].Linie+ Tab +
               Liste[StelleEintrag].Ziel+Tab+
               DateTimeToStr(Liste[StelleEintrag].Abfahrt)+' Uhr'+Tab+
               TimeToStr(Liste[StelleEintrag].Verspätung)+Tab+'h';
               StelleEintrag:=StelleEintrag+1;
            end;

Funktioniert alles super, außer wenn die Ankunftszeit z.b. 25.08.2011 um 23:45 Uhr und Abfahrtszeit 26.08.2011 00:10 Uhr ist

[Marcel2906]

könnte es daran liegen, dass ich TDateTime mit TTime vergleiche??
da Ankunft und Abfahrt DateTime sind und Verspätung Time.
Aber wie kann ich DateTime in Time umwandeln.
Hab schon DateTimetoTime erfolglos versucht ^^

[DeddyH]

TDate, TTime, TDateTime sind alle vom Typ double und geben die Differenz in Tagen zum 30.12.1899 00:00:00 an, wenn ich mich nicht irre. TDate verwendet man dann, wenn man den Nachkommaanteil vernachlässigen will, bei TTime ist es der Vorkommaanteil. Dies ist bei Dir ja nicht der Fall, Du solltest daher durchgängig TDateTime nehmen.

[Marcel2906]

Nun funktioniert es wenn Ankunft 23:45 und Abfahrt 00:10 und Verspätung keine ist.
Dann gibt er mir Abfahrt 00:10 raus wie es soll.
Wenn ich aber 23:45 und 00:10 nehme und eine Verspätung von 30min nehme, gibt er mir 00:10 raus und nicht 00:15

Dieser Teil dürfte nicht mehr funktionieren, da Verspätung jetzt DateTime ist:

Code:

(DateTimeToStr(Liste[StelleEintrag].Ankunft+Liste[StelleEintrag].Verspätung))

er versucht jetzt 1.1.2000, 23:45 + 1.1.2000, 00:30

aber ich will ja die Minuten drauf rechnen

[Marcel2906]

ich habs gelöst )

Code:

(DateTimeToStr(Liste[StelleEintrag].Ankunft+ Frac(Liste[StelleEintrag].Verspätung)))+