Idade Real

[·Gheysa·]

Gente, minha dúvida é fácil....

Eu to fazendo um programinha de formulário e na hora de colocar a data de hoje, com a do nascimento, precisa aparecer a idade real do indivíduo; tipo comparar o mês e o dia pra ver se ele já fez níver esse ano ou não..

Alguém tem o código ae pra me passar !?!?

Brigadinha,

Gheysa

[Graymalkin]

Você pode utilizar as funções Day(), Month() e Year(), para saber, respectivamente, o dia, o mês e o ano de uma determinada data. Exemplo:

data = CDate("25/01/1984")
dia = Day(data)
mês = Month(data)
ano = Year(data)

Nesse caso, dia será 25, mês será 1 e ano será 1984.

Ok?

Abraços,

Graymalkin

[Eddie_666]

daí tu pode testar

if dia < day(now)  AND mes <=month(now) then
     'já fez aniversario
else
     'não fez ainda
end if

Eu estou enferrujado em VB, não lembro se é com now que tu ve a data atual, mas acho que sim, qualquer coisa, se estiver errado, alguém arruma aí, por favor

[·Gheysa·]

ahhhh legal...

mas tipo assim gente, o objetivo é saber a idade real, sei lá.. fazer uma conta ae...

não só dizer se já fez níver ou não, manja?!?

tipo foi digitada a data de nascimento,

depois a data de hoje,

daí depois em algum label, será apresentada a idade.

Exemplo:

dt de nascimento: 05/12/94

hoje: 04/12/04

idade: 9

[Graymalkin]

Exatamente, e por isso é que procuramos mostrar o "caminho das pedras", ao invés de apresentar a coisa pronta. Juntando a dica do Eddie com o que eu já tinha feito, seria algo assim:

hoje = CDate("04/12/2004")
aniv = CDate("05/12/1994")
idade = Year(hoje) - Year(aniv)
If Month(hoje) >= Month(aniv) Then
    If Day(hoje) >= Day(aniv) Then
        somar = 0
    Else
        somar = -1
    End If
Else
    somar = -1
End If
idade = idade + somar
MsgBox "Idade real: " & idade

Certo?

Abraços,

Graymalkin

[·Gheysa·]

Hummmm que bunitinhu,

brigadinha mesmo...

[Eddie_666]

tu pode usar datediff tb

dim idade

idade = datediff("y",dt1,dt2)

vai te dar a idade

[PiGmEu]

tu pode usar datediff tb

dim idade

idade = datediff("y",dt1,dt2)

vai te dar a idade

é.. Boa Dica Eddie..

mas do jeito q ela falou não funciona com o DateDiff(se eu não me engano)

[Eddie_666]

Cara, acho q funciona sim... O que ela quer saber basicamente é a diferença em anos de duas datas...

[PiGmEu]

Cara, acho q funciona sim... O que ela quer saber basicamente é a diferença em anos de duas datas...

tipo.. no exemplo q ela deu foi o seguinte..

dt de nascimento: 05/12/94

hoje: 04/12/04

idade: 9

Tipo.. usando o DateDiff, ele vai mostrar 10 Anos, sendo q ele so vai fazer 10 anos no dia seguinte..

so se tem algo no datediff q eu não conhece e faca o calculo certo