General

6.33 Calcola l'età in base alla data odierna.
  Federico Luciani
Public Function Eta(DataNascita As Date)
   Dim varEta As Variant
   varEta = DateDiff("yyyy", DataNascita, Now)
   If Date < DateSerial(Year(Now), Month(DataNascita), Day(DataNascita)) Then
       varEta = varEta - 1
   End If
   Eta = varEta
End Function

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.