Ajuda como somar anos a uma data
31/08/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
31/08/2004
Xtreme
maskedit2.text:=datetostr(incmonth(strtodate(maskedit1.text),12*3));
Responder
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.
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
Clique aqui para fazer login e interagir na Comunidade :)