今天在網上看到一個利用出生日期來判斷生肖的ASP函數，覺得不錯，拿來做個備忘。
程序比較簡單，首先把十二生肖設定在一個排序數組中，然後將有效的出生年份除以12取余，最後在生肖數組中找到余數對應的生肖即可，相關代碼如下所示：
<%
Function Zodiac(birthday)
If IsDate(birthday) Then
'判斷出生日期是否是有效的日期格式
birthyear = Year(birthday) '取得出生日期中的年份
ZodiacList = Array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊") '創建生肖數組
Zodiac = ZodiacList(birthyear Mod 12) '出生年份除以12取余，並在生肖數組中找到對應的值
End If
End Function
response.write Zodiac("2009-04-08") '輸出2009-04-08出生人的生肖
%>
