?birthdate

birthdate發(fā)音

英：['b?:θde?t]　　美：['b?:θde?t]

英：　　美：

birthdate中文意思翻譯

n. 出生年月日

ASP里知道生日如何計(jì)算年齡（年月日）

發(fā)錯(cuò)地方了！

隨便在一個(gè)地方調(diào)用一下 BirthdayToAge函數(shù)，輸出就可以了！很簡(jiǎn)單的！

ASP里知道生日如何計(jì)算年齡（年月日）

ASP生日計(jì)算年齡 修正版 v1.2 by dflzzp

8-10 17:10

<%

Function BirthdayToAge(BirthDate)

'函數(shù)功能:由出生日期返回歲齡

'入口參數(shù):出生日期

'函數(shù)返回:出錯(cuò)或非正常返回為 vbnullstring,否則為歲齡的字符串

' <1個(gè)月 為 幾天

' <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

%>

使用方法很簡(jiǎn)單，說(shuō)白了就是對(duì)函數(shù)的引用，但要熟悉ASP中時(shí)間的表示方法：

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

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

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

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

以上幾種都行！