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

[neho34]

Ciao a tutti.
Sto lavorando ad un DB fatto con access. Vorrei che in un campo mi venisse visualizzata automaticamente l'età dell'utente in base alla sua data di nascita.
Grazie

[MMarzia]

per VBA c'è il subforum di Visual Basic: ti sposto lì



in futuro utilizza titoli meno generici come richiesto nel regolamento

[neho34]

Scusatemi... VVoVe:

[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."

[neho34]

Grazie mille, ma penso di aver risolto così

Dim calcola As Variant
Dim anni As Date

anni = Date
calcola = Year(anni) - Year(DataNascita)
Età = calcola
anche perchè non mi serve una data precisa, ma solo decidere un età generica.
Comunque grazie

[Mabi]

Originariamente inviato da neho34
Grazie mille, ma penso di aver risolto così

Dim calcola As Variant
Dim anni As Date

anni = Date
calcola = Year(anni) - Year(DataNascita)
Età = calcola
anche perchè non mi serve una data precisa, ma solo decidere un età generica.

In pratica così:

EtàInAnni = CLng(DateDiff("yyyy", Nascita, Date, vbMonday))

Le righe che trovi sotto servono per avere quella precisione rispetto al giorno