Altersberechnung

So berechnen Sie das Alter aus einem Geburtsdatum.

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.