[Resolvido]CALCULAR A IDADE

Boa tarde caros amigos e desde já desejo bom NATAL a todos. Gostaria que me ajudassem na colocação da função "difdata" no formulário que envio no link abaixo, com a finalidade de calcular a idade (anos), pois já tentei mas devolve-me sempre erro.
Obrigado.
Fiz várias pesquisas neste fórum e encontrei soluções mas com códigos em VB, o que me complica as coisas, pelo que agrecia que me ajudassem mas sem recurso ao código VB por favor.


Ficheiro: https://www.dropbox.com/s/ytwputgal774ls7/Formula%20Idade.accdb

Veja sem serve para você, dessa maneira...

GCONTABIL obrigado pela resposta, naã dá certo o resultado eu coloquei data de nascimento 26-12-1964 e devolveu 48 anos, quando deveria na verdade devolver 47 anos

Bom dia jarjamela
faz o seguinte, copia este Módulo, eu trabalho para achar a idade dos alunos com a data de nascimento 26/12/1964 tem que dar: 47 anos 11 meses 29 dias

Function CalculaIdades(DataNascimento As Date)

If IsNull(DataNascimento) Or DataNascimento > Date Then
MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
Exit Function
End If
Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

' O resultado da diferença está em Double
Intervalo = Date - DataNascimento

' Um ano tem exatamente 365,25 dias
iAnos = Intervalo / 365.25
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)

dias = DateDiff("d", DateSerial(DatePart("yyyy", DataNascimento) + Anos, DatePart("m", DataNascimento) + meses, Day(DataNascimento)), Date)

If dias = 30 Then
dias = 0
meses = meses + 1
End If

If meses = 12 Then
meses = 0
Anos = Anos + 1
End If

Fim:
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If

If meses > 1 Then
meses = meses & " meses "
Else
meses = meses & " mês "
End If

If dias > 1 Then
dias = dias & " dias"
Else
dias = dias & " dia"
End If

CalculaIdades = Anos & meses & dias

End Function

Veja o exemplo de idade completa.

Gcontabil, esta está perfeita. Como eu tinha dito no primeiro post, não percebo nada de VB, será que podeia facilitar-me a vida e eliminal no código a função dos meses e dias, o objetivo é ficar só o valor em anos. Logo a seguir postarei resolvido. obrigado.

Amigo Pina, obrigado pela ajuda mas com VB fica tudo muito confuso, agradeço na mesma o seu post.

Bom dia jarjamela
Comprendi que já queria tudo feito.
Com premissão do Gcontabil fiz uma pequena alteração ao Módulo e tem os dois ex:
Pina

No exemplo que postei já tem tb a idade em anos, apenas inclua ou modifique o campo idadeCompleta por Idade e terá a idade certa.

Da mesma forma o exemplo do Pina, funciona da mesma forma.

Caros amigos Gcontabil e Pina, obrigado pelo trabalho que vos dei, fico muito satisfeito por me terem conseguido o que eu pretendia. Abraço a todos e desejjo-vos um feliz ano 2013.