Calcular EDAD

Esta función nos permitirá calcular la edad de una persona. La función recibirá dos parámetros, el primero será la fecha de nacimiento y el segundo la fecha en la cuál deseamos calcular la edad.

El código de la función es el siguiente:

Public Function YearsOld(FNac As Date, FActual As Date) As Byte

' Calculamos la diferencia entre el año de nacimiento
' y la fecha en la cuál deseamos calcular la edad
YearsOld = Year(FActual) - Year(FNac)

If Month(FActual) < Month(FNac) Then
YearsOld = YearsOld - 1
ElseIf Month(FActual) = Month(FNac) And Day(FActual)< Day(FNac) Then
YearsOld = YearsOld - 1
End If

End Function

Para usar esta función la llamaremos desde cualquier celda de nuestra hoja indicándole las fechas entre las cuáles deseamos calcular la edad:

= YearsOld(Fecha(1968;08;15); Hoy())

Una vez invocada la función nos aparecerá la media del rango seleccionado.


NOTA:

• Fecha(año;mes;dia) es una función estándar de EXCEL que convierte un año, un mes y un día en una fecha válidad para EXCEL.
• Hoy() es una función estándar de EXCEL que devuelve la fecha actual.