HTMer » 编程开发 » 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出生人的生肖
%>

顶一下 ▲()   踩一下 ▼()

相关文章