CalcoloEta

Function Eta(DataNascita As Date)
Dim varEta As Variant, difgiorni, Giorni As Integer
varEta = DateDiff("yyyy", DataNascita, Now)
Giorni = DateDiff("y", DataNascita, Now)
difgiorni = Giorni - (varEta * 365) - Int(varEta / 4)
If difgiorni < 0 Then Eta = varEta - 1 Else Eta = varEta
End Function