Lunar.Pas:
국력과 음력이 번갈아 나타나는 단위입니다.
연도는 모두 중화민국 연도이므로 직접 변환하시기 바랍니다(1911년 = 중화민국 연도).
*중국 음력 대응표 설명: *
* 앞 두 자리 = 윤월, 13일 경우 윤월이 없음*
* 세 번째부터 여섯 번째 자리 = 12개월 크기의 이진수 -> 십진수*
* 예를 들어: *
* 101010101010 = 2730 *
* 1: 큰 달(30일)을 나타냅니다. 0: 작은 달(29일)을 나타냅니다. ==> 1개월, 2개월, 3개월... *
*일곱째 자리는 윤달의 일수입니다*
* 0: 윤월이 없는 일수*
* 1 : 윤달은 작은 달(29일)입니다 *
*2: 윤달은 큰 달입니다(30일) *
*마지막 두 자리는 양력 1월 1일과 음력 1월 1일의 일수 차이를 나타냅니다*
************************************************** * *****
이 매핑표는 중화민국 원년부터 중화민국 원년까지만 다루고 있습니다. 활용하기에 부족하다면 위의 방법에 따라 직접 추가해주세요 :)
이 프로그램은 귀하가 입력한 연도, 월, 일이 올바른지 여부를 판단하지 않습니다.
변환된 음력 달이 윤월인 경우 전달되는 값은 ***음수***입니다.
음력을 전국 달력으로 변환하고 싶은 경우, 윤달인 경우에는 ***음수***를 입력해 주세요.
이 버전은 FreeWare 버전: 0.1입니다.
직접 수정할 수도 있지만 수정된 프로그램의 사본을 이메일로 보내는 것이 가장 좋습니다.
상업적인 목적으로 사용하시려면 이메일로 목적과 이유를 알려주세요.
작성자: Peng Hongjie 이메일: [email protected]
//국가 달력에서 음력으로 변환(중화민국 연, 월, 일, var 음력 년, 음력 월, 음력 일)
절차 Solar2Lunar(SYear, SMonth, SDay : 정수; Var LYear, LMonth, LDay : 정수);
//음력을 국가 달력으로 변환(음력, 음력 월, 음력 일, var 중화민국 년, 월, 일)
절차 Lunar2Solar(LYear, LMonth, LDay : 정수; Var SYear, SMonth, SDay : 정수);
//60년 이름을 변환하려면 음력 연도를 입력하세요.
function YearName(LYear : 정수) : 문자열;
//음력의 일수를 구합니다.
function DaysPerLunarMonth(LYear, LMonth : Integer) : Integer;
칼.파스 :
국가 달력과 음력을 하나로 통합한 월간 달력입니다. (Delpi 3.0 중국어 애플리케이션 구성 요소가 필요하지 않습니다.)
(범위: 민국 1년부터 민국 100년까지)
새 속성:
LYear: 중화민국 음력 연도 LMonth: 음력 월(음수는 윤월)
LDay: 음력의 일수 LYearName: 음력 60년의 이름(읽기전용)
작성자: Peng Hongjie 이메일: [email protected]
이 버전은 FreeWare이며 자유롭게 배포할 수 있지만 버그가 있으면 이메일을 보내주세요.
변경하고 싶으시면 이메일로 보내주세요. :)
