Otra sobre fechas

[berfer]

Veran yo quiero calcular en que fecha me tienen que hacer un determinado pago y mi duda es como puedo sumar a la fecha del dia en curso tres meses o cuatro meses o lo que sea y siempre teniendo en cuenta que si hoy fuese el dia 15 de diciembre de 2006 y le quiero sumar dos meses que la fecha resultante sea 15 de febrero de 2007.

Ojala me puedan ayudar, este fin de semana no estare en casa luego no podre entrar al foro por si alguien quiere que me comente mas en detalle pero creo que con el ejemplo mas o menos se puede entender lo que quiero, muchas gracias

[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

[berfer]

Hola, ya tengo la solucion, la posteo por si en alguna ocasion alguien la necesita, el tema es que declare la funcion externa que ya trae incorporada firebird que se llama addmonth con ello ya puedo sumar meses a una fecha.


Ademas pude ver que tambien existen las funciones para sumar semanas dias etc etc por si alguien necesitase hacer algo de esto.


Muchas gracias.