calcular edad

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