لونار باس:
هذه وحدة يتناوب فيها التقويم الوطني والتقويم القمري بين بعضهما البعض.
السنوات كلها في سنة جمهورية الصين، يرجى التحويل بنفسك (سنة 1911 = سنة جمهورية الصين).
*شرح جدول مراسلات التقويم القمري الصيني:*
* أول رقمين = الشهر الكبيس، إذا كان 13، فلا يوجد شهر كبيس*
* الأرقام من الثالث إلى السادس = الرمز الثنائي لحجم الـ 12 شهرًا -> العلامة العشرية*
* على سبيل المثال: *
*101010101010 = 2730 *
* 1: يمثل الشهر الكبير (30 يومًا) 0: يمثل الشهر الأصغر (29 يومًا) ==> عمر شهر واحد، شهرين صغيرين، عمر 3 أشهر... *
*الرقم السابع هو عدد أيام الشهر الكبيس*
*0: عدد الأيام بدون شهر كبيس*
*1: الشهر الكبيس شهر صغير (29 يوم)*
*2: الشهر الكبيس شهر كبير (30 يوما)*
*الرقمان الأخيران يمثلان عدد الأيام الفرق بين 1 يناير من التقويم الشمسي و1 يناير من التقويم القمري*
****************************************************************************************************************************************************************************** * *****
يغطي جدول التعيين هذا فقط السنة الأولى لجمهورية الصين إلى السنة الأولى لجمهورية الصين. إذا لم يكن كافيًا لاستخدامك، فيرجى إضافته بنفسك وفقًا للطريقة المذكورة أعلاه.
لا يحدد هذا البرنامج ما إذا كانت السنة والشهر واليوم التي أدخلتها صحيحة، يرجى اتخاذ قرارك الخاص.
إذا كان الشهر القمري المحول شهرًا كبيسًا، فستكون القيمة التي تم تمريرها إليك ***رقمًا سالبًا***
إذا كنت تريد تحويل التقويم القمري إلى التقويم الوطني، وإذا كان شهرًا كبيسًا، فيرجى إدخال ***رقم سالب***
هذا الإصدار هو نسخة مجانية: 0.1
يمكنك تعديله بنفسك، لكن من الأفضل أن ترسل لي نسخة من البرنامج المعدل عبر البريد الإلكتروني.
إذا كنت تريد استخدامه لأغراض تجارية، يرجى مراسلتي عبر البريد الإلكتروني لتخبرني بالغرض والسبب.
المؤلف: بنغ هونغ جي البريد الإلكتروني: [email protected]
// التحويل من التقويم الوطني إلى التقويم القمري (جمهورية الصين سنة، شهر، يوم، سنة قمرية فار، شهر قمري، يوم قمري)
الإجراء Solar2Lunar(SYear, SMonth, Sday : Integer; Var LYear, LMonth, LDay : Integer);
// التحويل من التقويم القمري إلى التقويم الوطني (السنة القمرية، الشهر القمري، اليوم القمري، var سنة جمهورية الصين، الشهر، اليوم)
الإجراء Lunar2Solar(LYear, LMonth, LDay : Integer; Var SYear, SMonth, Sday : Integer);
// أدخل السنة القمرية لتحويل اسم الستين سنة
وظيفة YearName(LYear: عدد صحيح): سلسلة؛
// احصل على عدد أيام الشهر القمري
الدالة DaysPerLunarMonth(LYear, LMonth : Integer) : Integer;
كال.باس :
تقويم شهري يجمع بين التقويم الوطني والتقويم القمري في تقويم واحد (لا يتطلب مكون التطبيق الصيني Delpi 3.0).
(المدى: العام الأول لجمهورية الصين إلى العام المائة لجمهورية الصين)
عقار جديد:
LYear: السنة التقويمية القمرية لجمهورية الصين LMonth: الشهر التقويمي القمري (الأرقام السالبة هي الأشهر الكبيسة)
LDay: عدد الأيام في التقويم القمري LYearName: اسم فترة الستين سنة في التقويم القمري (للقراءة فقط)
المؤلف: بنغ هونغ جي البريد الإلكتروني: [email protected]
هذا الإصدار هو برنامج مجاني ويمكن توزيعه بحرية، ولكن حاول الحفاظ على سلامته إذا كان هناك أي أخطاء، يرجى مراسلتي عبر البريد الإلكتروني.
إذا كنت تريد إجراء تغييرات، يرجى إرسال نسخة لي عبر البريد الإلكتروني :)