Delphi - Sumar meses a una fecha

Hola alguien sabe como sumar 3 meses a una fecha determinada

Carla

Si la fecha está en formato DateTime, un día es 1, por lo que 3 meses es 90 (por supuesto, meses de 30 días). Así debes hacer
Fecha:=Fecha+90;
para sumarle 3 meses.

Suerte

Hola:

- Separas el día, mes y año de la fecha.
- Al mes le sumas 3
- Si el nº de mes resultante es mayor de 12 entonces al mes le restas 12 y al año le añades 1.
- Vuelves a juntar el dia, mes y año y ... ¡¡ ya ta !!.

procedure TForm1.FormCreate(Sender: TObject);
var
dia, mes, anio : word;
begin
DecodeDate(Now,anio,mes,dia);
inc(mes,3);
if mes > 12 then
begin
mes := mes -12;
inc(anio);
end;
ShowMessage('Dentro de 3 meses: '+DateToStr(EncodeDAte(anio,mes,dia)));
end;

Suerte. Virum.

Puedes utilizar la función:
IncMonth;
Consulta la ayuda en línea

procedure TForm1.Button1Click(Sender: TObject);
var
Fecha : TDateTime;
begin
Fecha := IncMonth(Date,3);
ShowMessage(DateToStr(Fecha));
end;

No olvides agregar en el uses la unidad DateUtils

Hola:

¿Por qué en mi D7 en la ayuda de las funciones DateUtils no encuentro la función IncMonth?

Solo veo estas:
IncDay
IncHour
IncMilliSecond
IncMinute
IncSecond
IncWeek
IncYear

¿Le ocurre a alguien más o es un error de mi copia?

Un saludo. Virum.

Ni idea... porque mi D7 lo trae