Macro Práctica edad

Function CalEdad(Fnacimiento As Date)
    Dim Fecha As Date
    CalEdad = Abs(DateDiff("yyyy", Fnacimiento, Date))
    Fecha = DateAdd("YYYY", CalEdad, Fnacimiento)
    If Fecha > Date Then CalEdad = CalEdad - 1
End Function