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
Descargar adjuntos
COMPARTE ESTE TUTORIAL

COMPARTIR EN FACEBOOK
COMPARTIR EN TWITTER
COMPARTIR EN LINKEDIN
COMPARTIR EN WHATSAPP
TUTORIAL ANTERIOR

SIGUIENTE TUTORIAL