Otra sobre fechas

[jachguate]

Mirá la ayuda sobre las funciones de la unidad DateUtils. Entre ellas, IncMonth (o IncMonths que ahora no recuerdo).

Saludos.

[[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!

[berfer]

Hola, creo que la solucion que me habeis pasado es para hacer en delphi pero yo preguntaba como poder hacer eso mismo pero en firebird con ibexpert.

Si la solucion que me disteis era para ibexpert desde donde puedo cargar la funcion incmoth? ya que no me aparece como cargada.


De nuevo muchas gracias