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
Como se le aplica el codigo a un formulario
naci el 05 de mayo de 1972 a las 03am, cual es el calculo correcto de mi edad
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
... 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