Coloque 3 edits no form e um botao. No botao coloque o seguinte código:
Edit2.Text := FloatToStr(date-StrToDate(Edit1.Text)) ; Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ; Edit2 vai receber o numero de dias Edit3 vai receber a idade em anos ----- Original Message ----- From: "itasouza" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, December 11, 2007 4:38 PM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo Coloquei no onExit do EditDatNascimento o código: EditIdade.Text:= Inttostr(Date - StrToDate(EditDataNascimento.text)); O mesmo gera erro e não compila Alguém saberia uma alternativa? Agradeço!! -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos