Uma outra alternativa é declarar a unit DateUtils e utilizar a Função IncYear, da seguinte forma:
Data_Final := IncYear(Now, 25); []s Douglas Uesato -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ulisses Enviada em: quarta-feira, 22 de março de 2006 15:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Datas Boa tarde! Levando-se em conta que um ano tem 365,25 dias, você pode fazer assim: Data_Final:=Now+(365.25 * 25); Boa sorte. Ulisses ----- Original Message ----- From: "info.desenvolvimento" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Wednesday, March 22, 2006 2:42 PM Subject: [delphi-br] Datas Pesssoal como eu faço para calcular data que de exatamente por exemplo 25 anos. Sem usar periodo. DTNASC - DTHOJE = RESULTADO Uso delphi 5 com PARADOX [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html