Lebensalter aus Geburtsdatum errechnen

Sprache / Programm: Access ab Version 97

Beschreibung

Das Programm ermittelt aus einem Datumswert (dem Geburtsdatum) und dem Systemdatum das Lebensalter. Die Funktion ist so gebaut, dass sie auch in Abfragen eingesetzt werden kann.

VBA-Quelltext

' Ermittelt aus dem Geburtsdatum und dem Systemdatum das Lebensalter
Public Function Alter(Geburtstag)
Alter = Null
If Not IsDate(Geburtstag) Then Exit Function
If Date > Geburtstag Then
Alter = Year(Date) - Year(Geburtstag)
If Month(Date) * 32 + Day(Date) < Month(Geburtstag) * 32 + Day(Geburtstag) Then Alter = Alter - 1
End If
End Function

Argumente der Funktion/Prozedur

Geburtsdatum: Wert vom Typ Datum oder NULL (falls übergebenes Geburtsdatum nicht vom Typ Datum)

Rückgabewert

Das Alter in Jahren oder NULL, falls das Geburtsdatum nicht vom Typ Datum war.

Anwendungsbeispiel(e)...

In der Tabelle 'Personal' gibt es ein Feld 'GeburtsDatum', welches den Geburtstag jedes Mitarbeiters angibt. Mit der Funktion

Anzahl = DCount("*","[Personal]","Alter([GeburtsDatum])>60")

kann die Anzahl der Mitarbeiter bestimmt werden, die heute 60 Jahre alt werden oder schon 60 Jahre alt sind.