كيف يمكن حساب تاريخ عيد الفصح في 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، وسيؤدي ذلك إلى فتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل