Quando vc faz uma conta usando datas do tipo "date-StrToDate(Edit1.Text)) " ele retorna um valor extend, que como vou mostrar num edit, preciso transformar em texto, por isso o uso do FloatToStr
----- Original Message ----- From: "eu_sossego" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Wednesday, December 12, 2007 12:33 AM Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo > 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 >> > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > >
