الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل التاريخ من الميلادي للهجري

مغلق
بدأه booknet في 27 نوفمبر 2006 · 1 رد · 3,095 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

وجدت هذه المعادلة للأخ سالم الجعيدي والتي يمكن ان نحول فيها التاريخ من الميلادي للهجري، وعملتها برنامجا مرفقا مع هذا الموضوع.

وشكرا

والطريقة الحسابية كالتالي

إن كان الشهر الميلادي أصغر أو يساوي 2

إذن

أ = الشهر + 12

ب = السنة الميلادية – 1

وإن كان الشهر الميلادي أكبر من 2 فإن

أ = الشهر

ب = السنة

ج = ب ÷ 100 ( إحذف الكسر مطلقاً)

د = ب ÷ 400 ( احذف الكسر مطلقاً )

ع = 2 – ج + د

ملاحظة : إذا كان حسابك لتاريخ يقع قبل 15 أكتوبر 1582 م

فإن ع = صفر دائماً

و = ( ب + 4716 ) × 365.25 ( احذف الكسر مطلقاً )

ز = ( أ + 1 ) × 30.6001 ( أحذف الكسر مطلقاً )

ح = الأيام + ز + و + ع – 1524.5

ط = ح – 1937806.5

ك = ( ط – 1 ) ÷ 10631 ( احذف الكسر مطلقاً )

ل = ( ط + 354 ) – 10631 × ك

م = ( 10985 – ل ) ÷ 5316 (احذف الكسر )

ن = ( 50 × ل ) ÷ 17719 ( احذف الكسر )

س = ل ÷ 5670 ( احذف الكسر )

ف = ( 43 × ل ) ÷ 15238 ( احذف الكسر )

ق = م × ن + س × ف

ص = ( 30 – ق ) ÷ 15 ( احذف الكسر )

ر = ( 17719 × ق ) ÷ 50 ( احذف الكسر )

ش = ق ÷ 16 ( احذف الكسر )

ت = ( 15238 × ق ) ÷ 43 ( احذف الكسر )

ث = ل – ص × ر – ش × ت + 29

الشهر الهجري = ( 24 × ث ) ÷ 709 ( احذف الكسر )

غ = ( 709 × الشهر الهجري ) ÷ 24 ( احذف الكسر )

اليوم الهجري = ث – غ

السنة الهجرية = 30 × ك + ق – 30

d.zip

هذا الموضوع مغلق.

مواضيع مشابهة