양력<->음력 변환 소스 > 기술자료

• 목록

GF_SOL2LUN(SYEAR, SMONTH, SDAY)는 양력->음력 함수로서
SYEAR, SMONTH, SDAY에 변환하고자하는 연, 월, 일을 입력한 후
함수를 실행시키면 변환된 음력일의 연, 월, 일이 기존변수에 덮어씌어집니다.

GF_LUN2SOL(SYEAR, SMONTH, SDAY, SWEEK) 함수는 반대로 음력을 양력으로 변환시키는데,
원하는 음력일을 SYEAR, SMONTH, SDAY에 초기하고
함수를 실행시키면 SYEAR, SMONTH, SDAY에 양력일이 저장되고,
WEEK에는 요일이 영어문자열로 저장되게 됩니다.(예; "SUN")


### birthday_lunar.inc ###
설명1.
option explicit 코드는 최종해석된 ASP 페이지의 최상단에서 선언되어야 합니다.

설명2. (himinok 님 설명)
2005년 12월, 2006년 1월이 잘못 저장되어 있더라고요..
2005년12월은 29일로 끝나는데 30일로 끝나게표시되고,
2006년 1월은 30일로 끝나는데 29일로 끝나게 표시되더군요...
따라서 LTBL(124), LTBL(125)부분을 아래로 변경하면 잘못이 바로잡아집니다.
(1은 29일까지, 2는 30일까지, 3은 반복을 뜻합니다)
LTBL(124) = "1212122122110" '기존 1212122122120 를 변경
LTBL(125) = "2121212322122" '기존 1121212322122 를 변경

### birthday.asp 에 적용
<%
      RESULT = GF_LUN2SOL(birth_y, birth_m, birth_d, birth_w)
     ' 음력 <-> 양력으로 전환된 값에서 10 미만인경우 한자리 숫자로 환산됩니다.
     ' 모두 2자리로 표현하고 싶을때 아래와 같이 적용
      if len(birth_m) < 2 then
        birth_m = "0" & birth_m
      end if
      if len(birth_d) < 2 then
        birth_d = "0" & birth_d
      end if
%>

<%
dim result
dim SYEAR, SMONTH, SDAY, SWEEK

SYEAR = "2001"
SMONTH = "1"
SDAY = "1"
SWEEK = ""

response.write "음력 = " & SYEAR & "년 " & SMONTH & "월 " & SDAY & "일 ==> "
RESULT = GF_LUN2SOL(SYEAR, SMONTH, SDAY, SWEEK)
response.write "양력 = " & SYEAR & "년 " & SMONTH & "월 " & SDAY & "일" & SWEEK & " 입니다" & "
"

response.write "양력 = " & SYEAR & "년 " & SMONTH & "월 " & SDAY & "일" & SWEEK & " ==> "
RESULT = GF_SOL2LUN(SYEAR, SMONTH, SDAY)
response.write "음력 = " & SYEAR & "년 " & SMONTH & "월 " & SDAY & "일 입니다" & "
"
%>### " 첨자 사용이 잘못되었습니다 "  오류메시지가 나올때
- 년도가 1881년 이전값을 디비에서 불러오거나, 년도가 1~3자인경우


참고사이트
http://devpia.com/MAEUL/Contents/Detail.aspx?BoardID=57&MAEULNO=22&no=541
http://devpia.com/MAEUL/Contents/Detail.aspx?BoardID=286&MAEULNO=22&no=4330
http://kin.naver.com/detail/detail.php?d1id=1&dir_id=101&eid=ANzhpUIbvyWzO1rOvz8tvb6hzmqe1gs2&qb=TFRCTCgxMjQpID0gIjEyMTIxMjIxMjIxMTAi