Valeu, vou olhar oa sua função...
SObre sua duvida, vou ver se consigo resposat p/ ela, + inicalmente,
creio q é +- da forma q vc falou q a contagem é feita, porem vou me
certificar.
Obrigado!
[]´s
paulo
--- Em delphi-br@yahoogrupos.com.br, Welson Avelar
<[EMAIL PROTECTED]> escreveu
> > Preciso de uma função que me retorne quantos anos uma pessoa tem,
> > para q eu possa consultar as pessoas por faixa etaria.
> >
> > Então se a pessoa faz aniversario hoje, ela possui uma idade,
ex.:
> > nasc 19/12/2004 hoje ela tem 1 ano, mas se ela for de 20/12/2004,
> > entao tem 0 anos.
> >
> > gostaria de uma variação desta função que tambem pudesse
> > retornar,
> > quantos anos, meses e dias de uam data para outra.
> >
> >
> > Tambem preciso de uma q me retorne quantos meses há de uma data a
> > outra, e na mesma linha de pensamento, uma de quantos dias se
> > passaram de uma data a outra.
> >
> > Se alguem puder ajudar, agradeço de antemão!
> >
> > []´s
> > Paulo
>
> [Welson] Veja bem. Eu montei duas funções que convertem a data para
um número inteiro. Sendo assim, você pode realizar operações de soma
e subtração normalmente, pega o número inteiro que restar e converte
para data e vice-versa, ou seja, pega a data e converte para inteiro,
sacou ?!
>
> E é até bom usar esse mesmo email pra poder sanar a minha dúvida
quanto ao que eu fiz também, porque não sei se está correto. As
funções são as seguintes:
>
> function DateToInt(Data :TDate) :Integer ;
> begin
> Result := Trunc(Data);
> end;
>
> function IntToDate(Valor :Integer) :TDate ;
> begin
> Result := Trunc(Valor);
> end;
>
>
> E usa da seguinte forma:
>
> Edit2.Text := IntToStr(DateToInt(StrToDate(Edit1.Text)));
>
> Edit2.Text := DateToStr(IntToDate(StrToInt(Edit1.Text)));
>
>
> Eu não lembro onde vi, mas a contagem de datas começa em 30/12/1889
ou 30/12/1899 ??? Ou começa em outro dia diferente desses ?!
>
>
> Se alguém puder ajudar a mim e ao amigo Paulo ae, obrigado. E
Paulo, se o que eu fiz estiver certo, talvez resolva pra você também.
>
> Abraços...
>
>
>
> =================================
> "Nunca ande pelo caminho traçado, pois ele conduz somente até onde
os outros já foram."
> Alexander Graham Bell
> =================================
> Welson de Avelar Soares Filho
> Juiz de Fora - Minas Gerais
> =================================
>
> ---------------------------------
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
