|
纯ASP代码之公历转农历实现(含属相) (1) <%
'Option EXPlicit
'***********************************************
' 类名称：ChinaDay
' 用途：
' 根据输入的日期计算该日期的农历天干地支及当年属相
' 使用方法：
' 第一个参数为输入参数，不填写默认为当日，
' 只计算1921-2-8之后的日期
' ##-------------------------------------------##
' Dim objChinaDay
' Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni
' Set objChinaDay = New ChinaDay
' Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
' Response.Write sDay&"<BR>"
' Response.Write sWeekDay&"<BR>"
' Response.Write sChinaYear&"<BR>"
' Response.Write sChinaDay&"<BR>"
' Response.Write sChinaAni&"<BR>"
' ##-------------------------------------------##
' Modify By：Babyt(阿泰)
' Mail: CSdn.net">Babyt@mail.csdn.net
' Welcome To:
' http://blog.csdn.net/babyt/
' http://www.facesun.cn
' Created At: 2005-2-20
' Copyright: 本代码非原创，是2001年收集的，原作者未知。
' License:Free
'*******************************************************
Class ChinaDay
Dim arrWeekName(7), MonthAdd(11), NongliData(99)
Dim arrTianGan(9), arrDiZhi(11), arrShuXiang(11), arrDayName(30), arrMonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim i, m, n, k, isEnd, bit, TheDate
'初始化数据
Sub Class_Initialize()
'---------------------------------------------------
'定义显示字串
'星期名
arrWeekName(0) = "*"
arrWeekName(1) = "星期日"
arrWeekName(2) = "星期一"
arrWeekName(3) = "星期二"
arrWeekName(4) = "星期三"
arrWeekName(5) = "星期四"
arrWeekName(6) = "星期五"
|
