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

ENVIAR A UN AMIGO
COMPARTIR EN FACEBOOK
COMPARTIR EN TWITTER
COMPARTIR EN GOOGLE +
TUTORIAL ANTERIOR

SIGUIENTE TUTORIAL

HAY 4 COMENTARIOS
  • Anónimo dijo:

    Como se le aplica el codigo a un formulario

  • Anónimo dijo:

    naci el 05 de mayo de 1972 a las 03am, cual es el calculo correcto de mi edad

  • Anónimo dijo:

    Datediff regresa un resultado exacto en dias , horas , minutos o segundos un ejemplo de como calcular el alquiler de un producto de una base de datos DateDiff("s" , Adodc2.Recordset.Fields("FechaAlquiler"), Date & " " & Format(Time, "hh:nn:ss am/pm")) en este ejemplo calcularia el alquiler en segundos... para que funcione el formato del campo fecha, en la base de datos debe ser : "dd/mm/aaaa hh:nn:ss am/pm" y el formato de fecha, en windows debe ser dd/mm/yyyy salu2 http://www.jags90.cjb.net

  • Anónimo dijo:

    ... lástima que no funcione!!! Como ejemplo prueba a calcular la edad entre 12/02/2003 y 13/03/2003 : es 1 mes y un día y muestra 0a 0m Prueba también 12/02/2002 y 13/03/2003 : es 1 año, 1 mes y un día y muestra 1a 0m Échale un vistazo a la función DateDiff de VB

Conéctate o Regístrate para dejar tu comentario.