<% ' 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#) %>