hvor gammel er man ?

Denne function skulle gøre det:

Function Alder(dtmInput)
    Alder = DateDiff("yyyy", dtmInput, Date())
    if DateDiff("d", DateSerial(Year(Date()), Month(dtmInput), Day(dtmInput)), Date()) < 0 then Alder = Alder - 1
End Function

Den melder aldrig fejl, heller ikke selvom det handler om 29. februar.

Der den gør er at finde forskellen i år, og derefter ser den om datoen er passeret i det indeværende år.