%
' good
Function calcage(yyyy,mm,dd)
age = DatePart("yyyy", Now()) - yyyy
If (DatePart("m", Now()) < mm) Or ((DatePart("m", Now()) = mm) And (DatePart("d", Now()) < dd)) Then age = age - 1
calcage = age
End Function
' not good
Function altcalcage(d)
altcalcage = DateDiff("yyyy", d, Now())
End Function
Response.Write calcage(2007,3,14)
Response.Write "
"
Response.Write calcage(2007,3,13)
Response.Write "
"
Response.Write altcalcage(#13/3/2007#)
Response.Write "
"
Response.Write altcalcage(#14/3/2007#)
%>