电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

ASP显示农历代码

ASP显示农历代码_第1页
1/7
ASP显示农历代码_第2页
2/7
ASP显示农历代码_第3页
3/7
ASP 显示农历代码 2008 年 12 月 28 日 星期日 14:50 <% Function nl() '获取当前系统时间 curTime = Now() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲 " TianGan(1) = "乙 " TianGan(2) = "丙 " TianGan(3) = "丁 " TianGan(4) = "戊 " TianGan(5) = "己 " TianGan(6) = "庚 " TianGan(7) = "辛 " TianGan(8) = "壬 " TianGan(9) = "癸 " '地支名称 DiZhi(0) = "子 " DiZhi(1) = "丑 " DiZhi(2) = "寅 " DiZhi(3) = "卯 " DiZhi(4) = "辰 " DiZhi(5) = "巳 " DiZhi(6) = "午 " DiZhi(7) = "未 " DiZhi(8) = "申 " DiZhi(9) = "酉 " DiZhi(10) = "戌 " DiZhi(11) = "亥 " '属相名称 ShuXiang(0) = "鼠 " ShuXiang(1) = "牛 " ShuXiang(2) = "虎 " ShuXiang(3) = "兔 " ShuXiang(4) = "龙 " ShuXiang(5) = "蛇 " ShuXiang(6) = "马 " ShuXiang(7) = "羊 " ShuXiang(8) = "猴 " ShuXiang(9) = "鸡 " ShuXiang(10) = "狗 " ShuXiang(11) = "猪 " '农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十" DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

ASP显示农历代码

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部