Exaktes Alter berechnen (.NET) Mit dieser Funktion lässt sich das exakte Alter anhand des übergebenen Geburtsdatums berechnen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  25.538
https://www.tools4vb.com	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der DateDiff-Funktion lässt sich schnell die Anzahl vergangener Jahre zweier Datums-Angaben ermitteln. Für das Berechnen des genauen Alters scheidet der normale DateDiff-Funktionsaufruf allerdings aus, da hier immer pauschal die bis Jahresende vergangenen Jahre ermittelt werden.

Möchte man allerdings das exakte Alter berechnen, gilt es den Geburtsmonat und ggf. den Tag ebenfalls zu berücksichtigen!

Und genau das macht nachfolgende Funktion. Sie errechnet das genaue Alter anhand des übergebenen Geburstags (Datum).

' exaktes Alter berechnen
Public Function ExactAge(ByVal Birthday As System.DateTime) As Integer
  Dim nMonth As Integer
  Dim nYears As Integer
 
  ' Alter (Jahre) anhand Monatsdifferenz / 12 ermitteln
  nYears = Math.Floor(DateDiff(DateInterval.Month, Birthday, DateTime.Now) / 12)
 
  ' Wenn Geburtsmonat = aktueller Monat
  ' Prüfen, ob Geburstag schon war oder noch kommt
  ' und ggf. das Alter um 1 Jahr verringern
  nMonth = DatePart(DateInterval.Month, Birthday)
  If nMonth = DatePart(DateInterval.Month, DateTime.Now) Then
    If DatePart(DateInterval.Day, Birthday) > DatePart(DateInterval.Day, DateTime.Now) Then
      nYears += -1
    End If
  End If
 
  Return nYears
End Function

Beispiel:

' Annahme: Geburtsdatum = 13.04.1972
Dim Birthday As New System.DateTime(1972, 4, 13)
MessageBox("Alter: " & ExactAge(Birthday).ToString)