Function BirthdayToAge(BirthDate)
''函数功能:由出生日期返回岁龄
''入口参数:出生日期
''函数返回:出错或非正常返回为 vbnullstring,否则为岁龄的字符串
'' <1个月 为 几天
'' <1岁为 几月零几天
'' <6岁为 几岁零几月
''edit by dflzzp
Dim myYear
Dim myMonth
Dim myDay
Dim CurDate
CurDate = Date()

If Not IsDate(BirthDate) Then
 BirthdayToAge = vbNullString
 Exit Function
else
 myYear=year(BirthDate)
 myMonth=month(BirthDate)
 myDay=day(BirthDate)
End If

If DateDiff("d",BirthDate,CurDate)<=0 Then
BirthdayToAge = ""
Exit Function
End If

diffday=day(BirthDate)-day(CurDate)
diffmonth=DateDiff("m",BirthDate,CurDate)
diffyear=int(diffmonth/12)
diffmonth0=diffmonth mod 12

if(diffday<0) then
 if(diffyear>=1) then
  BirthdayToAge = diffyear&"岁"&diffmonth0&"月"&abs(diffday)&"天"
 elseif(diffmonth>=1) then
  BirthdayToAge = diffmonth0&"月"&abs(diffday)&"天"
 else
  BirthdayToAge = abs(diffday)&"天"
 end if
elseif(diffday=0) then
 if(diffyear>=1) then
  BirthdayToAge = diffyear&"岁"&diffmonth0&"月整"
 else
  BirthdayToAge = diffmonth0&"月整"
 end if
else
 diffmonth=diffmonth-1
 diffyear=int(diffmonth/12)
 diffmonth0=diffmonth mod 12
 diffday=DateDiff("d",year(now)&"-"&(month(now)-1)&"-"&day(BirthDate),year(now)&"-"&month(now)&"-"&day(now))
 
 if(diffyear>=1) then
  BirthdayToAge = diffyear&"岁"&diffmonth0&"月"&diffday&"天"
 elseif(diffmonth>=1) then
  BirthdayToAge = diffmonth0&"月"&diffday&"天"
 else
  BirthdayToAge = diffday&"天"
 end if
end if
End Function

response.Write(BirthdayToAge("2008-6-1"))
response.Write(BirthdayToAge("2008/6/1"))
response.Write(BirthdayToAge(#2008/6/1#))
response.Write(BirthdayToAge(#6/1/2008#))