Cálculo de edad

Función que calcula el número de días entre dos fechas y devuelve el número de años y meses dentro de una cadena de caracteres.

				Public Function CalcularEdad(Nacimiento As Date) As String

    Dim ndias As Double

    Dim anios As Integer

    Dim meses As Integer

    

    ndias = Date - Nacimiento

    anios = Int(ndias / 365.25)

    ndias = ndias - (365.25 * anios)

    meses = Int(ndias / 30.4375)

    CalcularEdad = anios & "a " & meses & "m"

End Function