根據(jù)生日時間返回所屬生肖
復(fù)制代碼代碼如下:
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>