(Resolvido) Calcular idade no access

[D@rk]

Olá boa noite pessoal,

Sou usuário do script abaixo. Ele funciona perfeitamente, só que calcula a idade sempre um ano a menos, gostaria que me ajudassem se possível.

Segue abaixo:

Function CalculaIdade(DataNasc As Variant) As Variant
''Recebe a DataNasc e devolve a Idade em Anos

On Error GoTo Idade_Err

''Evita o erro de data não preenchida
If IsNull(DataNasc) Then
CalculaIdade = ""
Exit Function
End If

''Declarando Variáveis
Dim DataHoje As Variant, DiaHoje As Integer
Dim MesNasc As Integer, DiaNasc As Integer
Dim DifAnos As Integer, MesHoje As Integer

''Isola as partes (dia/mês) das duas datas
DiaHoje = DatePart("d", Now)
MesHoje = DatePart("m", Now)
DiaNasc = DatePart("d", DataNasc)
MesNasc = DatePart("m", DataNasc)

''Calcula a diferença de anos
DifAnos = DateDiff("yyyy", DataNasc, Now)

''Verifica dia/mês de nascimento
If MesHoje < MesNasc Then
DifAnos = DifAnos - 1
ElseIf MesHoje = MesNasc Then
If DiaHoje < DiaNasc Then
DifAnos = DifAnos - 1
End If
Else
End If

''Valor final da função
CalculaIdade = DifAnos

Idade_Fim:
Exit Function

Idade_Err:
MsgBox Err.Description
Resume Idade_Fim

End Function

Eu tentei colocar no final da função

''Valor final da função
CalculaIdade = DifAnos +1

só que ele funciona pra alguns casos, outros não.

Alguma dica?

Abs,

Editado Agosto 2, 2011 por D@rk

[kuroi]

de uma olhada num funcao q inventei pra fazer isso: http://scriptbrasil.com.br/forum/index.php?showtopic=108907

funcionou em todos os testes q fiz.

[D@rk]

de uma olhada num funcao q inventei pra fazer isso: http://scriptbrasil.com.br/forum/index.php?showtopic=108907

funcionou em todos os testes q fiz.

ok kuroi, vou testar e retorno aqui.

Abraço!

[D@rk]

kuroi,

Eu consegui, porém foi com a função antiga especificada no outro tópico. A função nova retornou um valor de idade nada a ver, mas a antiga funcionou perfeitamente a idade não sei porque....

[Iceguy]

Mais fácil:

Public Function CalculaIdade(DataNascimento As Date) As String

CalculaIdade = Format(CLng(Now()) - CLng(DataNascimento), "yy a\no(\s), mm \mê\s(e\s) e dd \dia(\s)")

End Function