Alter berechnen
Veröffentlicht am 05.08.2019
Bei der Zusammenstellung einer Geburtstagsliste ist es praktisch, wenn zusätzlich zum Geburtsdatum auch gleich das passende Alter der Person angezeigt wird. So sind Sie bei der Gratulation über alles Wichtige Informiert. Verwenden Sie die Datumsfunktionen von Access, um das Alter einer Person zu berechnen.
Die folgende Funktion erwartet beim Start ein beliebiges Geburtsdatum. Das Ergebnis ist das Alter der Person am heutigen Tage.
Function AlterBerechnen(Geburtstag As Date) As Integer
AlterBerechnen = IIf(Day(Geburtstag) > Day(Date) And _
Month(Geburtstag) >= Month(Date), _
Year(Date) - Year(Geburtstag) - 1, _
Year(Date) - Year(Geburtstag))
End Function