西部数码,全国ISP前十佳!
会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>asp的日期转换星座函数
推荐给你的朋友阅读:

asp的日期转换星座函数

来源:互联网 发表日期: 2009-12-28 21:06:03

    关键是日期函数的应用。

'日期转换星座函数,参数是日期型
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


 

0
4
[作者:匿名 关键词:asp,日期转换星座,函数 录入:raincity 责编:raincity 阅读次数:2741]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:250.00ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]