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
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.
Descargar adjuntos
COMPARTE ESTE TUTORIAL
COMPARTIR EN FACEBOOK
COMPARTIR EN TWITTER
COMPARTIR EN LINKEDIN
COMPARTIR EN WHATSAPP