Somar um mês a data atual

[Diaclau 0]

Boa tarde,Como faço para somar um mês a uma data?Exemplo: 12/07/2006 + 1 mês = 12/08/2007Obrigado.

[Hugo Slepicka 0]

declare no seu Uses a unit DateUtils e faça:

 

IncMonth(StrToDate('12/07/2007'));

 

Você vai Obter: 12/08/2007...

 

Lá além de IncMonth tem IncDay, Year, entre outras funções de data e hora...

 

PS.: para incrementar mais de 1 mes faça: IncMonth(StrToDate('12/07/2007'),n);

onde n representa o número de meses desejados!!!

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

Boa tarde. ..

 

pode ser feito assim óh:

 

var  ANow,AThen: TDate;begin  ANow:= StrToDate('12/07/2007');  AThen:= ANow + 30;  Edit1.Text:= DateToStr(AThen);