Access - Limite de edad

' retorna los años

''''''''''''''''''''''''''''''''''''''

Function Calcular_Edad(Fecha_Nacimiento As Variant) As Integer

Dim Años As Variant

' comprueba si el valor no es nulo

If IsNull(Fecha_Nacimiento) Then

Calcular_Edad = 0

Exit Function

End If

Años = DateDiff("yyyy", Fecha_Nacimiento, Now)

If Date < DateSerial(Year(Now), Month(Fecha_Nacimiento), _

Day(Fecha_Nacimiento)) Then

Años = Años - 1

End If

Calcular_Edad = CInt(Años)

End Function

'Y para usarlo

Private Sub UnBoton_Click()

If Calcular_Edad(#12/3/1935#) >= 75 Then MsgBox "supera los 75 Años"

End Sub