Ajuda como somar anos a uma data

31/08/2004

Caros amigos da Lista, Bom dia

Tenho um formulário e nele dois maskedit.
No primeiro preciso digitar uma data e dependendo do ítem selecionado no combobox, preciso que o outro maskEdit receba a data digitada no primeiro somando 3 anos.

Ex: MaskEdit 31/08/2004 --> Combobox ItemIndex = 1 --> maskEdit2 = 31/08/2007

Já tentei vávias formas e não consegui.

Alguém poderia me ajudar?

No Aguardo

Raphael


Raphael

Respostas

31/08/2004

Xtreme

maskedit2.text:=datetostr(incmonth(strtodate(maskedit1.text),12*3));


Responder Citar

31/08/2004

Knight

Você pode utilizar a função IncYear, da unit dateutils:

function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;

O código ficaria assim:

maskedit2.text:=datetostr(IncYear(strtodate(maskedit1.text),3));

Espero que isso resolva seu problema.


Responder Citar