在access中增加农历支持模块.

在access中增加农历支持模块.(5)     AddDay = CInt(Mid(daList(AddYear - 1900), 17, 2))
    conDate = DateSerial(AddYear, AddMonth, AddDay)
    getDay = DateDiff("d", conDate, gldate)
    If getDay < 0 Then AddYear = AddYear - 1
    Loop While getDay < 0
   
   AddDay = 1
   AddMonth = 1
    For i = 1 To getDay
        AddDay = AddDay + 1
        If AddDay = 30 + CInt(Mid(daList(AddYear - 1900), AddMonth, 1)) Or (RunYue And AddDay = 30 + CInt(Mid(daList(AddYear - 1900), 13, 1))) Then
            If RunYue = False And AddMonth = CInt("&H" & Mid(daList(AddYear - 1900), 14, 1)) Then
                RunYue = True
            Else
                RunYue = False
                AddMonth = AddMonth + 1
            End If
            AddDay = 1
        End If
       
    Next
 
    glgetnl = IIf(AddMonth > 9, CStr(AddMonth), "0" + CStr(AddMonth)) + IIf(RunYue, "1", "0") + IIf(AddDay > 9, CStr(AddDay), "0" + CStr(AddDay)) + CStr(AddYear)
End Function

' 输入sNl="mmlddyyyy" mm: 月份; l: 1,闰月,0,平常月; dd: 日; yyyy年份
' 函数返回"XX月XX", 属相存入sShuXinag, 干支记年存入sYear

Function strnl(ByVal sNl, ByRef sShuXiang, ByRef sYear)