您正在使用 IPV4 [35.173.125.112] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp的日期转换星座函数
内容摘要: '日期转换星座函数,参数是日期型 function astro(birth) astro='' if birth='' or not isdate(birth) Then exit function birthmonth=month(birth) : if birthmonth10 then birthmonth='0'birthmonth birthday......
'日期转换星座函数,参数是日期型

function astro(birth)

astro=""

if birth="" or not isdate(birth) Then exit function

birthmonth=month(birth) : if birthmonth<10 then birthmonth="0" & birthmonth

birthday=day(birth) : if birthday<10 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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:在ASP中调用存储过程的几种方法

 

下一篇:删除过期信息的简单方法

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:8
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....