yue=request.Form("yue")
ri=request.Form("ri")
if date()>=cdate(year(date)&"-" & yue & "-" &ri) then
sui=year(date) - nian
tian=DateDiff("d",cdate(year(date)&"-" & yue & "-" &ri),date())
else
sui=year(date) - nian -1
tian=DateDiff("d",cdate(year(date)-1&"-" & yue & "-" &ri),date())
end if
response.Write sui & "歲，" & tian & "天"
可以根據歲和天是否為0來判斷是否需要顯示0歲，天數為0是則顯示多少歲整
另提示，需要判斷下是否是壹個合法的日期，別讓用戶選擇了1982-2-31 了 呵呵