MacroFacili: Calcolo dell'età

Una semplice funzione che permette di calcolare l'età in anni partendo dalla data di nascita di una persona.

Function Eta(DataDiNascita as Date) As Integer
  varEta = DateDiff("yyyy", DataDiNascita, Now)
  ComplAnnoAtt = DateSerial(Year(Now), Month(DataDiNascita), Day(DataDiNascita))
  If (DataDiNascita < ComplAnnoAtt) Then
    varEta = varEta - 1
  End If
  Eta = CInt(varEta)
End Function

L'esempio completo é scaricabile da questo link: Es221.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.