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
投稿猜你喜欢
- 读写文件是最常见的IO操作。Python内置了读写文件的函数，用法和C是兼容的。读写文件前，我们先必须了解一下，在磁盘上读写文件的功能都是由
- 错误信息UnicodeDecodeError: ‘utf-8' codec can't decode byte 0xce i
- 内置数据类型Python的内置数据类型既包括数值型和布尔型之类的标量，也包括 更为复杂的列表、字典和文件等结构。数值Python有4种数值类
- 数据库事务隔离级别数据库事务的隔离级别有4个，由低到高依次为Read uncommitted：允许脏读。Read committed： 防止
- 本文实例讲述了js控制div弹出层实现方法。分享给大家供大家参考。具体分析如下：这是个功能很好，且容易调用和控制的弹出层。感兴趣的朋友可以调
网站上传图片后生成缩略图应该是非常常用的功能了，通常来讲为了网站显示美观，缩略图会是同样尺寸，比如最近笔者做的一个站点，缩略图规格要求都是1- 主要作用与拷贝文件用的。1.shutil.copyfileobj(文件1，文件2)：将文件1的数据覆盖copy给文件2。import shu
- yield的功能类似于return，但是不同之处在于它返回的是生成器。生成器生成器是通过一个或多个yield表达式构成的函数，每一个生成器都
- 我们在爬虫时，经常会遇见中文乱码问题，之前都是编码格式的问题，很少遇见由于压缩格式造成的编码混乱问题，特记录下。先看下混乱的编码样式。b&#
- 1. TVP， 表变量，临时表，CTE 的区别 TVP和临时表都是可以索引的，总是存在tempdb中，会增加系统数据库开销，而表变量和CTE
- 前言文字及图片来源于网络,仅供学习、交流使用,不具有任何商业用途,版权归原作者所有,如有问题请及时联系我们以作处理。通过网上爬虫获取了全国所
- python多线程适合IO密集型场景，而在CPU密集型场景，并不能充分利用多核CPU，而协程本质基于线程，同样不能充分发挥多核的优势。针对计
- 生成器定义在Python中，一边循环一边计算的机制，称为生成器：generator。为什么要有生成器列表所有数据都在内存中，如果有海量数据的
- 遵循Web标准的思想，网页要表现出一种亲和力。那么，针对残障用户来说，其“阅读”器可不能读取图像上传递的信息的。所以我们会采用一种Using
- 一、批量新建并保存工作簿import xlwings as xw # 导入库# 启动Excel程序，但不新建工作
- 本文中介绍的系统优化，主要针对前端和后台这两方面（后台方面主要对SQL语句和数据存储进行了优化），下文中我们将介绍一些优化技巧和经验。技巧：
- 问题你想将一个模块分割成多个文件。但是你不想将分离的文件统一成一个逻辑模块时使已有的代码遭到破坏。解决方案程序模块可以通过变成包来分割成多个
- 之前写一个 Demo里面 有些东西要使用d3实现一些效果 但是在很多论坛找资源都找不到可以在Vue里面使用D3.js的方法,npm 上面的D
- Python字符串常用功能汇总1、字符串的定义#定义空字符串>>> name=''#定义非空字符串>
- 第一种方法、浏览器设置兼容模式打开IE，点击“工具”菜单，选择“兼容性视图设置”，勾选“在兼容性视图中显示所有网站”选项即可。第二种方法、在
