周岁怎么生成

[hrxnoise]

我数据库里有生日字段为age值为2000-4-15

要怎样算出周岁呀,周岁一到9月份又得加2

[hookee]

Response.Write getZS(CDate("2000-4-15"))

Function getZS(dt)
   m = Month(dt)
   k = DateDiff("yyyy",dt,Now())
   If m < 9 Then
   	  k = k + 2
   Else
   	  k = k + 1
   End If
   getZS = k
End Function