سالم الجعيدي 0 Report post Posted March 13, 2005 التقويم القبطي من التقاويم الشمسية وهو مبني على أساس المعمول في التقويم المصري القديم وقد اعتبر فيه دورة الشمس 365 يوماً وربع فهو كالتقويم الميلادي اليولياني ومبدؤه من حكم الملك الأنطاكي دقلديانوس وسبب ذلك أن هذا الملك اضطهد الأقباط وقتل منهم خلقاً كثيراً فسموا حكمه ( عصر الشهداء ) وجعلوا مبدأ حكمه أول تاريخهم وأول يوم من السنة القبطية توافق شروق شمس يوم الجمعة 29 أغسطس 284 ميلادية وينقسم هذا التقويم إلى 12 شهراً بكل شهر 30 يوماً ويلحق بعد الشهر الأخير 5 أيام في البسيطة و 6 أيام في السنة الكبيسة وتسمى أيام النسىء ويعد التقويم القبطي أسهل التقويم الشمسية من حيث الحساب ولا يزال العمل به سارياً بالقطر المصري للآن وأسماء شهوره كالاتي الشهر الأول توت الثاني بابه الثالث هاتور الرابع كيهك الخامس طوبه السادس أمشير السابع برمهات الثامن برموده التاسع بشنس العاشر بؤنة الحادي عشر أبيب الثاني عشر مسرى ثم يأتي بعد ذلك أيام النسيء وهو 5أيام في البسيط و6 أيام في الكبيسة ويعرف السنة الكبيسة بأنها السنة التي تقبل القسمة على 4 بدون باقي بعد حذف 3 منها أي ( السنة – 3 ) ÷ 4 وللتحويل من ميلادي إلى قبطي نتبع الخطوات التالية إن كان الشهر الميلادي أصغر أو يساوي 2 إذن أ = الشهر + 12 ب = السنة – 1 وإن كان الشهر أكبر من 2 إذن أ = الشهر ب = السنة ج = ب ÷ 100 ( احذف الكسر مطلقاً من الحاصل ) د = ب ÷ 400 ( احذف الكسر مطلقاً ) ع = 2 – ج + د إن كان حسابك لتاريخ أصغر من 15 أكتوبر من عام 1582 فإن ع = صفر دائماً و = ( ب + 4716 ) × 365.25 ( احذف الكسر ) ز = ( أ + 1 ) × 30.6001 ( احذف الكسر ) ح = الأيام + ز + و + ع - 1826553 ط = ح ÷ 365.25 حاصل العنصر ط يحتوي على أعداد صحيحة وكسر عشري السنة القبطية = العدد الصحيح + 1 ك = الكسر العشري في العنصر ط × 12.175 حاصل العنصر ك يحتوي على عد صحيح و كسر عشري الشهر القبطي = العدد الصحيح في العنصر ك + 1 الأيام = الكسر العشري في العنصر ك × 30 ( اجبر الكسر بواحد إن بلغ النصف أو أكثر ) مثال 13 أكتوبر 1893 م أ = 10 ب = 1893 ج = 1893 ÷ 100 = 18 د = 1893 ÷ 400 = 4 ع = 2 - 18 + 4 = -12 و = ( 1893 + 4716 ) × 365.25 = 2413937 ز = ( 10 + 1 ) × 30.6001 = 336 ح = 13 + 336 +2413937 - 12 - 1826553 = 587721 ط = 587721 ÷ 365.25 = 1609.09240246 العنصر ط يحتوي على أعداد صحيحة وهي 1609 وكسر عشري هو 0.09240246 السنة القبطية = 1609 + 1 = 1610 ك = 0.09240246 × 12.175 = 1.124999951 الشهر القبطي = 1 + 1 = 2 الأيام = 0.124999951 × 30 = 4 بجبر الكسر إذن 13 أكتوبر 1893 يوافق 4 شهر بابه عام 1610 قبطي أخوكم سالم الجعيدي Share this post Link to post Share on other sites
eng_george1 0 Report post Posted April 21, 2006 فعلا اخى العزيز سالم فان موضوعك مميز جدا وانا شخصيا جربتة وكانت النتيجة ممتازة ولكن لى رجاء محتاج طريقة تحويل من التقويم القبطى الى التقويم الميلادى اى عكس ما تفضلت بشرحة ولكم منى جزيل الشكر Share this post Link to post Share on other sites
eng_george1 0 Report post Posted April 25, 2006 اخوانى الاعزاء لقد قمت بتصميم البرنامج بلغة الفيجول بيسك وها هو بين يديكم وطبعا الفضل الاول والاخير لصاحب المشاركة الاصلى استاذنا سالم الجعيدي coptic_convert.rar Share this post Link to post Share on other sites
pargout 0 Report post Posted June 10, 2007 اخى سالم السلام عليكم ورحمة الله وبركاته هذا الموضوع بالفعل رائع جدا ولكنى جربته بالفعل ووجدة به خطار فى الايام يعنى اذا وضعت مثال بالتاريخ 8/7/2007 ، 9/7/2007 ستجد انا التاريخ القبطى اليوم واح اى فى اليومين ستجد التاريخ القبطى 1/10/1723 واذا وضعت مثال اخر بالتاريخ 31/12/2007 ، 1/1/2008 ستجد انا التاريخ القبطى لشهر 12 هو 14/،،/1724 والاخر 9/،،/1724 انا حقيقى لست فاكر الشهر الناتج ولكن كان هو نفس الشهر ولكن اليوم للاول (12) اكبر من اليوم للثانى (1) انا جربت هذه المعادله على برنامج الاكسيل وكانت النتيجه كما اوضحة لسيادتك ممكن اكون انا غلط فى تنفيذ المعادله بالاكسيل لكن احاول ان اعرف حضرتك كى تقوم بهذة الامثله وتخبرنا ولك جزيل التقدير والاحترام . من وليد Share this post Link to post Share on other sites
kbcm 0 Report post Posted June 11, 2007 شكرا لك أخ سالم على هذه المعلومات و المعادلات و لكن أحب أوضح أن اول يوم فى السنه القبطيه يوافق يوم 11 سبتمبر من السنه الميلاديه و ليس يوم 29 أغسطس لذا يوجد خطأ فى هذه المعادله لو تفضلت شاكرا أن تشرح لنا كيف تسير هذه المعادله و لك جزيل الشكر Share this post Link to post Share on other sites
aymhenry 0 Report post Posted June 22, 2009 شكرا لك أخ سالم على هذه المعلومات و المعادلات و لكن أحب أوضح أن اول يوم فى السنه القبطيه يوافق يوم 11 سبتمبر من السنه الميلاديه و ليس يوم 29 أغسطس لذا يوجد خطأ فى هذه المعادله لو تفضلت شاكرا أن تشرح لنا كيف تسير هذه المعادله و لك جزيل الشكر كلام سليم بداية السنة 11 سبتمر هذة الايام و لكن أول يوم فى السنة القبطية الأولى يوافق يوم الجمعة 29 أغسطس سنة 284 ميلادية . ويرجع تاريخ هذا اليوم إلى أن الأمبراطور دقلديانوس Diocletion إضطهد المسيحيه وقتل من أقباط مصر خلقا كثيرا فكان حكمه عصر الشهداء و اصبح مبدأ حكمه أول تاريخ الشهداء . احب ان اضيف اننى اطلعت على عدد من التواريخ فى كتاب تاريخى قبطى قديم و بة تواريخ قديمة بالميلادى و تاريخ الشهداء - كتاب السنكسار و كانت المعادلة المذكورة تعطى نتائج سليمة الا فى يوم واحد افترضة خطأ من المؤرخ الميلادية السنة شهر يوم قبطى -سنة - شهر -يوم الدليل من كتاب السنكسار جزاء 2 = p2 - ثم رقم الصفحة 1870 1 18 1586 5 11 p2-235 good 1862 6 15 1578 10 9 p2-234 error 1092 6 6 808 10 12 p2-236 good 1078 3 18 794 7 22 p2-237 good 1927 8 10 1643 12 4 p2-244 good 567 6 22 283 10 28 p2-275 good Share this post Link to post Share on other sites
aymhenry 0 Report post Posted June 23, 2009 اخى سالم السلام عليكم ورحمة الله وبركاته هذا الموضوع بالفعل رائع جدا ولكنى جربته بالفعل ووجدة به خطار فى الايام يعنى اذا وضعت مثال بالتاريخ 8/7/2007 ، 9/7/2007 ستجد انا التاريخ القبطى اليوم واح اى فى اليومين ستجد التاريخ القبطى 1/10/1723 واذا وضعت مثال اخر بالتاريخ 31/12/2007 ، 1/1/2008 ستجد انا التاريخ القبطى لشهر 12 هو 14/،،/1724 والاخر 9/،،/1724 انا حقيقى لست فاكر الشهر الناتج ولكن كان هو نفس الشهر ولكن اليوم للاول (12) اكبر من اليوم للثانى (1) انا جربت هذه المعادله على برنامج الاكسيل وكانت النتيجه كما اوضحة لسيادتك ممكن اكون انا غلط فى تنفيذ المعادله بالاكسيل لكن احاول ان اعرف حضرتك كى تقوم بهذة الامثله وتخبرنا ولك جزيل التقدير والاحترام . من وليد عفوا يوجد لديك خطا - ان ايضا استخدمت اكسل 31 ديسمبر 2007 هو 21 كهيك شهر 4 1724 1 يناير 2008 هو 22 كهيك Share this post Link to post Share on other sites
سر الكون 0 Report post Posted December 10, 2009 السلام عليكم اخوتي الكرام بالامكان اختصار هذه المعادلات الطويله الى مختصر مفيد السنه هي1893/4=473.25 وهي سنه بسيطه لان الكبيسه نضيف يوم الى شهر فبراير 1893*365.2425=691404.0525 نضيف ما مضى 286 يصبح 691690.0525/365.2425=1893.783041-283.653858=1610.129183*0.999979466=1610.096121 0.096121*365.25=35.081989 التاريخ هو 5/2/1610 قبطي مع خالص تحياتي سر الكون Share this post Link to post Share on other sites
tyty 0 Report post Posted December 26, 2009 سلام استخدمت الطريقة المشروحة اعلاه والنتيجة كانت جيدة لكن فى بعض التواريخ كانت تخلف يوم مثل يوم 31 يناير 1999 التاريخ القبطى لة 23 طوبة 1715 لكن بالحسابات تعطى 22 طوبة فأين الخطأ وهذة هى الطريقة التى استخدمها وهى بلغة الفيجوال بيزك Day_M = Day(Date) Month_M = Month(Date) Year_M = Year(Date) Year_G = Date Dim a, B, C, D, E, F, G, H, I, J, L, M, N As Long If Month_M <= 2 Then a = Month_M + 12 B = Year_M - 1 Else a = Month_M B = Year_M End If C = Int(B / 100) D = Int(B / 400) E = 2 - C + D If Year_G < "15/10/1582" Then E = 0 F = Int((B + 4716) * 365.25) G = Int((a + 1) * 30.6001) H = Day_M + G + F + E - 1826553 I = H / 365.25 J = I - Int(I) K = I - J L = J * 12.175 M = L - Int(L) N = L - M Year_C = Int(K) + 1 Month_C = Int(N) + 1 Day_C = Round(M * 30, 0) Share this post Link to post Share on other sites
أبو هادي 0 Report post Posted December 27, 2009 السلام عليكم لقد صممت لكم هذا الكود خصيصا للفيجوال بيزك : Function Greg2Coptic(ByVal yy As Integer, _ ByVal mm As Integer, _ ByVal dd As Integer) As String Dim Days As Long Days = DateSerial(yy, mm, dd) + 365 + 589990 yy = Fix((Days - 1 + 0.75) / 365.25) Days = Days - Fix(yy * 365.25) mm = Fix((Days - 1) / 30) dd = Days - mm * 30 mm = mm + 1 Greg2Coptic = Format(dd, "00/") & Format(mm, "00/") & Format(yy, "0000") End Function تحياتي . Share this post Link to post Share on other sites
الرئيس 0 Report post Posted December 28, 2009 ياااسلام عليك يابوهادي تعجنبي بحضورك الحسابي المدهش ماشاء الله دمت لنا وللمنتدى Share this post Link to post Share on other sites
أبو هادي 0 Report post Posted December 28, 2009 السلام عليكم شكرا لك أخي الرئيس ودمت بصحة وعافية . بما أن الكود مصمم لتقويم الفيجوال بيزك يلزم الإنتباه للتالي : - التقويم هو الجريجوري وليس له علاقة بقفزة عشرة الأيام لتصحيح التقويم اليولياني بمعنى أن ما قبل تاريخ 15/10/1582م هو 14/10/1582م وليس 04/10/1582م . - عند الرغبة في الحصول على التاريخ القبطي قبل 01/01/0001 قبطي يلزم تبديل الدالة Fix بدالة Int . - لا ينصح باستخدام تقويم الفيجول بيزك قبل عام 101 جريجوري . تحياتي . Share this post Link to post Share on other sites
adam13 0 Report post Posted January 17, 2010 السلام عليكم لقد صممت لكم هذا الكود خصيصا للفيجوال بيزك : Function Greg2Coptic(ByVal yy As Integer, _ ByVal mm As Integer, _ ByVal dd As Integer) As String Dim Days As Long Days = DateSerial(yy, mm, dd) + 365 + 589990 yy = Fix((Days - 1 + 0.75) / 365.25) Days = Days - Fix(yy * 365.25) mm = Fix((Days - 1) / 30) dd = Days - mm * 30 mm = mm + 1 Greg2Coptic = Format(dd, "00/") & Format(mm, "00/") & Format(yy, "0000") End Function تحياتي . أخى كيف يمكن تنفيذ هذا الكود على ملف اكسل Share this post Link to post Share on other sites
أبو هادي 0 Report post Posted January 17, 2010 السلام عليكم ملف اكسل مرفق . تحياتي . Coptic.zip Share this post Link to post Share on other sites
adam13 0 Report post Posted January 18, 2010 حياك الله أخ ابو هادى على هذا الكود الرائع ولكن كنت محتاج أن أعرف هل هناك طريقة تقوم بعكس ذلك المعادلة تقوم بتحويل الميلادى لقبطى هل هناك طريقة تقوم بعكس ذلك ولك جزيل الاحترام والشكر Share this post Link to post Share on other sites