VB计算农历的算法

  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) = "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" 

  daList(1970) = "100101101101000206" 

  daList(1971) = "010010101110150127" 

  daList(1972) = "010010101101000215" 

  daList(1973) = "101001001101000203" 

  daList(1974) = "110100100110140123" 

  daList(1975) = "110100100101000211" 

  daList(1976) = "110101010010180131" 

  daList(1977) = "101101010100000218" 

  daList(1978) = "101101101010000207" 

  daList(1979) = "100101101101060128" 

  daList(1980) = "100101011011000216" 

  daList(1981) = "010010011011000205" 

  daList(1982) = "101001001011140125" 

  daList(1983) = "101001001011000213" 

  daList(1984) = "1011001001011A0202" 

  daList(1985) = "011010100101000220" 

  daList(1986) = "011011010100000209" 

  daList(1987) = "101011011010060129" 

  daList(1988) = "101010110110000217" 

  daList(1989) = "100100110111000206" 

  daList(1990) = "010010010111150127" 

  daList(1991) = "010010010111000215" 

  daList(1992) = "011001001011000204" 

  daList(1993) = "011010100101030123" 

  daList(1994) = "111010100101000210" 

  daList(1995) = "011010110010180131" 

  daList(1996) = "010110101100000219" 

  daList(1997) = "101010110110000207" 

  daList(1998) = "100100110110150128" 

  daList(1999) = "100100101110000216" 

  daList(2000) = "110010010110000205" 

  daList(2001) = "110101001010140124" 

  daList(2002) = "110101001010000212" 

  daList(2003) = "110110100101000201" 

  daList(2004) = "010110101010120122" 

  daList(2005) = "010101101010000209" 

  daList(2006) = "101010101101170129" 

  daList(2007) = "001001011101000218" 

  daList(2008) = "100100101101000207" 

  daList(2009) = "110010010101150126" 

  daList(2010) = "101010010101000214" 

  daList(2011) = "101101001010000214" 

  AddYear = tYear 

  RunYue = False 

  If IsGetGl Then 

    AddMonth = Val(Mid(daList(AddYear), 15, 2)) 

    AddDay = Val(Mid(daList(AddYear), 17, 2)) 

    conDate = DateSerial(AddYear, AddMonth, AddDay) 

    AddDay = tDay 

    For i = 1 To tMonth - 1 

      AddDay = AddDay + 29 + Val(Mid(daList(tYear), i, 1)) 

    Next i 

    ''''MsgBox DateDiff("d", conDate, Date) 

    setDate = DateAdd("d", AddDay - 1, conDate) 

    GetYLDate = setDate 

    tYear = Year(setDate) 

    tMonth = Month(setDate) 

    tDay = Day(setDate) 

    Exit Function 

  End If 

上一页  [1] [2] [3]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18