Zurück zur Homepage

Lebensalter
Ein paar Formeln und eine benutzerdefinierte Funktion zur Ermittlung eines Alters am Stichtag.

Beispieldatei lebensalter.zip 8 k

Public Function Lebensalter(Geburt As Date, Stichtag As Date) As Integer
  Lebensalter = (DateSerial(2000, Month(Geburt), _
    Day(Geburt)) > DateSerial(2000, Month(Stichtag), _
    Day(Stichtag))) + Year(Stichtag) - Year(Geburt)
End Function

B6 Geburtsdatum und C6 Stichtag

=-1*((TEXT(B6;"TT.MM.")&"00")*1>(TEXT(C6;"TT.MM.")&"00")*1)+JAHR(C6)-JAHR(B6)

Diese Formeln sollen manchmal Probleme bereiten

=DATEDIF(B6;C6;"y")

=DATEDIF(B6;C6;"y") & " Jahre " & DATEDIF(B6;C6;"ym") &" Monate " & DATEDIF(B6;C6;"md") & " Tage"