logische systeme

Das Alter anhand des Geburtsdatums kann man mit folgender Funktion ermitteln:

Function WieAlt(datGebdat As Date) As  Variant
WieAlt = DateDiff("yyyy", datGebdat, Date) + (Format(Date, "mmdd") < Format(datGebdat, "mmdd"))
End Function