Você esqueceu de criar a variável data2. Mas veja bem: você quer obter a data de nascimento ou a idade do sujeito?
Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 ----- Original Message ----- From: itasouza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 11, 2007 4:11 PM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo Seguir o seu exemplo mais não conseguir fazer, você está usando parâmetro? Tenho os seguintes edits, preciso fazer com que mostre o resultado no campo EditIdade, assim que sair do campo EditDataNascimento;, neste caso vou usar o onExit do campo. EditDataNascimento; EditIdade; Precisava que se possível de uma ajuda, estou fazendo assim: procedure TfrmCadAluno.CalculaIdade; var data1 : integer; begin // Data1 := trunc((Date - data2)/365.25); showmessage( 'sua data de nacimento é ' + inttostr(Data1) ); end; ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.14/1172 - Release Date: 5/12/2007 08:41 [As partes desta mensagem que não continham texto foram removidas]