É, como eu sempre digo: Quem procura, acha! Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Fri, 14 Dec 2007 17:47:50 -0300Subject: Re: RES: [delphi-br] Ajuda!! lógica Calculo Senhores.... me desculpem, mas uma simples busca no GOOGLE resolveu aquestao em 5 segundos.procurei por "delphi calcula idade" ( sem as aspas, como sempre ) e obtive olink: http://www.tecnobyte.com.br/dica8.html#dica211Abracos.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] _________________________________________________________________ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]