Fechas : Calcular la edad
|
Autor/es:
Rubén Vigón [Microsoft MVP Visual Basic] |
| Pregunta : ¿Qué código me recomiendas para calcular la edad de una persona? |
| Respuesta : Yo personalmente, he visto bastantes tipos de código que hacen básicamente lo mismo, pero sigo sin encontrar un método más sencillo, fiable y claro que el siguiente (pégalo en un módulo estandar) |
'---------------------------------------------------------
'
' Edad
'
' Código escrito originalmente por Rubén Vigón.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
'
' Este código se brinda por cortesía de
' Rubén Vigón
'
Public Function Edad(ByVal fchNacim As Date) As Long
Edad = Year(Date) - Year(fchNacim)
If Month(Date) < Month(fchNacim) Then
Edad = Edad - 1
ElseIf Month(Date) = Month(fchNacim) _
And Day(Date) < Day(fchNacim) Then
Edad = Edad - 1
End If
End Function
'---------------------------------------------------------
|
Un saludo!
Rubén Vigón
Microsoft MVP Visual Basic
http://www.mvp-access.com/rubenvigon |
Ejemplos: |
Temas relacionados: |
