calcular en edad
12 de Mayo del 2010

necesito calcular edad, en mes,dia,a帽o y que reste los dias que hacen falta para la edad, osea que si me faltan 3meses para cumplir 19 a帽os, entonces tengo 18 a帽os

carlos
12 de Mayo del 2010

urgente

CALCULAR EDAD
13 de Mayo del 2010

MIRA SOLO ESCRIBEME AL CORREO Y YO TE AYUDO CON ESO

fj
23 de Mayo del 2010

S贸lo tienes que utilizar la sentencia DateDif(), consulta en la ayuda y es muy sencilla.

Juan A. Santos L贸pez
23 de Septiembre del 2010

te dejo el codigo (quita las barras ya que se insertan solas)

Public Function Edad(Fecha_Nacimiento As Variant, Optional Ahora As Variant = "")

    

    Dim LaEdad As Variant

    If Ahora = "" Then Ahora = Now

        

    LaEdad = DateDiff("yyyy", Fecha_Nacimiento, Ahora)

    

    If Month(Fecha_Nacimiento) > Month(Ahora) Then

        LaEdad = LaEdad - 1

    ElseIf Month(Fecha_Nacimiento) = Month(Ahora) Then

        If Day(Fecha_Nacimiento) > Day(Ahora) Then LaEdad = LaEdad - 1

    Else

    End If

    Edad = LaEdad

    

End Function