跳至主要内容

如何在Excel中计算复活节日期?

Author: Xiaoyang Last Modified: 2025-05-07
calculate Easter date

众所周知,复活节假期总是在3月21日或之后的第一个教会满月之后的第一个星期日,因此每年的复活节日期可能会有所不同,如下截图所示。要获取特定年份的复活节日期,本文可能会对您有所帮助。

使用公式计算给定年份的复活节日期

使用用户定义函数计算给定年份的复活节日期


arrow blue right bubble 使用公式计算给定年份的复活节日期

要获取给定年份的复活节日期,以下公式可以帮助您,请按以下步骤操作:

1. 在给定年份旁边的空白单元格(例如B2)中输入此公式:=FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 ,参见截图:

use a formula to calculate Easter date

2. 然后将填充柄向下拖动到您想要计算给定日期的复活节日期的单元格,并且单元格中会显示五位数字,参见截图:

drag and fill the formula to other cells

3. 然后您应该将这些数字格式化为日期格式:

(1.) 选择五位数字并右键单击以从上下文菜单中选择“ 设置单元格格式”;

(2.) 在弹出的“设置单元格格式”对话框中,点击“数字”选项卡,并从“分类”窗格中选择“日期”,然后从右侧列表框中选择一个您喜欢的日期格式,参见截图:

set date format in Format Cells dialog box

4. 然后,这些数字已被格式化为您需要的日期格式,并且您可以获取给定年份的复活节日期,参见截图:

the numbers are formatted as the date format

提示要将数字格式化为您常用的日期格式,您还可以使用Kutools for Excel的“应用日期格式”工具,如下截图所示:

format numbers to any date format by kutools


arrow blue right bubble 使用用户定义函数计算给定年份的复活节日期

以下用户定义函数也可以帮助您计算特定年份的复活节日期。

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),然后将填充柄向下拖动到您想应用此公式的单元格,您将得到一些五位数的数字,参见截图:

use a user defined function to calculate easter date

5. 然后您应根据需要将数字更改为日期格式。请查看上述方法的步骤3以将其格式化为日期

最佳办公效率工具

🤖 Kutools AI 助手:基于智能执行生成代码创建自定义公式分析数据并生成图表调用 Kutools 函数等功能,彻底改变数据分析方式…
热门功能查找、高亮或标记重复项 | 删除空行 | 合并不丢失数据的列或单元格 | 四舍五入 ...
高级 LOOKUP多条件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 ....
高级下拉列表快速创建下拉列表 | 从属下拉列表 | 多选下拉列表 ....
列管理器添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域和列 ...
精选功能网格聚焦 | 设计视图 | 增强编辑栏 | 工作簿与工作表管理器 | 资源库(自动文本) | 日期提取 | 合并数据 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊筛选(筛选粗体/斜体/删除线...)...
排名前 15 的工具集12 种文本 工具添加文本删除特定字符等) | 50 多 种图表 类型甘特图等) | 40 多种实用 公式基于生日计算年龄等) | 19 种插入 工具插入二维码根据路径插入图片等) | 12 种转换 工具小写金额转大写汇率转换等) | 7 种合并与分割 工具高级合并行分割单元格等) | 还有更多...

使用 Kutools for Excel 提升您的 Excel 技能,体验前所未有的高效。 Kutools for Excel 提供超过 300 种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...


Office Tab 将标签式界面引入 Office,让您的工作更加轻松

  • 在 Word、Excel、PowerPoint 中启用标签式编辑和阅读
  • 在同一窗口的新标签页中打开和创建多个文档,而不是在新窗口中进行操作。
  • 将您的生产力提升 50%,每天为您减少数百次鼠标点击!