<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
d = "13-02-1986"
agey = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
   agey = agey - 1
End If
Response.Write CStr(agey)
%>