Senhores.... me desculpem, mas uma simples busca no GOOGLE resolveu a questao em 5 segundos. procurei por "delphi calcula idade" ( sem as aspas, como sempre ) e obtive o link: http://www.tecnobyte.com.br/dica8.html#dica211
Abracos. Em 14/12/07, Gerhard Roger Nack <[EMAIL PROTECTED]> escreveu: > > 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 <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de > eu_sossego > Enviada em: sexta-feira, 14 de dezembro de 2007 17:16 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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]<andrefmoraes%40gmail.com><mailto: > andrefmoraes%40gmail.com> > > To: <delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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] <itasouza%40yahoo.com.br><mailto: > itasouza%40yahoo.com.br> > > > To: <delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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] > > > [As partes desta mensagem que não continham texto foram removidas]