[vba] visualizzare età in base a data di nascita

[Mabi]

Originariamente inviato da neho34
Vorrei che in un campo mi venisse visualizzata automaticamente l'età dell'utente in base alla sua data di nascita.

Per la modifica del campo non ti so aiutare, però puoi calcolare l'età in questo modo:

Dim EtàInAnni As Long
Dim Nascita As Date

'---
Nascita = CDate("28,dicembre,2000")
'---
EtàInAnni = CLng(DateDiff("yyyy", Nascita, Date, vbMonday))
If (EtàInAnni <= 0&) Then
  EtàInAnni = 0&
Else
  If (DateDiff("d", DateAdd("yyyy", EtàInAnni, Nascita), Date, vbMonday)) > 0& Then
    EtàInAnni = (EtàInAnni - 1&)
  End If
End If

MsgBox "Età utente = " & CStr(EtàInAnni) & " anni."