Altersberechnung

29.12.2003

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.

 

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.