Abfrage: Wenn ein Datum in der Zukunft liegt

[himitsu]

Also, erstmal ist

Delphi-Quellcode:

Trunc(ddatum.Date) > Trunc(Date)

//und

Trunc(ddatum.Date) > Date

das selbe, da Date wirklich nur das Datum liefert, aber

DateTimePicker1.DateTime, DateTimePicker1.Date und DateTimePicker1.Time liefern alle das Selber, und zwar die komplette Zeit (Datum+Uhrzeit)

und durch Trunc wird halt der Uhrzeit-Anteil abgeschnitten.

Aufbau von TDate, TTime und TDateTime siehe TDateTime

[JSB]

Nein, nur in der Zukunft kommt die MessageBox. Heute und gestern nicht...
aber hab problem gelößt, danke!!!

[JSB]

Auf neues Problem gestoßen:

Delphi-Quellcode:

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

Die Messagebox kommt zwar aber wenn ich Ja sage passiert nicht das was zwischen dem letzten begin und end; steht (hier also: XXXXXX). Was mache ich falsch??

[himitsu]

stell dir das mal ein bissl um und du siehst, warum es so ist :zwinker;

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then begin 
  if MessageDlg = mrNo then dDatum.SetFocus; 
end else begin 
  XXXXXXX 
end;

wenn du willst, dass das nach dem Else mit zur MessageDlg-Abfrage gehört, dann:

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then
  if MessageDlg = mrNo then 
    dDatum.SetFocus
  else begin 
    XXXXXXX 
  end;

[JSB]

Dake alles klappt!!!