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

来源:asp之家 时间:2011-02-26 11:11:00 


代码如下:


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
投稿

猜你喜欢

  • Python 定义只读属性的实现方式

    2023-04-28 01:11:22
  • Mysql 忘记root密码的完美解决方法

    2024-01-18 14:31:05
  • MYSQL中varchar和TEXT的相关问题详析

    2024-01-23 00:58:42
  • OpenCV基于ORB算法实现角点检测

    2021-08-20 03:08:13
  • Python小游戏之300行代码实现俄罗斯方块

    2023-10-09 17:35:33
  • php 常用字符串函数总结

    2024-06-05 09:47:33
  • python一行输入多值的实现详解

    2021-07-02 06:52:39
  • go单体日志采集zincsearch方案实现

    2024-04-23 09:43:13
  • 利用色轮选择颜色搭配[译]

    2009-10-31 18:24:00
  • Python中设置变量访问权限的方法

    2023-09-13 15:42:15
  • mysql之innodb的锁分类介绍

    2024-01-27 00:50:10
  • Yii2结合Workerman的websocket示例详解

    2023-11-17 04:48:40
  • JDBC获取数据库连接的5种方式实例

    2024-01-19 05:14:05
  • Linux安装MySQL5.6.24使用文字说明

    2024-01-24 22:20:54
  • 15条JavaScript最佳实践小结

    2024-04-29 13:37:25
  • PHP概率计算函数汇总

    2023-11-19 08:06:19
  • PyTorch中反卷积的用法详解

    2022-09-21 18:12:34
  • JavaScript onclick 和 click 的区别详解

    2024-06-05 09:56:25
  • 教你用Python寻找重复文件并删除的脚本写法

    2023-08-21 19:33:43
  • Python中最大递归深度值的探讨

    2021-01-16 14:21:21
  • asp之家 网络编程 m.aspxhome.com