Ich würde entweder mit FormatDateTime das Datum auf den Monat kürzen, dazuaddieren und wieder zurückrechnen oder mich mal schlau machen, ob es vielleicht eine Funktion gibt, die ähnlich dem VB DateAdd ist.
okay, es heißt IncMonth
Zitat:
IncMonth liefert ein Datum zurück, das um die angegebene Anzahl von Monaten vor oder nach dem Ausgangsdatum liegt.
Unit
SysUtils
Kategorie
Datum und Uhrzeit
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
Beschreibung
IncMonth liefert den Wert des Parameters Date zurück, der um die Anzahl der in NumberOfMonths angegebenen Monate erhöht wurde. Wenn NumberOfMonths einen negativen Wert enthält, wird ein Datum zurückgeliefert, das um die angegebene Anzahl von Monaten zurückliegt.
Wenn der angegebene Monatstag größer ist als der letzte Tag des resultierenden Monats, wird der Tag auf den letzten Tag des Monats gesetzt. Die Uhrzeit des im Parameter Date angegebenen Tages wird in das Ergebnis kopiert.
Gruß
Andreas