纯ASP代码之公历转农历实现(含属相) _ASP实例

<%

'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: 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()

'---------------------------------------------------