أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

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

رابط المشاركة من هنا

فتذكرت أن لدي ملف به أربعة عشر طريقة بالمعادلات لمعرفة السنة الكبيسة من السنة العادية

في الملف المرفق : يتم وضع السنة في الخلية D4 بهذا الشكل مثلاً 2015 أو 2016 أو اكتب السنة التي تريد معرفة ما إذا كانت سنة كبيسة أم لا ..

المعادلات موجودة في النطاق D7:D20 ، وتعطي النتيجة TRUE إذا كانت السنة كبيسة ، وتعطي القيمة FALSE إذا كانت السنة عادية وليست كبيسة ..

قم بالذهاب إلى إدارة الأسماء Name Manager لتجد أن هناك نطاقات مسماة ، سوف تستخدم في المعادلات ..

النطاق الأول المسمى Year يشير إلى الخلية D4 التي بها السنة المراد اختبارها

ثم أربعة نطاقات لأربعة شهور ...الأول ليناير بهذا الشكل : اسم النطاق jan1st والمعادلة المرتبطة بهذا الاسم في إدارة الأسماء

=DATE(year,1,1)

حيث يشير إلى أول يوم في شهر يناير في السنة المحددة في الخلية D4 ...

ونفس الكلام لثلاثة نطاقات للشهور feb1st و mar1st و april1st

وآخر النطاقات المسماة هو febDays لحساب عدد أيام شهر فبراير للسنة المحددة في الخلية D4

=DATE(year,2,ROW('leap year check'!$A$1:INDEX('leap year check'!$A$1:$A$29,DAY(EOMONTH(feb1st,0)))))

وأخيراً إليكم المعادلات المستخدمة لحساب ومعرفة ما إذا كانت السنة كبيسة أم غير كبيسة

=DATE(year+1,1,1)-jan1st=366

=DATE(year,2,29)<>mar1st

=DAY(EOMONTH(feb1st,0))=29

=WEEKDAY(feb1st)<>WEEKDAY(mar1st)

=YEAR(jan1st)=YEAR(jan1st+365)

=DATE(year,2,30)=mar1st

=DAY(DATE(year,3,0))=29

=WEEKDAY(jan1st)=WEEKDAY(apr1st)

=SUMPRODUCT(--(WEEKDAY(DATE(year,ROW($A$2:$A$12),1))=WEEKDAY(jan1st)))=2

=WEEKDAY(feb1st+1)<>WEEKDAY(EDATE(feb1st,12))

=SUMPRODUCT(--(WEEKDAY(febDays)=WEEKDAY(feb1st)))=5

=WEEKDAY(feb1st)=WEEKDAY(EOMONTH(feb1st,0))

=WEEKDAY(feb1st)=WEEKDAY(DATE(year,10,17))

=((MOD(year,4)=0)*((MOD(year,100)<>0)+(MOD(year,400)=0))=1)

أرجو أن ينال الموضوع إعجابكم

وأترككم مع الملف المرفق

 

حمل الملف من هنا

 

كان معكم أخوكم أبو البراء من منتدى أوفيسنا

تقبلوا تحياتي

[عبدالله فاروق ابو ريان]

جزاك الله خيرا استاذ ياسر

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي العزيز عبد الله فاروق

تقبل تحياتي

[محمد حسن المحمد]

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

جزاكم الله خيراً ..أخي الحبيب أبو البراء..

على هذه المعادلات الرائعة والكثيفة أمام دالة قدمتها لأستاذنا الكبير يحيى حسين ..جزاكم الله وإياه خيراً على ما تقدمونه.

بارك الله...(من أعجبه شيء من أمر صاحبه فليبرّك ) ليقل بارك الله ..خير من خمسة وخميسة ..ودقوا على الخشب ..وعيني باردة ..فإنها بدع لا تمتّ بصلة إلى الدين .

الحديث: حدثناه أبو العباس محمد بن يعقوب ، ثنا بحر بن نصر ، ثنا ابن وهب ، أخبرني يوسف بن طهمان ، عن محمد بن أبي أمامة بن سهل بن حنيف ، أنه سمع أباه يقول : اغتسل أبي سهل بن حنيف فنزع جبة كانت عليه يوم حنين حين هزم الله العدو ، وعامر بن ربيعة ينظر ، قال : وكان سهل رجلا أبيض حسن الخلق ، فقال له عامر بن ربيعة : ما رأيت كاليوم قط ، ونظر إليه فأعجبه حسنه حين طرح جبته ، فقال : ولا جارية في سترها بأحسن جسدا من جسد سهل بن حنيف ، فوعك سهل مكانه ، واشتد وعكه ، فأتى رسول الله صلى الله عليه وآله وسلم ، فأخبره أن سهل بن حنيف وعك ، وأنه غير رائح معك ، فأتاه رسول الله صلى الله عليه وآله وسلم ، فأخبروه بالذي كان من شأن عامر ، فقال رسول الله صلى الله عليه وآله وسلم : " علام يقتل أحدكم [ ص: 509 ] أخاه ، ألا بركت ، إن العين حق ، توضأ له " ، ثم قال رسول الله صلى الله عليه وآله وسلم : " إذا رأى أحدكم شيئا يعجبه فليبرك فإن العين حق " . " هذه الزيادات في الحديثين جميعا مما لم يخرجاه . 

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

تم تعديل أبريل 7, 2016 بواسطه محمد حسن المحمد

[ياسر خليل أبو البراء]

وعليكم السلام أخي الحبيب أبو يوسف

بارك الله فيك وجزاك الله كل خير .. والفضل لله عزوجل ثم لك في طرح هذا الموضوع ، فأنت من أوحى لي بفكرة الموضوع ..

تقبل وافر تقديري واحترامي

[ناصر سعيد]

بارك الله فيك وجزاك الله كل خير

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز ناصر وجزيت خيراً بمثل ما دعوت لي

مشكور على مرورك الكريم بالموضوع

[عبدالله فاروق ابو ريان]

استاذ ياسر خليل انا جربتها على سنة 1900 لم تعمل
وممكن حضرتك تشوف المعادلة دي كدة بتنفع مع اي سنة
على افتراض أن السنة موجودة بالخلية A3

=IF(A3<>"",IF(OR(MOD(A3,400)=0,AND(MOD(A3,4)=0,MOD(A3,100)<>0)),"سنة كبيسة","سنة بسيطة"),"")

 

[أبوبسمله]

بارك الله فيك يا ابو البراء

وجزاك الله كل خير

[ياسر خليل أبو البراء]

أخي الكريم عبد الله فاروق

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

أخي الحبيب أحمد الفلاحجي

بقالك كام يوم غطساااااااااان .. خير اللهم اجعله خير ..متعودناش على بعدك عن المنتدى

تقبلوا تحياتي

[أبوبسمله]

حبيبى يا ابوالبراء

شوية ارهاق وبحاول اخلص الجزء من التدريب احسن العربى شاكله هيضرب بجد ههههههههههههه

تسلم ياريس على سؤالك

[عبدالله فاروق ابو ريان]

استاذي ياسر خليل هي زي ماحضرتك قلت ممكن 

التقويم الميلادي لا يعمل قبل تاريخ محدد وجزاكم الله خيرا على المجهودات الرائعة والابداع الاكثر من رائع

[ياسر خليل أبو البراء]

أخي الكريم عبد الله فاروق

قمت بعمل ملف ووضعت بعض السنوات ووضعت الثلاثة معادلات ...معادلة أبو يوسف ومعادلتك واخترت معادلة من الأربعة عشر معادلة مع عدم الاعتماد على النطاق المسمى

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

أرجو أن يكون الملف مفيد

حمل الملف من هنا (رابط دعائي واحد)

[عبدالله فاروق ابو ريان]

استاذي ياسر خليل سنوات ال 100  بسيطة مثل 1700، 1800، 1900، 2100، 2200، 2300، 2500، 2600

والسنوات الكبيسة من ال 100 هي  السنوات الكبيسة، السنوات التالية:

1600، 2000، 2400

راجع الرابط ده

https://support.microsoft.com/ar-sa/kb/214019

 

تم تعديل أبريل 7, 2016 بواسطه عبدالله فاروق ابو ريان

[ياسر خليل أبو البراء]

جميل أخي الحبيب عبد الله

بارك الله فيك وجزاك الله خيراً على هذه المعلومة القيمة

[saad abed]

7 ساعات مضت, محمد حسن المحمد said:

الحديث: حدثناه أبو العباس محمد بن يعقوب ، ثنا بحر بن نصر ، ثنا ابن وهب ، أخبرني يوسف بن طهمان ، عن محمد بن أبي أمامة بن سهل بن حنيف ، أنه سمع أباه يقول : اغتسل أبي سهل بن حنيف فنزع جبة كانت عليه يوم حنين حين هزم الله العدو ، وعامر بن ربيعة ينظر ، قال : وكان سهل رجلا أبيض حسن الخلق ، فقال له عامر بن ربيعة : ما رأيت كاليوم قط ، ونظر إليه فأعجبه حسنه حين طرح جبته ، فقال : ولا جارية في سترها بأحسن جسدا من جسد سهل بن حنيف ، فوعك سهل مكانه ، واشتد وعكه ، فأتى رسول الله صلى الله عليه وآله وسلم ، فأخبره أن سهل بن حنيف وعك ، وأنه غير رائح معك ، فأتاه رسول الله صلى الله عليه وآله وسلم ، فأخبروه بالذي كان من شأن عامر ، فقال رسول الله صلى الله عليه وآله وسلم : " علام يقتل أحدكم [ ص: 509 ] أخاه ، ألا بركت ، إن العين حق ، توضأ له " ، ثم قال رسول الله صلى الله عليه وآله وسلم : " إذا رأى أحدكم شيئا يعجبه فليبرك فإن العين حق " . " هذه الزيادات في الحديثين جميعا مما لم يخرجاه . 

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

اخوانى

جزاكم الله خير

بارك الله فيكم

اكسيل وبرمجه وثقافة دينية

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي الكريم سعد...أسعد الله أوقاتكم بنور الإيمان ..

بما أن الإنسان كلٌّ متكاملٌ ...يحتاج لتغذية جسده ونفسه وروحه فبالإمكان أن تجمع له بين أمرين ...فتكون كمن جلس بحديقة استنشق روائح عطور أزهارها وورودها واستمتع بمنظرها وخضرة أشجارها واختلاف ألوان أزاهيرها...وكل من هذه له مخزن في ذاكرته ..فإن استرجع تلك الجلسة تذكر عبق عطورها وألق جمالها ونضرتها ...فاستمتع بالذكرى وحنّ إليها..

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

[عبد العزيز البسكري]

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

جمعة مباركة إن شاء الله

بارك الله فيكم أجمعين و جزاكم خير الجزاء  و زادكم من علمه و فضله

خالص تحياتي

 

[جلال الجمال_ابو أدهم]

ما شاء الله عليك

[سليم حاصبيا]

1 ساعه مضت, جلال الجمال_ابو أدهم said:

ما شاء الله عليك

يمكن اضافة هذه المعادلة

=IF(MONTH(DATE(YEAR(A1),2,29))=2,"Kabissa","non")

حيث A1 هو اي تاريخ