ASP根据出生日期判断生肖的函数

ASP根据出生日期判断生肖的函数

    今天在网上看到一个利用出生日期来判断生肖的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出生人的生肖
%>
如果觉得《ASP根据出生日期判断生肖的函数》网络编程,unix网络编程,java网络编程,windows网络编程不错，可以推荐给好友哦。