Note: The other languages of the website are Google-translated. Back to English

如何在Excel中計算復活節日期?

doc計算復活節日期1

眾所周知,復活節假期始終是21月XNUMX日或之後發生的第一個教會滿月之後的第一個星期日,因此每年的複活節日期可能與以下屏幕截圖所示的日期不同。 為了獲得給定年份的特定復活節日期,本文可能會對您有所幫助。

用公式計算給定年份的複活節日期

使用用戶定義的函數計算給定年份的複活節日期


箭頭藍色右氣泡 用公式計算給定年份的複活節日期

要獲取給定年份的複活節日期,以下公式可以為您提供幫助,請執行以下操作:

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的Apply Date Formatting實用程序,如以下屏幕截圖所示:

doc計算復活節日期6


箭頭藍色右氣泡 使用用戶定義的函數計算給定年份的複活節日期

下面 用戶自定義函數 還可以幫助您計算特定年份的複活節日期。

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) 到相應數據旁邊的空白單元格中,然後將填充手柄向下拖動到要應用此公式的單元格,您將獲得一些五位數字,請參見屏幕截圖:

doc計算復活節日期7

5。 然後,您應該根據需要將數字更改為日期格式。 請查看上述方法的步驟3以將其格式化為最新格式.


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (11)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
我這樣翻譯了你的荷蘭 Excel 公式(A81 年):
=AFRONDEN.BENEDEN(DATUM(A81;5;DAG(MINUUT(A81/38)/2+56));7)-34

該公式給出了 2079 年復活節的 04-16-2079。這應該是 2079-04-23。 21 世紀的剩餘時間看起來還不錯!
網站主持人對此評論進行了最小化
是的,我在該公式的變化方面遇到了一些問題。 提前 2011 天檢查 2038、2052、2079 和 7。
網站主持人對此評論進行了最小化
2108 也給出 2108-Mar-31,應該是 2108-Apr-1。
網站主持人對此評論進行了最小化
什麼是正統的複活節? 是否也有代碼?
網站主持人對此評論進行了最小化
是否有類似的 Excel 公式來計算農曆新年,因為它也是農曆假期?
網站主持人對此評論進行了最小化
它適用於谷歌表格。 它很長,但在有問題的年份也可以正常工作(您在此處提到的內容)。 您可以復製到一個單元格,在 K1 單元格中預計年份,例如 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))

網站主持人對此評論進行了最小化
你好塔米,謝謝你的分享。 這個公式在谷歌表格上沒有錯誤地工作。 謝謝!真誠的,曼迪
網站主持人對此評論進行了最小化
它適用於谷歌表格。 它很長,但在有問題的年份也可以正常工作(您在此處提到的內容)。 您可以復製到一個單元格,在 K1 單元格中預計年份,例如 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))
網站主持人對此評論進行了最小化
你好,
謝謝你的分享。 這個公式在谷歌表格上沒有錯誤地工作。 謝謝!
此致,
曼迪
網站主持人對此評論進行了最小化
Excel版本,更簡單,您只需將開頭的L3更改為您將放置年份(如2022)的單元格。 
=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)))
網站主持人對此評論進行了最小化
您好 hztamas, 非常感謝您的分享。 我改變了“;” 到“,”在您的公式中,以便它可以在 Excel 中工作。 我在單元格 A2013.=LET(Y,A1,A,MOD(Y,1),B,MOD(Y,19),C,MOD(Y,4),D,MOD(7) 中有數據(如 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)))這個公式有效,但我認為它並不比文章中的公式簡單得多。 不管怎樣,我覺得他們倆都很棒。 再次感謝!真誠的,曼迪
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護