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 |