Se o editDataNascimento é digitado pelo usuário, vc deve fazer da seguinte
forma:
procedure TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
//EditIdade recebe o resultado em anos
EditIdade.Text :=
FloatToStr(trunc((date-StrToDate(EditDataNascimento.Text))/365.25)) ;
end;
----- Original Message -----
From: "itasouza" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, December 11, 2007 5:41 PM
Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
Amigo preciso que verifique se está correto da forma que fiz;
procedure TfrmCadAluno.EditDataNascimentoExit(Sender: TObject);
begin
// EditDataNascimento e digitado pelo usuário
EditDataNascimento.Text := FloatToStr(date-StrToDate
(Edit1.Text)) ;
//EditIdade recebe o resultado
EditIdade.Text := FloatToStr(trunc((date-StrToDate
(Edit1.Text))/365.25)) ;
//Edit1 está vazio
end;
Agradeço.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
