提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

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

doc计算复活节日期1

众所周知,复活节假期总是第一个星期天,在三月21之后或之后发生的第一次教会的满月,所以每年的复活节日期可能不同于以下截图所示的日期。 要获得特定年份的特定复活节日期,本文可能会帮助您。

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

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


箭头蓝色右泡 用公式计算给定年份的复活节日期

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

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


箭头蓝色右泡 用用户定义函数计算给定年份的复活节日期

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

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。 然后,您应该根据需要将数字更改为日期格式。 请查看上述方法的step3以将其格式化为日期.



推荐的Excel生产力工具

Kutools for Excel帮助您提前完成工作,并从人群中脱颖而出

  • 超过300强大的高级功能,专为1500工作场景设计,通过70%提高生产力,让您有更多时间照顾家庭和享受生活。
  • 不再需要记忆公式和VBA代码,从现在起让你的大脑休息一下。
  • 成为3分钟的Excel专家,复杂和重复的操作可以在几秒钟内完成,
  • 每天减少成千上万的键盘和鼠标操作,现在告别职业病。
  • 110,000高效人才和300 +世界知名公司的选择。
  • 60-day full功能免费试用。 60天退款保证。 2多年的免费升级和支持。

将选项卡式浏览和编辑带到Microsoft Office,远比浏览器的选项卡强大

  • Office选项卡专为Word,Excel,PowerPoint和其他Office应用程序设计:Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Paul · 2 months ago
    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!
    • To post as a guest, your comment is unpublished.
      Paul · 1 months ago
      Yes I've had some problems with variations on that formula. Check 2011, 2038, 2052, and 2079, all 7 days early.