Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB5, VB6 | 02.03.06 |
Exaktes Alter berrechnen II Mit nur 3 Codezeilen lässt sich das exakte Alter berechnen | ||
Autor: Michael Schulz | Bewertung: | Views: 14.141 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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