TDateTime Problem

[Marcel2906]

Hey Leute, ich bins mal wieder.
Ich suche ungefährt so einen code:

Code:

If Abfahrt.Text < Ankunft.text then Abfahrt 1 Tag später

Und dann soll es im Array eingetragen werden...
Also mein 2. Problem wenn ich den Code dann habe, wo genau muss ich den einfügen, hier mein Code:

Code:

procedure TForm1.Add;
   var
   rec_p : PBusEintrag;

   begin
      rec_p := Nil; // Init mit nichts
      new (rec_p);
      if Verspätung.Text = '' then Verspätung.Text:= '0';
      //neuen Eintrag in Array eintragen
      rec_p^.Linie:=Linie.Text;
      rec_p^.Ziel:=Ziel.Text;
      rec_p^.Ankunft:=StrToDateTime(Ankunft.Text);
      rec_p^.Abfahrt:=StrToDateTime(Abfahrt.Text);
      rec_p^.Verspätung:=StrToDateTime(Verspätung.Text);
      SetLength(Liste, (length(Liste)+1));
      Liste[high(Liste)]:= rec_p;
   end;

[DeddyH]

Wie sehen die Texte denn aus?

[Marcel2906]

eingeben wird nur die Uhrzeit, also z.b.:

Ankunft 20:15
Abfahrt 20:30

oder halt was noch nicht funktioniert, da ich nachher die werte sortieren möchte:

Ankunft: 23:45
Abfahrt: 00:10

[Marcel2906]

Hab mir überlegt, das das eingegebene das Aktuelle Datum bekommen soll und falls abfahrt kleiner als ankunft, soll abfahrt das morgige datum bekommen..ich weiß nur nicht wie ich das umsetzen soll

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

[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 ^^