Abfrage: Wenn ein Datum in der Zukunft liegt

[JSB]

Ich habe ein Problem. :cry: Ich möchte eine Abfrage zu einem DateTimePicker machen. Genau: Ich möchte wissen ob das Datum im DateTimePicker noch gegenüber dem Jeztdatum in der Zukunft liegt. Ich habe es so Ausprobiert:

Delphi-Quellcode:

if ddatum.Date > Date then
  if MessageDlg('Achtung! Das Ausgewählte Datum liegt noch in der Zukunft. '+#13+#10+'wählen Sie Ja um das Datum trotzdem zu übernähmen oder '+#13+#10+'Nein um das Datum zu ändern und dann erst die Buchung '+#13+#10+'durchzuführen.', mtWarning, [mbYes,mbNo], 0) = mrNo then

aber irgendwie bekomme ich die Fehlermeldung immer *HILF* :gruebel:

Hat jemand eine :idea: ?

[himitsu]

Zitat:

Zitat von JSB

aber irgendwie bekomme ich die Fehlermeldung immer *HILF* :gruebel:

Welche Meldung?

[edit]
achso, jetzt habsch's b
verstanden :wall:

nimm mal Now, statt Date, oder runde ddatum.Date ab [trunc(ddatum.Date)]

Denn in Date steht wirklich nur das Datum, aber in ddatum.Date ist das Datum und die Uhrzeit drin

Date < (aktuelles Datum) + (die Uhrzeit, welche im DateTimePicker ebenfalls angegeben ist ... bei dir vermutlich die Uhrzeit, als dein DateTimePicker initialisiert wurde)

[JSB]

Diese die erscheinen soll wenn das Datum noch in der Zukunft liegt... :lol:

Delphi-Quellcode:

if MessageDlg('Achtung! Das Ausgewählte Datum liegt noch in der Zukunft. '+#13+#10+'wählen Sie Ja um das Datum trotzdem zu übernähmen oder '+#13+#10+'Nein um das Datum zu ändern und dann erst die Buchung '+#13+#10+'durchzuführen.', mtWarning, [mbYes,mbNo], 0) = mrNo

[alcaeus]

Hi JSB,

ich habs gerade getestet, und festgestellt dass die Meldung auch angezeigt wird, wenn ich das heutige Datum wähle. Das Problem hab ich gelöst, indem ich anstatt

Delphi-Quellcode:

ddatum.Date > Date

folgendes geschrieben habe:

Delphi-Quellcode:

Trunc(ddatum.Date) > Trunc(Date)

.
Wenn ich hingegen den 7.10. ausgewählt habe, so wurde der MessageBox-Aufruf übersprungen. Evtl. hast du einen anderen Fehler.

Greetz
alcaeus

[Stevie]

Müsste auch so funzen:

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then

[SubData]

Also ich würde das einfach so machen...

Code:

if ddate.DateTime > Now then
begin
  // blah
end;

[himitsu]

genau ... aber Date braucht man nicht runden ;)

Begründung ist oben drin ^^

:wall: hatte deinen Kontext kurz nach'm Abschicken dann auch begriffen -.-''

[JSB]

:? Der Sinn der Sache ist der: Ich darf als anwender den DateTimePicker vor dem Heutigem Datum in dem Heutigem Datum und nach dem Heutigem Datum stellen, nur soll ich wenn das Datum noch in der Zukunft liegt gewarnt werden und die Möglichkein haben wieder zurück zu gelangen. Deswegen: Die Meldung soll nur erscheinen wenn das Datum des DateTimePicker's nicht gestern, vorgestern ... (u.s.w in die Vergangenheit) und nicht heute sondern morgen, übermorgen... (u.s.w. in die Zukunft) ist.
Noch eine Frage zum letzten Komentar: Was erreiche ich mit:

Delphi-Quellcode:

Trunc(ddatum.Date) > Trunc(Date)

Was ist da anders??? :?: :?:

[Stevie]

Soll es denn die Möglichkeit geben, ein zukünftiges Datum einzugeben?? Sonst kannst du über die Eigenschaft MaxDate die Datumseingabe eines Datums aus der Zukunft überhaupt nicht zu erlauben!

[alcaeus]

Hi JSB,

das Trunc schneidet die Nachkommastellen ab. Im Anhang mal ein Vergleich. Das Problem ist, dass auch wenn man Date verwendet, immer noch die Nachkommastellen für die Zeit dabei sind.
Nun nochmal eine Frage zum Problem: die MessageBox kommt also auch, wenn das Datum in der Vergangenheit liegt (also 8.10.2003)?

Greetz
alcaeus