Function IncMonth

Uses Unit SysUtils

A função IncMonth retorna um valor do tipo TDateTime com o incremento de um determinado número de meses.

Sintaxe da sua utilização:

IncMonth(Data,Número_de_meses);

Ex:

procedure TForm1.Button14Click(Sender: TObject);var Data : TDateTime;begin
       Data:=IncMonth(date,3); // A variavel Data recebe a data atual mais o número de meses (3)
       Showmessage(DateToStr(Data));end;