تقويم الهجري القمري

[أبو هادي 0]

تقويمي الهجري القمري

دقة التقويم تعتمد على نظام الكبس فيه وكلما طلبت دقة أكبر في التقويم تعقد نظام الكبس فيه ، ومع كثرة التقاويم القديمة منها والجديدة ، البسيطة في أنظمة الكبس فيها والمعقدة غالبا سيحتاج المرء لاستخدام القلم والورق أو الآلة الحاسبة لمعرفة طول السنة وطول الشهر الكبيس ويبقى باقي الشهور يستطيع البعض حفظها وبعظهم يرجع لجدول الشهور.

عليه وجدت أن معاناة البحث عن معيار أو نظام للكبس أصبح شيئا من الماضي ويمكن التعويض عنه بإجراءات وخطوات بسيطة تؤدي إلى نتائج الأدق على الإطلاق ولا تحتاج إلى تصحيح مع مرملايين السنين بشرط أن يتوفر متوسط طول السنة الصحيح.

عليه قمت بتصميم مجموعة تقاويم ضمن برنامج تقويم المصطفى قسم التقويم المقارن ومنها التقويم الهجري القمري.

وقد قمت بتصميم إجراء VB لتوضيح معرفة طول السنة وطول الشهر بمعادلة من سطر واحد وبعديدة عن تعقيدات القوانين وأنظمة الكبس والتصحيحات.

Sub myHijriLunarTest()
  Dim yyAvg As Double
  Dim yy As Long, yyLen As Integer
  Dim mm As Byte, mmLen As Byte

  yyAvg = 354.366939435999
  yy = 1441
  mm = 3

  '-- لمعرفة طول السنة
  yyLen = Round((yy - 0) * yyAvg, 0) _
        - Round((yy - 1) * yyAvg, 0)

  '-- لمعرفة طول الشهر
  mmLen = Round(((yy - 1) + (mm - 0) / 12) * yyAvg, 0) _
        - Round(((yy - 1) + (mm - 1) / 12) * yyAvg, 0)

  Debug.Print yyLen, mmLen
  '355 		30

End Sub