Otra vez calculos con fechas

[sierraja]

Saludos a todos, Quisiera saber de que manera puedo restar un mes a una fecha, he visto varias opciones que incluyen operaciones de suma y resta y no he visto nada concreto. Ejemplo:

Fecha: 01-03-2008 se le reste un mes y el resultado debe ser: 01-02-2008
Fecha: 01-02-2008 se le reste un mes y el resultado debe ser: 01-01-2008

Gracias por su atencion....

[[Delphius]]

Hola sierraja,
Delphi cuenta con funciones como IncDay, IncMonth, IncYear, y sus análogas DecXXX. Para hacer uso de dichas funciones debes añadir a uses la unidad DateUtils. Para más info consulta la ayuda y en este foro.

Un ejemplo:

Código Delphi [-]
nuevafecha := IncMonth(tufecha,1);

Saludos,

[jhonny]

La función IncMonth es perfecta para tu caso...

Ejemplo...

Código Delphi [-]
Fecha := IncMonth(Date, -1);

En dicho caso, la variable Fecha toma el valor "08 de Septiembre del 2008" .

[sierraja]

La sugerencia de Jhonny era que necesitaba exactamente. Funciona al pelo. Gracias por la atencion de todos.

[jhonny]

Empezado por sierraja

La sugerencia de Jhonny era que necesitaba exactamente. Funciona al pelo. Gracias por la atencion de todos.

Me alegra que te haya servido, pero no ha sido solo la sugerencia que yo he planteado, pues en uno de esas "cuestiones de la vida" es la misma que ha planteado Delphius .