asp求阴阳历转换源代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 11:03:45
各位老师好，我想在通过源代码实现阴阳历的转换。哪位有比较好的代码，我在网上找了一些，总不能运行。
具体是这样：通过输入日期（阴历/阳历），可以直接转换成（阳历/阴历），就像MD5加密算法一样。

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate

Private Sub Form_Load()
'获取当前系统时间
curTime = Now()

'星期名
WeekName(0) = " * "
WeekName(1) = "星期日"
WeekName(2) = "星期一"
WeekName(3) = "星期二"
WeekName(4) = "星期三"
WeekName(5) = "星期四"
WeekName(6) = "星期五"
WeekName(7) = "星期六"

'天干名称
TianGan(0) = "甲"
TianGan(1) = "乙"
TianGan(2) = "丙"
TianGan(3) = "丁&quo