Ayuda, Como calcular fecha de vencimiento mensual a partir de una fecha x en delphi

[jhonny]

Si la cantidad de los dias que debes usar no deben ser estrictamente de 30 tambien podras usar, la función IncMonth de Delphi que te devolvera un TDate con un mes a delante, a partir de la fecha que le indiques:

Por ejemplo, si quieres un mensaje que te muestre el mes siguiente a la fecha de hoy, debes hacer lo siguiente:

Código Delphi [-]
ShowMessage(DateToStr(IncMonth(Date)));

Hoy es 23/08/2007, de manera pues que el mensaje te dira, 23/09/2007...

Si quieres mas meses, tendras que indicarlo en el siguiente parametro, asi:

Código Delphi [-]
ShowMessage(DateToStr(IncMonth(Date), 2));

Eso te devolvera dos meses mas adelante, espero que estos ejemplos puedas aplicarlos a lo que necesitas,