Ein häufig gespeicherter Wert in Access-Datenbanken sind Geburtsdaten.
Verwenden Sie eine benutzerdefinierte Funktion, um das Alter aus einem Geburtsdatum zu berechnen.
Function fctAlter(Geburtsdatum As Variant) As Variant
On Error GoTo Err_fctAlter
If IsDate(Geburtsdatum) Then
If DateSerial(Year(Date), Month(Geburtsdatum), Day(Geburtsdatum)) > Date Then
'Der Geburtstag war in diesem Jahr noch nicht
fctAlter = Year(Date) - Year(Geburtsdatum) - 1
Else
'Der Geburtstag war in diesem Jahr schon
fctAlter = Year(Date) - Year(Geburtsdatum)
End If
End If
Exit_fctAlter
Exit Function
Err_fctAlter
MsgBox Err.Number & " " & Err.Description, vbCritical Resume Exit_fctAlter
End Function
Diese Funktion wendet die eingebauten Access-Funktionen DateSerial, Year, Month und Date auf ein übergebenes Geburtsdatum an und berechnet daraus das Alter. Wichtig dabei ist die Unterscheidung, ob der Geburtstag im aktuellen Jahr schon stattgefunden hat oder nicht. Mit Hilfe dieser Funktion können Sie anschließend in einer Abfrage mit dem Ausdruck Alter: fctAlter(datGeburt) in einem berechneten Feld das Alter anzeigen lassen.