EGTools

어떤 분이 조선왕조실록의 날짜를 변환하는 방법을 Excel로 구현하셨길래,1900~2100년의 음력/양력 변환을 함수로 만들어 둔것도 있고,천문연구원의 음력/양력 API를 이용하여 기원전 59년부터 일일 날짜 정보를 수집한 것도 있고,,,이 자료를 이용해서 API없이 1300~2100년까지 음력/양력 변환 및 조선왕조실록 기사에서 음력 또는 양력(그레고리력)으로 변환할 수 있도록 함수를 만들었습니다. EGTools 추가 기능에서 필요한 함수만 뽑아와서 만들었으므로 조금 가볍게 사용할 수 있습니다.혹시 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"..

【 함수 요약 】양력일자를 음력으로 변환하여 평월은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선택"-"출력할 음력의 ..