Idade

Janeiro 18, 2008 at 11:20 pm (Excel)

Public Function Idade(DataDeNascimento As Date)

Idade = DateDiff(“yyyy”, Data_Nascimento, Now()) + Int(Format(Now(), “mmdd”) < Format(Data_Nascimento, “mmdd”))

End Function

Comente