desculpe me intrometer mas ... o edita 2 esta digitado fora dos parenteses floattostr quando na verdade o campo dentro dos parenteses e date e nao float ou estou enganado ???? ----- Original Message ----- From: "André Moraes - GMail" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Tuesday, December 11, 2007 4:49 PM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo
> 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 > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > > > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.503 / Virus Database: 269.17.1/1181 - Release Date: > 11/12/2007 17:05 >