VB 음력 계산 방법

'다음은 VB의 음력 알고리즘입니다

'기본적인 계산 방법을 제공하며, 특정 애플리케이션으로 이를 보완할 수 있습니다

'날짜 데이터 정의 방법은 다음과 같습니다

'처음 12바이트는 1월부터 12월까지가 큰 달인지 작은 달인지를 나타내며, 1은 30일로 구성된 큰 달, 0은 29일로 구성된 작은 달,

p>

'13번째 자리는 윤달입니다. 이 경우 1은 30일인 큰 달, 0은 29일 있는 작은 달, 14번째 자리는 윤달인 경우입니다. 윤달이 아닌 경우 0입니다. 그렇지 않으면 월은 각각 10, 11, 12로 지정됩니다.

'를 표현하려면 A, B, C를 사용합니다. 즉, 16진수를 사용합니다. 마지막 4자리는 해당 연도의 설날입니다. 즉, 그레고리력의 음력 1월 1일을 의미합니다. 예를 들어 0131은 1월 31일을 나타냅니다.

'GetYLDate 함수는 다음과 같이 사용됩니다: tYear는 입력할 연도, tMonth는 월, tDay는

'날짜, YLyear는 반환 값, Jiazi 연도와 같이 연도와 음력이 반환됩니다. YLShuXing 반환

'은 쥐와 같은 코끼리 연도에 속합니다. IsGetGl은 음력을 통해 그레고리력 값을 얻을지 여부를 설정합니다. 그렇다면

'처음 3개는 해당 그레고리력 날짜를 반환하고 반환 값은 그레고리력 날짜입니다.

함수 GetYLDate(tYear를 정수로, tMonth를 정수로, tDay를 정수로, _

YLyear를 문자열로, YLShuXing을 문자열로, _

선택 사항 IsGetGl을 부울로 ) As String

오류 시 다음 재개

Dim daList(1900 To 2011) As String * 18

Dim conDate As Date, setDate As Date

Dim AddMonth를 정수로, AddDay를 정수로, AddYear를 정수로, getDay를 정수로

Dim RunYue As Boolean

tYear > 2010 또는 tYear < 1901이면 함수 종료 ' 유효하지 않고 날짜가 있는 경우 종료

'1900 to 1909

daList(1900) = "010010110110180131"

daList(1901) = " 010010101110000219"

daList(1902) = "101001010111000208"

daList(1903) = "010100100110150129"

daList(1904) = "11010010011000021 6인치

daList(1905) = "110110010101000204"

daList(1906) = "011010101010140125"

daList(1907) = "010101101010000213"

daList (1908) = "100110101101000202"

daList(1909) = "010010101110120122"

daList(1910) = "010010101110000210"

daList(1911) = " 10100100110116013 0"

daList(1912) = "101001001101000218"

daList(1913) = "110100100101000206"

daList(1914) = "1101010101001501 26"

daList(1915) = "101101010101000214"

daList(1916) = "010101101010000204"

daList(1917) = "100101101101020123"

daList(1918) = "100101011011000211"

daList(1919) = "010010011011170201"

daList(1920) = "010010011011000220"

daList(1921) = "10100100101100020

8"

daList(1922) = "101100100101150128"

daList(1923) = "011010100101000216"

daList(1924) = "011011010100000205"

daList(1925) = "101011011010140124"

daList(1926) = "001010110110000213"

daList(1927) = "100101010111000202"

daList (1928) = "010010010111120123"

daList(1929) = "010010010111000210"

daList(1930) = "011001001011060130"

daList(1931) = " 110101001010000217"

daList(1932) = "111010100101000206"

daList(1933) = "011011010100150126"

daList(1934) = "01011010110100021 4"

daList(1935) = "001010110110000204"

daList(1936) = "100100110111030124"

daList(1937) = "100100101110000211"

daList(1938) = "110010010110170131"

daList(1939) = "110010010101000219"

daList(1940) = "110101001010000208"

daList(1941) = " 110110100101060127"

daList(1942) = "101101010101000215"

daList(1943) = "010101101010000205"

daList(1944) = "1010101011011401 2 5"< /p >

daList(1945) = "001001011101000213"

daList(1946) = "100100101101000202"

daList(1947) = "110010010101120122"

daList (1948) = "101010010101000210"

daList(1949) = "101101001010170129"

daList(1950) = "011011001010000217"

daList(1951) = " 101101010101000206"

daList(1952) = "010101011010150127"

daList(1953) = "010011011010000214"

daList(1954) = "101001011011000 20 3"

daList(1955) = "010100101011130124"

p>

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) = "01010010011000020 2"< / p>

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

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) = "01101010010100 022 0 "

daList(1986) = "011011010100000209"

daList(1987) = "101011011010060129"

daList(1988) = "101010110110000217"

daList(1989) = "100100110111000206"