O Tipo Date é um disfarce, hehehehe
Faça o teste, coloque um botão na tela e no código digite assim:
Var
VVariavel : TDate;
Begin
VVariavel := DATE + 2;
VVariavel := VVariavel 1;
End;
Coloque um breakpoint e veja o valor... ou procure no help do
delphi.
Vitor.
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de eu_sossego
Enviada em: terça-feira, 11 de dezembro de 2007 23:34
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" <andrefmoraes@
<mailto:andrefmoraes%40gmail.com> gmail.com>
To: <[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.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> com.br>
> To: <[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br>
os.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]
