Làm thế nào để tính toán ngày lễ Phục sinh trong Excel?

Như chúng ta đã biết, ngày lễ Phục sinh luôn là Chủ nhật đầu tiên sau ngày trăng tròn đầu tiên của Giáo hội xảy ra vào hoặc sau ngày 21 tháng XNUMX, vì vậy ngày lễ Phục sinh của mỗi năm có thể là ngày khác nhau như ảnh chụp màn hình sau. Để biết ngày lễ Phục sinh cụ thể của một năm nhất định, bài viết này có thể giúp bạn một việc.

Tính ngày lễ Phục sinh của năm nhất định với công thức

Tính toán ngày lễ Phục sinh của năm nhất định với chức năng do người dùng xác định

Tính ngày lễ Phục sinh của năm nhất định với công thức

Để biết ngày Lễ Phục sinh của năm nhất định, công thức sau có thể giúp bạn, vui lòng thực hiện như sau:

1. Nhập công thức này: =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 vào một ô trống bên cạnh năm nhất định của bạn, B2, ví dụ, xem ảnh chụp màn hình:

2. Sau đó kéo chốt điền xuống các ô mà bạn muốn tính ngày Phục sinh của một ngày nhất định và các số có năm chữ số được hiển thị trong các ô, xem ảnh chụp màn hình:

3. Và sau đó bạn nên định dạng các số của anh ấy thành định dạng ngày tháng:

(1.) Chọn các số có 5 chữ số và nhấp chuột phải để chọn Format Cells từ menu ngữ cảnh;

(2.) Trong ô bật ra Format Cells hộp thoại, nhấn Con số Tab, và chọn Ngày từ Phân loại , sau đó chọn một định dạng ngày bạn thích từ hộp danh sách bên phải, xem ảnh chụp màn hình:

4. Và sau đó, các con số đã được định dạng thành định dạng ngày mà bạn cần và bạn có thể lấy ngày Phục sinh của năm nhất định, xem ảnh chụp màn hình:

Tính toán ngày lễ Phục sinh của năm nhất định với chức năng do người dùng xác định

Sau đây Chức năng do người dùng xác định cũng có thể giúp bạn tính toán ngày Phục sinh của một năm cụ thể.

1. Giữ ALT + F11 chìa khóa, sau đó nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Tính ngày lễ Phục sinh của năm nhất định:

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. Sau đó, lưu và đóng mã này, quay lại trang tính và nhập công thức này: = ngày phục sinh (A2) vào một ô trống bên cạnh dữ liệu tương ứng của bạn, sau đó kéo chốt điền xuống các ô mà bạn muốn áp dụng công thức này, bạn sẽ nhận được một số số có năm chữ số, xem ảnh chụp màn hình:

5. Và sau đó bạn nên thay đổi các số sang định dạng ngày tháng khi bạn cần. Vui lòng xem bước 3 của phương pháp trên để định dạng chúng thành ngày.