Exaktes Alter berrechnen II Mit nur 3 Codezeilen lässt sich das exakte Alter berechnen
Autor:   Michael Schulz	Bewertung:     [ Jetzt bewerten ]	Views:  6.589
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 14 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Es gibt viele Funktionen, um das exakte Alter zu berechnen. Doch meist sind sie auch zu komplex bzw. aufwendig für einen solch simplen Fall. Es genügen 3 Zeilen Code, um das exakte Alter zu errechnen.

Zunächst wird die Jahresdifferenz zwischen Geburtsdatum und dem aktuellen Jahr ermittelt (DateDiff). Das ist jedoch noch nicht das korrekte Alter. Liegt der Geburtstag des aktuellen Jahres noch in der Zukunt, muss von der Jahresdifferenz ein Jahr abgezogen werden. Also wird zum Geburtsdatum die Jahresdifferenz addiert (DateAdd), um den Geburtstag des aktuellen Jahres zu erhalten. Ist dieser Geburtstag größer als das aktuelle Datum, so wird von der Jahresdifferenz noch 1 subtrahiert.

Schon ist das exakte Alter errechnet.

Diese Funktion ist so aufgebaut, dass das Alter zu jedem beliebigen Datum ermittelt werden kann. Wird der Parameter datStichtag nicht übergeben, wird das aktuelle Datum als Stichtag herangezogen.

' exaktes Alter berechnen
Public Function fncAlter(ByVal datGeburt As Date, _
  Optional datStichtag As Variant) As Integer
 
  If IsMissing(datStichtag) Then datStichtag = Date
 
  ' Differenz aktuelles Jahr und Geburtsjahr
  fncAlter = DateDiff("yyyy", datGeburt, datStichtag)
 
  ' Zum Geburtsdatum die Jahresdifferenz addieren
  ' -> Geburtstag in diesem Jahr
  datGeburt = DateAdd("yyyy", CDbl(fncAlter), datGeburt)
 
  ' Liegt der aktuelle Geburtstag in der Zukunft, 
  ' muss vom Alter ein Jahr abgezogen werden
  If datGeburt > datStichtag Then fncAlter = fncAlter - 1    
End Function