Calculo de edad por Fecha de Nacimiento

Hola.. Bueno soy nuevo en access 2007.. actualmente estoy manejando una extensa población y quisiera llevar registro de sus edades, quisiera desarrollar base de datos que me actualice las edades para un mejor control.. Gracias!

1 respuesta

1
Respuesta de
Hola. Formas para calcular la edad hay muchas. Yo te dejo la que uso y que me funciona perfectamente.
Pongamos que en el formulario tengo un control "nacimiento" (donde tengo la fecha de nacimiento de cada persona) y un control "edad" donde quiero que me ponga la edad.
En el formulario creo la siguiente función:
Public Function CalculoEdad(nacimiento As Variant) As Variant
Dim edad As Integer
Dim fecha As Date
If Not IsDate(nacimiento) Then
CalculoEdad = Null
Exit Function
End If
fecha = DateValue(nacimiento)
edad = DateDiff("yyyy", fecha, Date)
If Date < DateSerial(Year(Date), Month(fecha), Day(fecha)) Then
edad = edad - 1
End If
CalculoEdad = edad
End Function
Luego en el evento "al activar registro" del formulario pongo:
me.edad = CalculoEdad (nacimiento)
Espero que te sirva. Un saludo.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje