Function Edad(fNacimiento) as Integer
Dim lEdad as Integer
    lEdad = Year(Date) - Year(fNacimiento) ' es la edad en años, o uno más
    If Month(Date) < Month(fNacimiento) Then
        lEdad = lEdad - 1
    End If
    If Month(Date) = Month(fNacimiento) And Day(Date) < DayfNacimiento) Then
        lEdad = lEdad - 1
    End If
    Edad = lEdad
End Function