음-양력 변환 프로그램

안녕하세요 똥's 입니다.

오늘은 예전에 어디선가 필요해서 가지고 있던 음력, 양력 변환 소스를 올릴꺼에요

출처는 알수 없고.. 라이센스도 없어서 필요하신 분은 사용하시면 되겠어요ㅎ

 

요즘은 프로그래머가 아니라도 네X버 , 구X 등을 찾으면 많이 나오네요 ;;; 저역시 개발보단

검색이 빠르더라고요; ㅋㅋㅋ

 

자~~ 그럼 아래 소스를공개 합니다.

 

 

음-양력 변환 프로그램 ver 1.1입니다. (2001년 7월 6일 작성)
데브에 올린 ver1.0은 음력 윤달처리가 안되어서.. 윤달처리버전.

 

사용법
  양력을 => 음력으로 바꿀때는 Sol2Lun함수를 
  음력을 => 양력으로 바꿀때는 Lun2Sol함수를 아래처럼 호출한다
  다음 사용은 음력은 lYEAR, lMONTH, lDAY, lGU 변수를, 양력은  sYEAR, sMONTH, sDAY 변수를 사용하면 된다.

 ☆ 양력에서 음력변환시 lGU가 "Y"면 윤달 "N"면 평달
 ☆ 음력에서 양력변환시 Lun2Sol() 함수의 4번째 인자로 윤달이면 "Y", 평달이면 "N"을 전달하면 됨
 많이 사용해주세요.

 

※해당 소스는 PC 버전을 이용하셔야 보입니다.

 

Response.Buffer = True Response.Expires = 0 Response.AddHeader "Pragma", "no-cache" call Sol2Lun(2001, 6, 15) response.write lYEAR & "-" & lMONTH & "-" & lDAY & " - " & lGU & "<br>" ' 처리 결과 : 2001-4-24 - Y call Sol2Lun(2001, 5, 15) response.write lYEAR & "-" & lMONTH & "-" & lDAY & " - " & lGU & "<br>" ' 처리 결과 : 2001-4-22 - N call Lun2Sol(2001, 4, 16, "Y") response.write sYEAR & "-" & sMONTH & "-" & sDAY & "<br>" ' 처리 결과 : 2001-6-7 call Lun2Sol(2001, 4, 16, "N") response.write sYEAR & "-" & sMONTH & "-" & sDAY & "<br>" ' 처리 결과 : 2001-5-9 '--------------------------------------------------------------------------- ' 처리가능 기간 1841 - 2043년 dim kk '1841 kk = "1,2,4,1,1,2,1,2,1,2,2,1," kk = kk & "2,2,1,2,1,1,2,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,4,1,2,1,2,1," kk = kk & "2,2,1,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,5,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,3,2,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," '1851 kk = kk & "2,2,1,2,1,1,2,1,2,1,5,2," kk = kk & "2,1,2,2,1,1,2,1,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,5,2,1,2,1,2," kk = kk & "1,1,2,1,2,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,5,2,1,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,6,1,1,2,1,1,2,1,2,2," '1861 kk = kk & "1,2,2,1,2,1,2,1,2,1,1,2," kk = kk & "2,1,2,1,2,2,1,2,2,3,1,2," kk = kk & "1,2,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,4,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,1,2,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,3,2,1,1,2,1,2,2,1," kk = kk & "2,2,2,1,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,5,2,1," '1871 kk = kk & "2,2,1,2,2,1,2,1,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,4,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,5,1,2,1,2,2,1,2," kk = kk & "2,2,1,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,4,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,1,2," '1881 kk = kk & "1,2,1,2,1,2,5,2,2,1,2,1," kk = kk & "1,2,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,3,2,1,2,2,1,2,2," kk = kk & "2,1,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,5,2,1,1,2,1,2,1,2," kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,5,2,1,2,2,1,2,1,2,1,2," '1891 kk = kk & "1,2,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,5,2,2,1,2,2,2," kk = kk & "1,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,5,1,2,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,5,2,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,5,2,2,1,2," '1901 kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,3,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,4,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,5,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," '1911 kk = kk & "2,1,2,1,1,5,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,5,1,2,1,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,3,2,1,2,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,5,2,2,1,2,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," '1921 kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,2,2,3,2,1,1,2,1,2,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,1,2," kk = kk & "2,1,2,1,2,2,1,2,1,2,1,1," kk = kk & "2,1,2,5,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,5,1,2,1,1,2,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,1,1,5,1,2,1,2,2,1," '1931 kk = kk & "2,2,2,1,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,6,1,2,1,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,4,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,2,1,4,1,2,2,1,2," kk = kk & "2,2,1,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," '1941 kk = kk & "2,2,1,2,2,4,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,1,2,4,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,1,1,2,1,2,2,1,2," kk = kk & "2,5,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,3,2,1,2,1,2," kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," '1951 kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,4,2,1,2,1,2,1,2," kk = kk & "1,2,1,1,2,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,1,2,2," kk = kk & "2,1,4,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,5,2,1,2,2," kk = kk & "1,2,2,1,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,5,2,1,2,1,2,1," '1961 kk = kk & "2,1,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,2,3,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,5,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,5,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,2,1,2,1,2,2,1,2," '1971 kk = kk & "1,2,1,1,5,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,1,2,2,2,1," kk = kk & "2,2,1,5,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,5,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,1," kk = kk & "2,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,1,6,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," '1981 kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,3,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,2,2,1,1,2,1,1,5,2,2," kk = kk & "1,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,2,2,1,2,1,2,1,1," kk = kk & "2,1,2,2,1,5,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,2,1,1,5,1,2,1,2,2,2,2," '1991 kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,1,1,2,1,1,2,1,2,2," kk = kk & "1,2,5,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,2,2,1,5,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,3,2,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,2,1,1,2,1,2,2,1," '2001 kk = kk & "2,2,2,3,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,1,2,2,1,2,1,1,2,1,2," kk = kk & "1,5,2,2,1,2,1,2,2,1,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,5,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,1,1,2,1,2,2,1,2," kk = kk & "2,2,1,1,5,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," '2011 kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,6,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,1,2,5,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,1,2,2," kk = kk & "2,1,1,2,3,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,1,2,5,2,1,1,2,1,2,1,2," '2021 kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,2,1,2,1,2,1,2," kk = kk & "1,5,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,2,1,1,5,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,1,2,2,2," kk = kk & "1,2,2,1,5,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,1,2,2," kk = kk & "1,2,1,2,2,1,2,1,2,1,2,1," '2031 kk = kk & "2,1,5,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,2,1,1,2,1,5,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,4,1,1,2,1,2,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,2,1,1,2,1," kk = kk & "2,2,1,2,5,2,1,2,1,2,1,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,2,1," '2041 kk = kk & "2,1,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,5,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2" dim tweek, tmd, akk, aweek, amd, leap tweek = "일,월,화,수,목,금,토" tmd = "31,0,31,30,31,30,31,31,30,31,30,31" akk = split(kk, ",") aweek = split(tweek, ",") amd = split(tmd, ",") Dim sYEAR, sMONTH, sDAY ' 양력일자를 저장할 변수 Dim lYEAR, lMONTH, lDAY, lGU ' 음력일자를 저장할 변수 Dim YoonYN ' 윤년 여부를 저장하는 변수 1=윤년, 0=평년 Function siYoon(yy) ' 윤년인지를 판단하는 함수 if yy mod 4 <> 0 then YoonYN = 0 elseif yy mod 100 <> 0 then YoonYN = 1 elseif yy mod 400 <> 0 then YoonYN = 0 else YoonYN = 1 end if End Function Function Sol2Lun(y, m, d) dim dt() ' 매년의 음력일수를 저장할 배열 변수 dim td ' 음력일을 계산하기 위해 양력일과의 차이를 저장할 변수 dim td1 ' 1840년까지의 날수 dim td2 ' 현재까지의 날수 dim sy, sm, sd ' 전해온 양력 인자값을 저장할 년, 월, 일 임시변수 dim mm ' 임시변수 dim ly, lm, ld ' 계산된 음력 년, 월, 일을 저장할 변수 dim yoon ' 현재월이 윤달임을 표시 td1 = 672069 ' 672069 = 1840 * 365 + 1840/4 - 1840/100 + 1840/400 + 23 //1840년까지 날수 sy = y sm = m sd = d siYoon(sy) ' 윤달여부를 체크 if YoonYn = 1 then amd(1) = 29 else amd(1) = 28 end if ' 1841년부터 작년까지의 날수 td2 = (sy - 1) * 365 + int((sy - 1)/4) - int((sy - 1)/100) + int((sy - 1)/400) ' 전월까지의 날수를 더함 for i = 0 to sm - 2 td2 = td2 + int(amd(i)) next ' 현재일까지의 날수를 더함 td2 = td2 + sd ' 양력현재일과 음력 1840년까지의 날수의 차이 td = td2 - td1 + 1 ' 1841년부터 음력날수를 계산 redim dt(sy-1841) for i = 0 to sy - 1841 dt(i) = 0 for j = 0 to 11 select case int(akk(i*12 + j)) case 1 : mm = 29 case 2 : mm = 30 case 3 : mm = 58 ' 29 + 29 case 4 : mm = 59 ' 29 + 30 case 5 : mm = 59 ' 30 + 29 case 6 : mm = 60 ' 30 + 30 end select dt(i) = dt(i) + mm next next ' 1840년 이후의 년도를 계산 - 현재까지의 일수에서 위에서 계산된 1841년부터의 매년 음력일수를 빼가면수 년도를 계산 ly = 0 do while(td > dt(ly)) td = td - dt(ly) ly = ly + 1 loop lm = 0 yoon = "N" ' 현재월이 윤달임을 표시할 변수 - 기본값 평달 do while(1) if int(akk(ly*12 + lm)) <= 2 then mm = int(akk(ly*12 + lm)) + 28 if td > mm then td = td - mm lm = lm + 1 else exit do end if else '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' select case int(akk(ly*12 + lm)) case 3 : m1 = 29 m2 = 29 case 4 : m1 = 29 m2 = 30 case 5 : m1 = 30 m2 = 29 case 6 : m1 = 30 m2 = 30 end select if td > m1 then td = td - m1 if td > m2 then td = td - m2 lm = lm + 1 else yoon = "Y" end if else exit do end if end if loop ly = ly + 1841 lm = lm + 1 ld = td lYEAR = ly lMONTH = lm lDAY = ld lGU = yoon End Function Function Lun2Sol(y, m, d, g) dim ly, lm, ld, lg ' 전해온 음력 인자값을 저장할 년, 월, 일, 윤달여부 임시변수 dim sy, sm, sd ' 계산된 양력 년, 월, 일을 저장할 변수 dim y1, m1, i, j, y2, y3 ' 임시변수 ly = y lm = m ld = d lg = g y1 = ly - 1841 m1 = lm - 1 leap = 0 if int(akk(y1*12 + m1)) > 2 then siYoon(ly) leap = YoonYN end if if leap = 1 then select case int(akk(y1*12 + m1)) case 3 : mm = 29 case 4 : mm = 30 case 5 : mm = 29 case 6 : mm = 30 end select else select case int(akk(y1*12 + m1)) case 1 : mm = 29 case 2 : mm = 30 case 3 : mm = 29 case 4 : mm = 29 case 5 : mm = 30 case 6 : mm = 30 end select end if td = 0 for i = 0 to y1 - 1 for j = 0 to 11 select case int(akk(i*12 + j)) case 1 : td = td + 29 case 2 : td = td + 30 case 3 : td = td + 58 case 4 : td = td + 59 case 5 : td = td + 59 case 6 : td = td + 60 end select next next for j = 0 to m1 - 1 select case int(akk(y1*12 + j)) case 1 : td = td + 29 case 2 : td = td + 30 case 3 : td = td + 58 case 4 : td = td + 59 case 5 : td = td + 59 case 6 : td = td + 60 end select next if leap = 1 then select case int(akk(y1*12 + m1)) case 3 : mm = 29 case 4 : mm = 29 case 5 : mm = 30 case 6 : mm = 30 end select end if td = td + ld + 22 if lg = "Y" then select case int(akk(y1*12 + m1)) case 3 : td = td + 29 case 4 : td = td + 30 case 5 : td = td + 29 case 6 : td = td + 30 end select end if y1 = 1840 do while(true) y1 = y1 + 1 siYoon(y1) leap = YoonYN if leap = 1 then y2 = 366 else y2 = 365 end if if td <= y2 then exit do end if td = td - y2 loop sy = y1 amd(1) = y2 - 337 m1 = 0 do while(true) m1 = m1 + 1 if td <= int(amd(m1-1)) then exit do end if td = td - int(amd(m1-1)) loop sm = m1 sd = td y3 = sy td = y3 * 365 + int(y3/4) - int(y3/100) + int(y3/400) for i = 0 to sm - 1 td = td + int(amd(i)) next td = td + sd sYEAR = y3 sMONTH = sm sDAY = sd End Function