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

在access中增加农历支持模块.(4)     daList(89) = "100100110111000206"
    daList(90) = "010010010111150127"
    daList(91) = "010010010111000215"
    daList(92) = "011001001011000204"
    daList(93) = "011010100101030123"
    daList(94) = "111010100101000210"
    daList(95) = "011010110010180131"
    daList(96) = "010110101100000219"
    daList(97) = "101010110110000207"
    daList(98) = "100100110110050128"
    daList(99) = "100100101110000216"
    daList(100) = "110010010110000205"
    daList(101) = "110101001010140124"
    daList(102) = "110101001010000212"
    daList(103) = "110110100101000201"
    daList(104) = "010110101010120122"
    daList(105) = "010101101010000209"
    daList(106) = "101010101101170129"
    daList(107) = "001001011101000218"
    daList(108) = "100100101101000207"
    daList(109) = "110010010101150126"
    daList(110) = "101010010101000214"
    daList(111) = "101101001010000214"
   
    On Error Resume Next
    Dim conDate As Date
    Dim tYear, AddMonth, AddDay, AddYear, getDay, i As Integer
    Dim RunYue As Boolean
   
    tYear = Year(gldate)
   
    If tYear > 2010 Or tYear < 1901 Then
      glgetnl = "    "
      Exit Function   '如果不是有效有日期，退出
    End If
   
    RunYue = False
    AddYear = tYear
   
    Do
    AddMonth = CInt(Mid(daList(AddYear - 1900), 15, 2))