Лунный.Пас:
Это единица, в которой национальный календарь и лунный календарь чередуются друг с другом.
Все годы указаны в году Китайской Республики, пожалуйста, конвертируйте самостоятельно (1911 год = год Китайской Республики).
*Пояснения к таблице соответствия китайского лунного календаря: *
* Первые две цифры = високосный месяц, если 13, то високосного месяца нет*
* Третья-шестая цифры = двоичный код размера 12 месяцев -> десятичный*
* Например: *
* 101010101010 = 2730 *
* 1: представляет большой месяц (30 дней) 0: представляет маленький месяц (29 дней) ==> 1 месяц, 2 месяца маленький, 3 месяца... *
*Седьмая цифра — количество дней в високосном месяце*
* 0: Количество дней без високосного месяца*
*1: Високосный месяц — маленький месяц (29 дней) *
*2: Високосный месяц — большой месяц (30 дней) *
*Последние две цифры обозначают разницу в количестве дней между 1 января по солнечному календарю и 1 января по лунному календарю*
**************************************************** * *****
Эта таблица сопоставления охватывает только первый год Китайской Республики и первый год Китайской Республики. Если вам этого недостаточно, добавьте ее самостоятельно, используя описанный выше метод.
Эта программа не определяет правильность введенных вами года, месяца и дня. Пожалуйста, примите решение самостоятельно :(
Если преобразованный лунный месяц является високосным, переданное вам значение будет ***отрицательным числом***.
Если вы хотите преобразовать лунный календарь в национальный календарь, если это високосный месяц, введите ***отрицательное число***
Эта версия является бесплатной. Версия: 0.1.
Вы можете изменить ее самостоятельно, но лучше всего отправить мне копию измененной программы по электронной почте.
Если вы хотите использовать его в коммерческих целях, напишите мне, чтобы сообщить мне свою цель и причину.
Автор: Пэн Хунцзе Электронная почта: [email protected]
//Конвертируем из национального календаря в лунный календарь (год, месяц, день Китайской Республики, лунный год, лунный месяц, лунный день)
процедура Solar2Lunar(SYear, SMonth, SDay : Integer; Var LYear, LMonth, LDay : Integer);
//Конвертируем из лунного календаря в национальный календарь (лунный год, лунный месяц, лунный день, год Китайской Республики, месяц, день)
процедура Lunar2Solar(LYear, LMonth, LDay : Integer; Var SYear, SMonth, SDay : Integer);
//Введите лунный год, чтобы преобразовать шестидесятилетнее название
функция YearName(LYear: целое число): строка;
//Получаем количество дней в лунном месяце
функция DaysPerLunarMonth(LYear, LMonth: Integer) : Integer;
кал.Пас:
Ежемесячный календарь, объединяющий национальный календарь и лунный календарь (не требует китайского компонента приложения Delpi 3.0).
(Диапазон: от 1-го года Китайской Республики до 100-летия Китайской Республики)
Новая недвижимость:
LYear: лунный календарный год Китайской Республики. LMonth: лунный календарный месяц (отрицательные числа — високосные месяцы).
LDay: количество дней в лунном календаре. LYearName: название шестидесятилетнего периода в лунном календаре (только чтение).
Автор: Пэн Хунцзе Электронная почта: [email protected]
Эта версия является бесплатной и может распространяться свободно, но постарайтесь сохранить ее целостность. Если есть какие-либо ошибки, напишите мне.
Если вы хотите внести изменения, пришлите мне копию по электронной почте ОК!
