ไปยังเนื้อหาหลัก

วิธีคำนวณวันอีสเตอร์ใน Excel

doc คำนวณวันอีสเตอร์ 1

อย่างที่เราทราบกันดีว่าวันหยุดเทศกาลอีสเตอร์มักจะเป็นวันอาทิตย์แรกซึ่งจะเกิดขึ้นหลังจากพระจันทร์เต็มดวงครั้งแรกของศาสนาคริสต์ที่เกิดขึ้นในวันที่ 21 มีนาคมหรือหลังวันที่ XNUMX มีนาคมดังนั้นวันอีสเตอร์ของแต่ละปีอาจเป็นวันที่แตกต่างกันตามภาพหน้าจอต่อไปนี้ หากต้องการทราบวันอีสเตอร์ที่เฉพาะเจาะจงของปีใดปีหนึ่งบทความนี้อาจช่วยคุณได้

คำนวณวันอีสเตอร์ของปีที่กำหนดด้วยสูตร

คำนวณวันอีสเตอร์ของปีที่กำหนดด้วย User Defined Function

ลูกศรสีฟ้าฟองขวา คำนวณวันอีสเตอร์ของปีที่กำหนดด้วยสูตร

หากต้องการรับวันอีสเตอร์ของปีที่กำหนดสูตรต่อไปนี้สามารถช่วยคุณได้โปรดทำดังนี้:

1. ใส่สูตรนี้: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 ลงในเซลล์ว่างข้างปีที่คุณกำหนด B2ตัวอย่างเช่นดูภาพหน้าจอ:

doc คำนวณวันอีสเตอร์ 2

2. จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการคำนวณวันอีสเตอร์ของวันที่ที่กำหนดและตัวเลขห้าหลักจะแสดงในเซลล์ดูภาพหน้าจอ:

doc คำนวณวันอีสเตอร์ 3

3. จากนั้นคุณควรจัดรูปแบบตัวเลขเป็นรูปแบบวันที่:

(1. ) เลือกตัวเลข 5 หลักและคลิกขวาเพื่อเลือก จัดรูปแบบเซลล์ จากเมนูบริบท

(2. ) ที่โผล่ออกมา จัดรูปแบบเซลล์ คลิกตกลง จำนวน และเลือก วันที่ จาก หมวดหมู่ บานหน้าต่างจากนั้นเลือกรูปแบบวันที่ที่คุณต้องการจากกล่องรายการด้านขวาดูภาพหน้าจอ:

doc คำนวณวันอีสเตอร์ 4

4. จากนั้นตัวเลขจะถูกจัดรูปแบบเป็นรูปแบบวันที่ตามที่คุณต้องการและคุณจะได้รับวันอีสเตอร์ของปีที่กำหนดดูภาพหน้าจอ:

doc คำนวณวันอีสเตอร์ 5

เคล็ดลับ: ในการจัดรูปแบบตัวเลขให้เป็นรูปแบบวันที่ที่คุณใช้ตามปกติคุณยังสามารถใช้ยูทิลิตีใช้การจัดรูปแบบวันที่ของ Kutools for Excel ตามภาพหน้าจอต่อไปนี้:

doc คำนวณวันอีสเตอร์ 6

ลูกศรสีฟ้าฟองขวา คำนวณวันอีสเตอร์ของปีที่กำหนดด้วย User Defined Function

ดังต่อไปนี้ ฟังก์ชันที่ผู้ใช้กำหนด ยังสามารถช่วยคุณคำนวณวันอีสเตอร์ของปีใดปีหนึ่ง

1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = อีสเตอร์วันที่ (A2) ลงในเซลล์ว่างข้างข้อมูลที่เกี่ยวข้องจากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการใช้สูตรนี้คุณจะได้รับตัวเลขห้าหลักดูภาพหน้าจอ:

doc คำนวณวันอีสเตอร์ 7

5. จากนั้นคุณควรเปลี่ยนตัวเลขเป็นรูปแบบวันที่ตามที่คุณต้องการ โปรดดูขั้นตอนที่ 3 ของวิธีการข้างต้นเพื่อจัดรูปแบบให้เป็นปัจจุบัน.

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (11)
No ratings yet. Be the first to rate!
hztamas
hztamas
This comment was minimized by the moderator on the site
Excel verison, more simple, you only have to change L3 at the beginning to the cell where you will put the year (like 2022) in. 
=LET(Y;L3;A;MOD(Y;19);B;MOD(Y;4);C;MOD(Y;7);D;MOD(19*A+24;30);E;MOD(2*B+4*C+6*D+5;7);H;IFS(AND(E=6;D=29);50;AND(E=6;D=28;A>10);49;TRUE;22+D+E);IF(H<=31;DATE(Y;3;H);DATE(Y;4;H-31)))
Reply
Report
0
0
MandyZhou
MandyZhou     hztamas
This comment was minimized by the moderator on the site
Hello hztamas, Thank you a lot for your share. I changed the ";" to "," in your formula so it can work in Excel. I have data (like 2013) in cell A1.=LET(Y,A1,A,MOD(Y,19),B,MOD(Y,4),C,MOD(Y,7),D,MOD(19*A+24,30),E,MOD(2*B+4*C+6*D+5,7),H,IFS(AND(E=6,D=29),50,AND(E=6,D=28,A>10),49,TRUE,22+D+E),IF(H<=31,DATE(Y,3,H),DATE(Y,4,H-31)))This formula works, but I think it is not so much simpler than the formula in the article. Anyway, I think they are both great. Thanks again!Sincerely,Mandy
Reply
Report
0
0
hztamas
hztamas
This comment was minimized by the moderator on the site
It works on google sheets. It is very long but works without error for the problematic years too (what you mentioned here). You can copy to a cell and in K1 cell the year is expected, like 2022

=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))
Reply
Report
0
0
MandyZhou
MandyZhou     hztamas
This comment was minimized by the moderator on the site
Hello hztamas,
Thanks for your share. This formula does work without error on google sheets. Thanks!
Sincerely,
Mandy
Reply
Report
0
0
Tami
Tami
This comment was minimized by the moderator on the site
It works on google sheets. It is very long but works without error for the problematic years too (what you mentioned here). You can copy to a cell and in K1 cell the year is expected, like 2022
=DATE(K1;IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;3;4);IF((IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);50;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))<=31;IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7));(IFS(AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=29);50;AND(MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)=6;MOD(19*MOD(K1;19)+24;30)=28;MOD(K1;19)>10);49;TRUE;22+MOD(19*MOD(K1;19)+24;30)+MOD(2*MOD(K1;4)+4*MOD(K1;7)+6*MOD(19*MOD(K1;19)+24;30)+5;7)))-31))

Reply
0
0
MandyZhou
MandyZhou     Tami
This comment was minimized by the moderator on the site
Hello Tami,Thanks for your share. This formula does work without error on google sheets. Thanks!Sincerely,Mandy
Reply
Report
0
0
Lawrence
Lawrence
This comment was minimized by the moderator on the site
Is there a similar Excel Formula to figure out the Chinese New Year since it's also a Lunar Calendar Holiday?
Reply
0
0
What about orthodox
What about orthodox
This comment was minimized by the moderator on the site
What about orthodox easter? Is there a code for that as well?
Reply
0
0
Robbie G
Robbie G
This comment was minimized by the moderator on the site
Also 2108 gives 2108-Mar-31, should be 2108-Apr-1.
Reply
0
0
Paul
Paul
This comment was minimized by the moderator on the site
I translated your formula for Dutch Excel like this (year in A81):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

The formula gives 2079-04-16 for Easter 2079. This should be 2079-04-23. The rest of the 21st century looks ok!
Reply
0
0
Paul
Paul     Paul
This comment was minimized by the moderator on the site
Yes I've had some problems with variations on that formula. Check 2011, 2038, 2052, and 2079, all 7 days early.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations