欢迎加入EUCMS官方QQ交流群,与更多EUCMS用户一起讨论,共同发财!

QQ群:1222386
> >> >>正文
asp根据生日时间返回所属生肖
2020-10-15 699 收藏
格式:

Get_Zodiac(ByVal birthday)

参数:


birthday:传递生日时间。


代码:


Function Get_Zodiac(ByVal birthday)  

Dim birthyear,Get_ZodiacList

If IsDate(birthday) Then  

birthyear = Year(birthday)  

Get_ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")  

Get_Zodiac = Get_ZodiacList(birthyear Mod 12)  

End If  

End Function


应用:


Dim input,str


input="1988-05-15"


response.Write(Get_Zodiac(input))

返回:龙



 

你觉得这篇文章怎么样?

0 0
参与讨论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
成品站
购买流程
  • 注册会员
  • 选择网站模板
  • 免费开通试用
  • 自助绑定域名
  • 付款转正
  • 提交备案
  • 域名生效
  • 网站正式上线
  • 分站:
    扫描关注微信

    扫描加微信

    13852154923

    0516-66628816

    工作日 9:00-12:00 13:30-18:00
    周六及部分节假日提供值班服务
    2186398
    群:1222386
    做网站徐州网架厂家
    Copyright@2003-2024 徐州亿优网架钢结构工程有限公司版权所有 Powered by EUCMS-v6.3 | 网站地图 苏ICP备19019550号 苏公网安备32030202000952号