Se é pra analisar o código deveria se utilizar o IntToStr e não o FloatToStr já que o valor fui "truncado" e resultou em um valor inteiro.
Era: Edit3.Text := FloatToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ; Correto: Edit3.Text := IntToStr(trunc((date-StrToDate(Edit1.Text))/365.25)) ; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de eu_sossego Enviada em: sexta-feira, 14 de dezembro de 2007 17:16 Para: delphi-br@yahoogrupos.com.br Assunto: 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] <mailto:andrefmoraes%40gmail.com> > To: <delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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] <mailto:itasouza%40yahoo.com.br> > > To: <delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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 > [As partes desta mensagem que não continham texto foram removidas]
