资源描述:
《纯asp代码之公历转农历实现(含属相)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、纯ASP代码之公历转农历实现(含属相)>>教育资源库<%’OptionExplicit’***********************************************’类名称:ChinaDay’用途:’根据输入的日期计算该日期的农历天干地支及当年属相’使用方法:’第一个参数为输入参数,不填写默认为当日,’只计算1921-2-8之后的日期’##-------------------------------------------##’DimobjChinaDay’DimsDay
2、,sodifyBy:Babyt(阿泰)’Mail:Babytmail.csdn.’onthAdd(11),NongliData(99)DimarrTianGan(9),arrDiZhi(11),arrShuXiang(11),arrDayName(30),arrMonName(12)DimcurTime,curYear,curMonth,curDay,curi,m,n,k,isEnd,bit,TheDate’初始化数据SubClass_Initialize()’------------------
3、---------------------------------’定义显示字串’星期名arre(0)="*"arre(1)="星期日"arre(2)="星期一"arre(3)="星期二"arre(4)="星期三"arre(5)="星期四"arre(6)="星期五"arre(7)="星期六"’天干名称arrTianGan(0)="甲"arrTianGan(1)="乙"arrTianGan(2)="丙"arrTianGan(3)="丁"arrTianGan(4)="戊"arrTianGan(5)="
4、己"arrTianGan(6)="庚"arrTianGan(7)="辛"arrTianGan(8)="壬"arrTianGan(9)="癸"’地支名称arrDiZhi(0)="子"arrDiZhi(1)="丑"arrDiZhi(2)="寅"arrDiZhi(3)123456下一页>>>>这篇文章来自..,。="卯"arrDiZhi(4)="辰"arrDiZhi(5)="巳"arrDiZhi(6)="午"arrDiZhi(7)="未"arrDiZhi(8)="申"arrDiZhi(9)="酉"arr
5、DiZhi(10)="戌"arrDiZhi(11)="亥"’属相名称arrShuXiang(0)="鼠"arrShuXiang(1)="牛"arrShuXiang(2)="虎"arrShuXiang(3)="兔"arrShuXiang(4)="龙"arrShuXiang(5)="蛇"arrShuXiang(6)="马"arrShuXiang(7)="羊"arrShuXiang(8)="猴"arrShuXiang(9)="鸡"arrShuXiang(10)="狗"arrShuXiang(11)="猪
6、"’农历日期名arrDayName(0)="*"arrDayName(1)="初一"arrDayName(2)="初二"arrDayName(3)="初三"arrDayName(4)="初四"arrDayName(5)="初五"arrDayName(6)="初六"arrDayName(7)="初七"arrDayName(8)="初八"arrDayName(9)="初九"arrDayName(10)="初十"arrDayName(11)="十一"arrDayName(12)="十二"arrDayNa
7、me(13)="十三"arrDayName(14)="十四"arrDayName(15)="十五"arrDayName(16)="十六"arrDayName(17)="十七"arrDayName(18)="十八"arrDayName(19)="十九"arrDayName(20)="二十"arrDayName(21)="廿一"arrDayName(22)="廿二"arrDayName(23)="廿三"arrDayName(24)="廿四"arrDayName(25)="廿五"arrDayName(2
8、6)="廿六"arrDayName(27)="廿七"arrDayName(28)="廿八"arrDayName(29)="廿九"arrDayName(30)="三十"’农历月份名arrMonName(0)="*"arrMonName(1)="正"arrMonName(2)="二"arrMonName(3)="三"arrMonName(4)="四"arrMonName(5)="五"arrMonName(6)="六"arrMonName(7)="七"arrMonName(8)="八"a