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 |