EGTools

EGTools 추가기능에서 지원하는 음력 변환 함수인 ToLunar() 함수에 대한 소스코드 설명입니다. 천문연구원의 API를 이용하여 음력으로 전환할 수도 있지만, Excel은 인터넷이 없는 환경에서도 양력을 음력으로 변환할 수 있도록 만들었습니다. 지원되는 양력 구간은 1900-01-01부터 2100-12-31까지입니다. (2023.08-23일 확장) 10여년도 훨씬 전에 SQL Table로 만들어서 변환하던 것에서 착안하여 VBA에서 Table보다는 Array를 이용하는 것이 훨씬 유리하기 때문에 Array를 이용한 날짜 세기 방식으로 만든 것입니다. 배열은 3개를 사용합니다. Dim LY As Variant, LM As Variant, LType As Variant Ltype()에는 각 월의 날수..

ToLunar와 ToSolar 함수를 EGTools에 추가하면서 실제 변환이 정확한지 확인하는 것을 천문연구원에서 제공하는 API를 이용해서 확인을 했었는데, 여기에 사용한 코드입니다. 천문연구원에서는 양력기준으로 기원전 59년 2월 13일부터 2050년 12월 31일까지의 양력/음력 날짜를 제공합니다. 양력 달력을 이용하기 위한 API를 주소는 https://astro.kasi.re.kr/life/solc? 이며 yyyy, mm, dd 3가지를 양력으로 입력합니다. 조회 결과는 아래와 같은 형태로 반환됩니다. {"SOLC_WEEK":"토","SOLC_DD":"01","SOLC_LEAP_YYYY":"평","JULIAN_DD":"18","JULIAN_YYYY":"2017","LUNC_YYYY":"2017"..

【 함수 요약 】 음력일자를 날짜형식의 양력으로 변환 (변환가능일자 : 음력1999년 12월 1일 ~ 2099년 12월 31일) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 양력을 음력으로 변환하는 함수는 TOLUNAR입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = TOSOLAR ( Date , [LeapMonth] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Date 필수 없음 양력으로 전환할 날짜형식의 문자열로 아래 3가지 형태를 지원함 YYYY-MM-DD, YYYY/MM/DD, YYYYMMDD LeapMonth 선택 False 생략하거나 False로 지정하면 평달, True로 지정하면 윤달의 Date 【 함수 상세 설명 】 Date는 음력날짜로 문자열 ..

【 함수 요약 】 양력일자를 음력으로 변환하여 평월은YYYY-MM-DD으로, 윤달은 YYYY-MM-DD(윤)으로 변환 (변환가능일자 : 1900년1월1일 ~ 2099년12월31일) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 음력을 양력으로 변환하는 함수는 TOSOLAR입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = TOLUNAR ( Date ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Date 필수 없음 음력으로 전환할 날짜형식의 문자열로 아래 3가지 형태를 지원함 YYYY-MM-DD, YYYY/MM/DD, YYYYMMDD 【 함수 상세 설명 】 Date는 양력날짜로 문자열 형태로 입력되어야 함 (YYYY-MM-DD, YYYY/MM/DD, YYYYMMDD)..