以前收集的一些资料---使用ASP编写农历算法(一)

来源：作者：出处：巧巧读书 2006-09-07 进入讨论组

关键词：
spring
asp

谢谢收藏 http://www.qqread.com/asp/2006/10/c239664.html

使用ASP编写农历算法
    新年将近，呵呵，写了一个阴历和阳历的ASP程序，就当给大家的新年贺礼
（呵呵，这下蓝先生满意啦把，就当我送给你的圣诞礼物把。。。）
希望大家能够喜欢。。。大家可以很方便的将这个农历加入到自己的主页中
中国人使用中国人自己的日历，呵呵，希望大家以后能够支持ChinaASP的
共同进步。。。
一共两个文件cal.ASP和cal2.inc(主要是常量的定义)
cal.ASP代码如下

<%
Function GongDataIsValid(m_date)
    if Not IsDate(m_date) Then
        GongDataIsValid = False
        Exit Function
    else
        if Year(m_date) >1950 AND Year(m_date) < 2050 Then
            GongDataIsValid = true
            Exit Function
        else
            if Year(m_date)=1950 Then
                if Month(m_date)>2 Then
                    GongDataIsValid = true
                    Exit Function
                else
                    if Month(m_date)=2 Then
                        if Day(m_date) > 16 Then
                            GongDataIsValid = true
                            Exit Function
                        End If
                    End If
                End If
            End If
        End If
    End If
    GongDataIsValid = FALSE
End Function

Function NongDataIsValid(m_date)
    if Year(m_date) > 1949 AND Year(m_date) < 2049 Then
        NongDataIsValid = true
        Exit Function
    else
        if Year(m_date)=2049 Then
            if Month(m_date.month) < 12 Then
                NongDataIsValid = true
                Exit Function
            else
                if Month(m_date)=12 Then
                    if Day(m_date) < 8 Then
                        NongDataIsValid = true
                        Exit Function
                    End If
                End If
            End If
        End If
    End If
    NongDataIsValid = False
End Function

Function ConvertToGongLi(m_nongli)
    Dim days
    Dim years
    Dim alldays
    Dim result

    days    = DaysFromSpringDay(m_nongli)
    days    = days + GetDaysFromStart(Year(m_nongli))
    years   = Year(m_nongli)
    alldays = GetGongYearDays(years)
    if days > alldays Then
        days = days - alldays
        years = years + 1
    end If
    result  = CalGongDate(years,days)
    ConvertToGongLi = result
End Function

Function ConvertToNongLi(m_gongli)
    Dim days
    Dim years
    Dim alldays
    Dim result

    days    = DaysFromNewYear(m_gongli)
    alldays = GetDaysFromStart(Year(m_gongli))
    years   = Year(m_gongli)
    if days <= alldays Then
        years = years - 1
        days  = days + GetGongYearDays(years)
    end if
    days = days - GetDaysFromStart(years)
    result = CalNongDate(years,days)
    ConvertToNongLi = result
end function

Function GetDateAfterDays(m_first,m_days)
    Dim m_firstdays
    m_firstdays = DaysFromNewYear(m_first) + m_days
    GetDateAfterDays = CalGongDate(Year(m_first),m_firstdays)
End Function

Function CalGongDate(years,days)
    Dim resultday,resultyear,进入讨论组讨论。