Microsoft Access Programmierrezepte

R1.22 Das korrekte Alter bestimmen

Aufgabe

Im Rezept „R1.2 Ein erstes VBA-Programm schreiben“ wurde das Alter einer Person lediglich aus der einfachen Differenz zwischen Geburtsjahr und aktuellem Jahr ermittelt. Diese Formel ist aber eine grobe Vereinfachung und nur dann richtig, wenn die Person im aktuellen Jahr bereits Geburtstag hatte, ansonsten wird ein Jahr zu viel berechnet. Gesucht wird eine Formel zur Altersbestimmung, die fehlerhafte Ergebnisse vermeidet.

Lösung

Unter Verwendung der Datumsfunktionen DateSerial, Year, Month und Date kann geprüft werden, ob das aktuelle Datum vor dem diesjährigen Geburtstag liegt. Ist dies der Fall, wird ein Jahr vom Ergebnis abgezogen.

Oberfläche

Zwei Textfelder, eine Befehlsschaltfläche und drei Bezeichnungsfeld ...