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"..

【 함수 요약 】음력일자를 날짜형식의 양력으로 변환(변환가능일자 : 인터넷사용시 - 기원전 음력59년  ~ 2100년, 인터넷 미사용시 1900~2100년)  이 함수는 EGTools 추가기능에서 지원하는 함수입니다.양력을 음력으로 변환하는 함수는 TOLUNAR입니다.【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= TOSOLAR (  Date , [ LeapMonth ] , [ Delimiter ] , [ API ] ) 【 함수 인수 】인수명옵션기본값설    명Date필수없음양력으로 전환할 날짜형식의 문자열로 아래 4가지 형태를 지원함YYYY-MM-DD, YYYY/MM/DD, YYYY.MM.DD, YYYYMMDD(v4.3.3 예정) YYYY-MM-DD(윤), YYYY-윤M-DD 형태 추가..

【 함수 요약 】양력일자를 음력으로 변환하여 평월은YYYY-MM-DD으로, 윤달은 YYYY-MM-DD(윤)으로 변환(변환가능일자 : 인터넷 연결시 - 기원전 59년 ~ 2100년, 인터넷 미사용시 - 1900~2100년)  이 함수는 EGTools 추가기능에서 지원하는 함수입니다.음력을 양력으로 변환하는 함수는 TOSOLAR입니다.【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= TOLUNAR (  Date  , [ Delimiter ] , [ API ] ) 【 함수 인수 】인수명옵션기본값설    명Date필수없음음력으로 전환할 날짜형식의 문자열로 아래 4가지 형태를 지원함YYYY-MM-DD, YYYY/MM/DD, YYYY.MM.DD, YYYYMMDDDelimiter선택"-"출력할 음력의 ..