Calculo de fecha

Tengo una fecha de nacimiento en un textbox de access y quiero calcular la edad de este mirando la fecha actual.
Gracias por vuestro tiempo.

1 Respuesta

Respuesta
1
Private Sub Texto4_LostFocus()
Dim nacimiento As Date
Dim hoy As Date
Dim uno, dos As Integer
nacimiento = Texto4.Value
hoy = Now
uno = Year(hoy)
dos = Year(nacimiento)
Texto6.Value = uno - dos
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas