《农历转换加载宏.xls》由会员分享，可在线阅读，更多相关《农历转换加载宏.xls（11页珍藏版）》请在金锄头文库上搜索。
1、农历转换加载宏农历转换加载宏.xls.xls2003/6/30 Modify By ligbin日期数据定义方法如下前 12 个字节代表 1-12 月为大月或是小月，1 为大月 30 天，0 为小月 29 天，第 13 位为闰月的情况，1 为大月 30 天，0 为小月 29 天，第 14 位为闰月的月份，如果不是闰月为 0，否则给出月份，10、11、12 分别用A、B、C 来表示，即使用 16 进制。最后 4 位为当年家农历新年-即农历 1 月 1 日所在公历的日期，如 0131 代表 1 月 31 日。是按照加入闰月后顺序计算大小月，12 月即腊月不计算，因为是最后一个月，到下一年又是一个计
2、算基数。Function nlgl(valdate As Date, Optional IsGetGl As Boolean)tYear = Year(valdate)tMonth = Month(valdate)tDay = Day(valdate)On Error Resume NextDim daList(1900 To 2011) As String * 18Dim conDate As Date, setDate As DateDim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integ
3、erDim RunYue As BooleanIf tYear 2010 Or tYear 2010 ThentYear = tYear - 19 * Int(tYear - 1942) / 19)End IfEnd If 如 IF THE VALDATE NOT IN CASE,THEN TRANSITION THEN VALDATE1900 to 2011daList(1900) = “010010110110080131“ 原为 daList(1900) = “010010110110180131“daList(1901) = “010010101110000219“daList(190
4、2) = “101001010111000208“daList(1903) = “010100100110050129“ 原为 daList(1903) = “010100100110150129“daList(1904) = “110100100110000216“daList(1905) = “110110010101000204“daList(1906) = “011010101010140125“daList(1907) = “010101101010000213“daList(1908) = “100110101101000202“daList(1909) = “0100101011
5、10020122“ daList(1909) = “010010101110120122“daList(1910) = “010010101110000210“daList(1911) = “101001001100060130“ daList(1911) = “101001001101160130“daList(1912) = “101001001101000218“daList(1913) = “110100100101000206“daList(1914) = “110101010100150126“daList(1915) = “101101010101000214“daList(19
6、16) = “010101101010000204“daList(1917) = “100101101101020123“daList(1918) = “100101011011000211“daList(1919) = “010010011011170201“daList(1920) = “010010011011000220“daList(1921) = “101001001011000208“daList(1922) = “101100100101050128“ daList(1922) = “101100100101150128“daList(1923) = “011010100101
7、000216“daList(1924) = “011011010100000205“daList(1925) = “101011011010140124“daList(1926) = “001010110110000213“daList(1927) = “100101010111000202“daList(1928) = “010010010111020123“ daList(1928) = “010010010111120123“daList(1929) = “010010010111000210“daList(1930) = “011001001011060130“daList(1931)
8、 = “110101001010000217“daList(1932) = “111010100101000206“daList(1933) = “011011010100150126“daList(1934) = “010110101101000214“daList(1935) = “001010110110000204“daList(1936) = “100100110111130124“ daList(1936) = “100100110111030124“daList(1937) = “100100101110000211“daList(1938) = “110010010110170
9、131“daList(1939) = “110010010101000219“daList(1940) = “110101001010000208“daList(1941) = “110110100101160127“ daList(1941) = “110110100101060127“daList(1942) = “101101010101000215“daList(1943) = “010101101010000205“daList(1944) = “101010101101140125“daList(1945) = “001001011101000213“daList(1946) =
10、“100100101101000202“daList(1947) = “110010010101020122“ daList(1947) = “110010010101120122“daList(1948) = “101010010101000210“daList(1949) = “101101001010070129“ 原为daList(1949) = “101101001010170129“daList(1950) = “011011001010000217“daList(1951) = “101101010101000206“daList(1952) = “010101011010150
11、127“daList(1953) = “010011011010000214“daList(1954) = “101001011011000203“daList(1955) = “010100101011130124“daList(1956) = “010100101011000212“daList(1957) = “101010010101080131“daList(1958) = “111010010101000218“daList(1959) = “011010101010000208“daList(1960) = “101011010101060128“daList(1961) = “
12、101010110101000215“daList(1962) = “010010110110000205“daList(1963) = “101001010111040125“daList(1964) = “101001010111000213“daList(1965) = “010100100110000202“daList(1966) = “111010010011030121“daList(1967) = “110110010101000209“daList(1968) = “010110101010170130“daList(1969) = “010101101010000217“d
13、aList(1970) = “100101101101000206“daList(1971) = “010010101110050127“ daList(1971) = “010010101110150127“daList(1972) = “010010101101000215“daList(1973) = “101001001101000203“daList(1974) = “110100100110040123“ daList(1974) = “110100100110140123“daList(1975) = “110100100101000211“daList(1976) = “110
14、101010010080131“ daList(1976) = “110101010010180131“daList(1977) = “101101010100000218“daList(1978) = “101101101010000207“daList(1979) = “100101101101160128“ 原为daList(1979) = “100101101101060128“daList(1980) = “100101011011000216“daList(1981) = “010010011011000205“daList(1982) = “101001001011040125“
15、 原为daList(1982) = “101001001011140125“daList(1983) = “101001001011000213“daList(1984) = “1011001001010A0202“ daList(1984) = “1011001001011A0202“daList(1985) = “011010100101000220“daList(1986) = “011011010100000209“daList(1987) = “101011011010060129“daList(1988) = “101010110110000217“daList(1989) = “
16、100100110111000206“daList(1990) = “010010010111050127“ 原为daList(1990) = “010010010111150127“daList(1991) = “010010010111000215“daList(1992) = “011001001011000204“daList(1993) = “011010100101030123“daList(1994) = “111010100101000210“daList(1995) = “011010110010180131“ daList(1995) = “011010110010180131“daList(1996) = “010110101100000219“daList(1997) = “101010110110000207“daList(1998) = “100100110110050128“ d
