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