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

众所周知，复活节假期始终是21月XNUMX日或之后发生的第一个教会满月之后的第一个星期日，因此每年的复活节日期可能与以下屏幕截图所示的日期不同。 为了获得给定年份的特定复活节日期，本文可能会对您有所帮助。

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

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

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

要获取给定年份的复活节日期，以下公式可以为您提供帮助，请执行以下操作：

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

2。 然后将填充手柄向下拖动到要计算给定日期的复活节日期的单元格，并在单元格中显示五位数字，请参见屏幕截图：

3。 然后，您应该将他的数字格式化为日期格式：

（1.）选择5位数字，然后右键单击以选择 单元格格式 从上下文菜单中；

（2.）在弹出 单元格格式 对话框，单击 联系电话 选项卡，然后选择 日期 来自 分类 窗格，然后从右侧列表框中选择您喜欢的一种日期格式，请参见屏幕截图：

4。 然后，数字已根据需要设置为日期格式，可以获取给定年份的复活节日期，请参见屏幕截图：

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

下列 用户定义功能 还可以帮助您计算特定年份的复活节日期。

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。 然后保存并关闭此代码，返回工作表并输入以下公式： = easterdate（A2） 放入对应数据旁边的空白单元格中，然后将填充手柄向下拖动到要应用此公式的单元格上，您将获得一些五位数字，请参见屏幕截图：

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