<%
'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&"
' Response.Write sWeekDay&"
' Response.Write sChinaYear&"
[ 查看全文 ]