Amigo faça o seguinte eu fiz este ezxemplo com um edit mas vc pode adaptar
para sua necessidade
Var data1 : integer;
Data2 : Tdate;
Data2 := StrToDate(edit1.Text);
Data1:= trunc((Date data2)/365.25);
showmessage('sua data de nacimento é ' + inttostr(Data1));
Marcelo Mendes de Oliveira
Analista de Informática
Tel.: + 49 3541-6177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br <http://www.iguacucelulose.com.br/>
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de itasouza
Enviada em: terça-feira, 11 de dezembro de 2007 12:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda!! lógica Calculo
Tenho um campo DBedit que recebera a data de nascimento, o mesmo está
com uma maskara no EditMask, preciso calcular a idade e jogar o valor
em um outro DBedit.
EditDataNascimento // recebe a data no formato 00/00/0000
EditIdade // calcula a idade.
Alguém poderia ajudar..
Agradeço...
[As partes desta mensagem que não continham texto foram removidas]
