Otra sobre fechas

[[marceloalegre]]

Efectivamente!, y funciona de esta manera:

Código Delphi [-]
var
  miFecha : TDateTime;
begin
  miFecha := StrToDate('31/01/2000');   
  ShowMessage('mi Fecha = '+DateToStr(miFecha));

  // Incrementar 1 mes
  // 31 enero 2000 ==> 31 Feb 2000 (mal!) ==> 29 Feb 2000
  miFecha := IncMonth(miFecha);
  ShowMessage('mi fecha + 1 mes = '+DateToStr(miFecha));

  // Incrementar 12 meses
  // 29 Feb 2000 ==> 29th Feb 2000 (mal!) ==> 28 Feb 2001
  mifecha := IncMonth(miFecha, 12); 
  ShowMessage('mi fecha + 12 meses = '+DateToStr(mifecha));
end;

Con esto debe quedar claro, cualquier cosa avisa...

Saludos!