Function GetAge(ByVal vstrBirthDate)

lngYears = DateDiff("yyyy", vstrBirthDate, Now)

IF month(vstrBirthDate) >= month(now()) AND day(vstrBirthDate) > day(now()) then

lngYears = lngYears - 1

End if

GetAge = lngYears

End Function



Du använder denna funktionen såhär: <% GetAge(RecSet("fält")) %>


Och resultatet blir tex: "21"