主页 > 知识库 > asp是的日期转换为星座的函数

asp是的日期转换为星座的函数

热门标签:济源电销外呼系统线路 石家庄慧营销外呼系统 java外呼系统是什么 外呼线路批发 地图标注阳江 梧州市地图标注 创意电话机器人 世界地图标注了哪些城市 武穴地图标注

复制代码 代码如下:

function astro(birth)
astro=""
if birth="" or not isdate(birth) Then exit function
birthmonth=month(birth) : if birthmonth10 then birthmonth="0" birthmonth
birthday=day(birth) : if birthday10 then birthday="0" birthday
birth=trim(birthmonth birthday) '重整月日,0903型
rAstro=split("水瓶座*0120*0219#双鱼座*0220*0320#白羊座*0321*0420#金牛座*0421*0521#双子座*0522*0621#巨蟹座*0622*0722#狮子座*0723*0823#处女座*0824*0923#天秤座*0924*1023#天蝎座*1024*1122#射手座*1123*1222#摩蝎座*1222*0119#","#")
astro="摩蝎座" '这个是跨年的,不好对比,先默认
for i_ls=0 to ubound(rAstro)-2
rls2=split(rAstro(i_ls) "*","*")
if birth>=rls2(1) and birth=rls2(2) then
astro=rls2(0)
exit for
end if
next
end function

您可能感兴趣的文章:
  • 根据出生日期自动取得星座的js代码

标签:淮北 揭阳 迪庆 甘南 来宾 滁州 南宁 唐山

巨人网络通讯声明:本文标题《asp是的日期转换为星座的函数》,本文关键词  asp,是的,日期,转换,为,星座,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp是的日期转换为星座的函数》相关的同类信息!
  • 本页收集关于asp是的日期转换为星座的函数的相关信息资讯供网民参考!
  • 推荐文章