[Resolvido]Data nascimento versus Idade Atual

Olá,

Alguém poderia, por favor, me ajudar a corrigir a Idade Atual.

Por Exemplo:
Pedro nasceu em 10/10/1980 ele tem na data de hoje 40 anos, mas no meu "projeto" o resultado foi 41 anos.

Código:

Option Compare Database

Private Sub DataNascIdade_AfterUpdate()
     AtualizaIdade
End Sub

Public Sub AtualizaIdade()
Dim vData As Date
Dim vIdade As Variant
    
    If IsNull(Me.DataNascIdade) Or Trim(Me.DataNascIdade) = Empty Then Exit Sub
    vData = CDate(Mid(Me.DataNascIdade, 1, 2) & "/" & Mid(Me.DataNascIdade, 3, 2) & "/" & Mid(Me.DataNascIdade, 5, 4))
    vIdade = DateDiff("yyyy", Format(vData, "mm/dd/yyyy"), Date)
    Me.DataNascIdade.Value = Empty
    Me.DataNascIdade.InputMask = Empty

    Me.DataNascIdade.SetFocus
    Me.DataNascIdade.Value = vData & " - (" & vIdade & " Anos)"

End Sub


Tom,

Copie e cole o código na sub AtualizaIdade:

Código:



Public Sub AtualizaIdade()
Dim vData As Date
Dim vIdade As Variant
   
    If IsNull(Me.DataNascIdade) Or Trim(Me.DataNascIdade) = Empty Then
        Me.DataNascIdade = "Sem informação"
        Exit Sub
    End If
   
    vData = CDate(Mid(Me.DataNascIdade, 1, 2) & "/" & Mid(Me.DataNascIdade, 3, 2) & "/" & Mid(Me.DataNascIdade, 5, 4))
   
    vIdade = DateDiff("yyyy", vData, Now)
    If Date < DateSerial(Year(Now), Month(vData), Day(vData)) Then
        vIdade = vIdade - 1
    End If
   
    Me.DataNascIdade.Value = vData & " - (" & vIdade & " Anos)"

End Sub



Resolvido.

Boa sorte

Obrigado, Alexandre Fim