(Resolvido) Calculando Idade

[Elber Carretoni]

salve salve galera...

tenho um formulário em que usuário digita a data de nascimento.

preciso calcular a idade do usuário automaticamente através da data de nascimento, e a partir de então verificar se o usuário é maior ou menor de 16 anos...

como faço pra calcular usando os dias, meses e anos? alguém dá uma força aí?

vlw! abraços,

[Elber Carretoni]

galera...estive procurando outros fórum e de forma surpresa achei a mesma dúvida que a minha no fórum da revista INFO...

fiz os procedimentos da solução que propuseram lá e o cálculo da idade realmente funcionou, quer dizer, parcialmente...

algumas datas funcionam perfeitamente...já outras, como 22/03/1990 já não funciona...acredito que o erro se dê devido a anos maiores que 1990...

a linha de código proposta foi esta:

me.DtNascimento -> meu objeto que recebe a data de nascimento no formulário

me.idade -> outro objeto que recebe a idade a partir da data de nascimento digitada

evento APÓS ATUALIZAR do campo DtNascimento

dim dn as integer
dn = me.DtNascimento

if month(dn) < month(date) then

me.Idade = year(Date) - year(dn)
'Neste caso o sujeito já completou anos
elseif month(dn)=month(date) and day(dn)<day(date) then
me.Idade = year(Date) - year(dn)
'Neste caso o sujeito já completou anos
else
me.Idade = year(Date) - year(dn)-1
'Neste caso o sujeito ainda não completou anos
[/codebox]

alguém poderia me dizer porque ocorre o erro em determinadas datas supostas superiores ao ano de 1990?

to precisando disso bem rapido galera...help aí!

abraços, vlw!

GALERA, TÓPICO RESOLVIDO!

Já consegui solucionar a dúvida...

na declaração da variável dn, em vez de integer, coloquem STRING [i](Dim dn As String)[/b] que vai funcionar perfeitamente em todas as datas, inclusive superior ao ano de 1990!!

gracias... :lol:

Editado Fevereiro 23, 2007 por Elber Carretoni

[MrMALJ]

Ok Elber vlw por postar a resolução pra comunidade!

[Elber Carretoni]

;D