Prüfen ob Datum älter als 2 Monate

[zobien123]

Hi :)

ich möchte ein Datum überprüfen, ob es mehr als 2 Monate in der Vergangenheit liegt. Wenn ja soll eine MessageBox hoch kommen.
Leider steh ich ein wenig auf dem Schlauch, wie ich das mit den 2 Monaten in der Vergangeheit mach. :?

Ungefähr so sollte der Code sein, denke ich :?:

Code:

if (Datum_bis.Text //älter als 2 Monate )  then
   begin
     MessageDlg('Stimmt Ihre Datumseingabe?', mtError,[mbOk], 0);
   end;

[Sherlock]

Wie genau solls denn sein? Und was sind eigentlich zwei Monate? Gegen Text würde ich im Übrigen wirklich nicht prüfen... Dafür hat ein TDatePicker schließlich die Date Property.

Sherlock

[SProske]

DateUtils -> WithinPastMonths(Today, DeinDatum, 2)

[zobien123]

Super das war's schon:thumb:

Zitat:

DateUtils -> WithinPastMonths(Today, DeinDatum, 2)

Danke für die schnelle Antworten:)

[himitsu]

Oder MonthsBetween bzw. MonthSpan

[zobien123]

Habe noch eine Alternative schicke Lösung gefunden:-D

Code:

IncMonth(Now, -2)