IncMonth

Parameter

(Date : TDateTime; NumberOfMonths : Integer) : TDateTime;

Beschreibung 

Die Funktion liefert ein Datum zurück, das um die angegebene Anzahl von Monaten vor oder nach dem Ausgangsdatum liegt. IncMonth liefert den Wert des Parameters Date zurück, der um die Anzahl der in NumberOfMonths angegebenen Monate erhöht wurde. Wird mit NumberOfMonths ein negativer Wert übergeben, gibt die Prozedur ein entsprechend früheres Datum zurück. Ist der angegebene Tageswert größer als der letzte Tag des Ergebnismonats, wird der letzte Tag verwendet. Die Uhrzeit des im Parameter Date angegebenen Tages wird in das Ergebnis kopiert.

Beispiel

MyDate := IncMonth(Now, 1); { MyDate = 06.08.2016 }
MyDate := IncMonth(Now, 3); { MyDate = 06.10.2016 }

Mehr

Function IncYear(ADate : TDateTime; Years : Integer) : TDateTime;
begin
  Result := IncMonth(ADate,(12 * Years));
end;

Function IncHour(ADate : TDateTime; Hours : Integer) : TDateTime;
begin
  Result := ADate + ((1 / 24) * Hours);
end;

Function IncMinute(ADate : TDateTime; Minutes : Integer) : TDateTime;
begin
  Result := ADate + (((1 / 24) / 60) * Minutes);
end;