كيفية حساب تاريخ عيد الفصح في 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 Function3. ثم احفظ وأغلق هذا الكود، عد إلى ورقة العمل وأدخل هذه الصيغة: =easterdate(A2) في خلية فارغة بجانب بياناتك المقابلة، ثم اسحب مقبض التعبئة إلى الأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، ستحصل على بعض الأرقام المكونة من خمسة أرقام، انظر لقطة الشاشة:
5. وبعد ذلك يجب عليك تغيير الأرقام إلى تنسيق التاريخ الذي تحتاجه. يرجى الاطلاع على الخطوة 3 من الطريقة أعلاه لتنسيقها إلى تاريخ.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد