كيفية حساب تاريخ عيد الفصح في Excel؟

كما نعلم جميعًا، فإن عطلة عيد الفصح دائمًا ما تكون أول يوم أحد بعد أول اكتمال قمري كنسي يحدث في أو بعد 21 مارس، لذلك قد يختلف تاريخ عيد الفصح لكل عام كما هو موضح في لقطة الشاشة التالية. للحصول على تاريخ عيد الفصح المحدد لعام معين، قد تساعدك هذه المقالة.
حساب تاريخ عيد الفصح لعام معين باستخدام صيغة
حساب تاريخ عيد الفصح لعام معين باستخدام دالة معرفة من قبل المستخدم
حساب تاريخ عيد الفصح لعام معين باستخدام صيغة
للحصول على تاريخ عيد الفصح لعام معين، يمكن أن تساعدك الصيغة التالية، يرجى القيام بما يلي:
1. أدخل هذه الصيغة: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 في خلية فارغة بجانب العام المحدد الخاص بك، B2، على سبيل المثال، انظر لقطة الشاشة:
2. ثم اسحب مقبض التعبئة إلى الأسفل إلى الخلايا التي تريد حساب تاريخ عيد الفصح فيها للتاريخ المحدد، وسيتم عرض أرقام مكونة من خمسة أرقام في الخلايا، انظر لقطة الشاشة:
3. وبعد ذلك يجب عليك تنسيق الأرقام بصيغة التاريخ:
(1.) حدد الأرقام المكونة من خمسة أرقام وانقر بزر الماوس الأيمن واختر تهيئة الخلايا من قائمة السياق؛
(2.) في مربع الحوار تهيئة الخلايا المنبثقة، انقر فوق علامة التبويب رقم، وحدد التاريخ من الجزء الفئة، ثم اختر تنسيق تاريخ واحد تحبه من مربع القائمة على اليمين، انظر لقطة الشاشة:
4. وبعد ذلك، يتم تنسيق الأرقام بصيغة التاريخ التي تحتاجها، ويمكنك الحصول على تاريخ عيد الفصح للعام المحدد، انظر لقطة الشاشة:
نصائح: لتنسيق الأرقام إلى تنسيق التاريخ الذي تستخدمه بشكل طبيعي، يمكنك أيضًا استخدام أداة تطبيق تنسيق التاريخ الخاصة بـ Kutools لـ Excel كما هو موضح في لقطة الشاشة التالية: |
حساب تاريخ عيد الفصح لعام معين باستخدام دالة معرفة من قبل المستخدم
يمكن أن تساعدك الدالة المعرفة من قبل المستخدم التالية أيضًا في حساب تاريخ عيد الفصح لعام معين.
1. اضغط باستمرار على مفتاحي ALT + F11، ثم يفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
رمز VBA: حساب تاريخ عيد الفصح لعام معين:
Public Function EasterDate(Yr As Integer) As Date
'Updateby Extendoffice 20160530
Dim x As Integer
x = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
EasterDate = DateSerial(Yr, 3, 1) + x + (x > 48) + 6 - ((Yr + Yr \ 4 + _
x + (x > 48) + 1) Mod 7)
End Function
3. ثم احفظ وأغلق هذا الكود، عد إلى ورقة العمل وأدخل هذه الصيغة: =easterdate(A2) في خلية فارغة بجانب بياناتك المقابلة، ثم اسحب مقبض التعبئة إلى الأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، ستحصل على بعض الأرقام المكونة من خمسة أرقام، انظر لقطة الشاشة:
5. وبعد ذلك يجب عليك تغيير الأرقام إلى تنسيق التاريخ الذي تحتاجه. يرجى الاطلاع على الخطوة 3 من الطريقة أعلاه لتنسيقها إلى تاريخ.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!