阴历显示(农历)
时间:2023-01-19 03:38:15 下载该word文档
<%
'OptionExplicit
'***********************************************'类名称:ChinaDay'用途:
'根据输入的日期计算该日期的农历天干地支及当年属相'使用方法:
'第一个参数为输入参数,不填写默认为当日,'只计算1921-2-8之后的日期
'##-------------------------------------------##'DimobjChinaDay
'DimsDay,sWeekDay,sChinaDay,sChinaYear,sChinaAni'SetobjChinaDay=NewChinaDay
'CallobjChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni'Response.WritesDay&"
"
'Response.WritesWeekDay&"
"'Response.WritesChinaYear&"
"'Response.WritesChinaDay&"
"'Response.WritesChinaAni&"
"
'*******************************************************ClassChinaDay
DimarrWeekName(7,MonthAdd(11,NongliData(99
DimarrTianGan(9,arrDiZhi(11,arrShuXiang(11,arrDayName(30,arrMonName(12DimcurTime,curYear,curMonth,curDay,curWeekdayDimi,m,n,k,isEnd,bit,TheDate'初始化数据
SubClass_Initialize(
'---------------------------------------------------'定义显示字串'星期名
arrWeekName(0="*"
arrWeekName(1="星期日"arrWeekName(2="星期一"arrWeekName(3="星期二"arrWeekName(4="星期三"arrWeekName(5="星期四"arrWeekName(6="星期五"arrWeekName(7="星期六"'天干名称
arrTianGan(0="甲"arrTianGan(1="乙"arrTianGan(2="丙"