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.
Gracias por vuestro tiempo.
1 Respuesta
Respuesta de skie
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
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
