Calcular la edad de personas con access
Como puedo calcular la edad de una serie de personas que tengo en una tabla con varios campos, entre ellos FECHANACIMIENTO y EDAD.
Quiero que me ponga en el campo EDAD la edad de la persona al día usando su fecha de nacimiento.
Gracias, se claro porque no se usar mucho el access
Quiero que me ponga en el campo EDAD la edad de la persona al día usando su fecha de nacimiento.
Gracias, se claro porque no se usar mucho el access
1 Respuesta
Respuesta de juanito01
1
La función...
Function dame_edad() As String
Dim mibase As DAO.Database
Dim mirs As DAO.Recordset
Dim sSQL As String
On Error GoTo trat_error
Set mibase = CurrentDb()
sSQL = "select edad from tabla1 where c1=1"
Set mirs = mibase.openrecordset(sSQL)
dame_edad = Year(Now) - Year(mirs.Fields(0))
If Month(Now) < Month(mirs.Fields(0)) Then
dame_edad = dame_edad - 1
Else
If Month(Now) = Month(mirs.Fields(0)) Then
If Day(Now) < Day(mirs.Fields(0)) Then
dame_edad = dame_edad - 1
End If
End If
End If
mirs.Close
Set mirs = Nothing
Set mibase = Nothing
Exit Function
trat_error:
dame_edad = -1
End Function
Más o menos devuelve lo que quieres. Revísala porque no me ha dado tiempo a mirarla mucho, y puede que haya algún detalle mal.
Function dame_edad() As String
Dim mibase As DAO.Database
Dim mirs As DAO.Recordset
Dim sSQL As String
On Error GoTo trat_error
Set mibase = CurrentDb()
sSQL = "select edad from tabla1 where c1=1"
Set mirs = mibase.openrecordset(sSQL)
dame_edad = Year(Now) - Year(mirs.Fields(0))
If Month(Now) < Month(mirs.Fields(0)) Then
dame_edad = dame_edad - 1
Else
If Month(Now) = Month(mirs.Fields(0)) Then
If Day(Now) < Day(mirs.Fields(0)) Then
dame_edad = dame_edad - 1
End If
End If
End If
mirs.Close
Set mirs = Nothing
Set mibase = Nothing
Exit Function
trat_error:
dame_edad = -1
End Function
Más o menos devuelve lo que quieres. Revísala porque no me ha dado tiempo a mirarla mucho, y puede que haya algún detalle mal.
