Public Function CalcularEdad(FechaNacimiento As Date, FECHATOPE As Date) As Variant
Dim EDAD As Integer
If IsNull(FechaNacimiento) Then
EDAD = 0
Else
EDAD = DateDiff("yyyy", FechaNacimiento, FECHATOPE)
If FECHATOPE < DateSerial(Year(Date), Month(FechaNacimiento), Day(FechaNacimiento)) Then
EDAD = EDAD - 1
End If
CalcularEdad = EDAD
End If
End Function