Excelでイースターの日付を計算する方法は？

ご存知のとおり、イースター休暇は常に最初の日曜日であり、21月XNUMX日以降に発生する最初の教会の満月の後、毎年のイースターの日付は次のスクリーンショットのように異なる場合があります。 特定の年の特定のイースターの日付を取得するために、この記事はあなたに有利かもしれません。

式を使用して特定の年のイースターの日付を計算します

ユーザー定義関数を使用して、特定の年のイースター日付を計算します

式を使用して特定の年のイースターの日付を計算します

特定の年のイースターの日付を取得するには、次の式が役立ちます。次のようにしてください。

1。 次の式を入力します。 =FLOOR("5/"&DAY(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 与えられた年の横の空白のセルに、 B2たとえば、スクリーンショットを参照してください。

2。 次に、指定した日付のイースターの日付を計算するセルまで塗りつぶしハンドルをドラッグすると、セルにXNUMX桁の数字が表示されます。スクリーンショットを参照してください。

3。 次に、数値を日付形式としてフォーマットする必要があります。

（1.）5桁の数字を選択し、右クリックして選択します セルの書式設定 コンテキストメニューから。

（2.）飛び出した セルの書式設定 ダイアログボックスで、をクリックします。 数 タブ、および選択 日付 カテゴリー ペインで、右側のリストボックスから好きな日付形式をXNUMXつ選択します。スクリーンショットを参照してください。

4。 そして、数字は必要に応じて日付形式としてフォーマットされており、指定された年のイースターの日付を取得できます。スクリーンショットを参照してください。

ユーザー定義関数を使用して、特定の年のイースター日付を計算します

以下 ユーザー定義関数 また、特定の年のイースターの日付を計算するのに役立ちます。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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） 対応するデータの横の空白のセルに入力し、塗りつぶしハンドルをこの数式を適用するセルまでドラッグすると、XNUMX桁の数字が表示されます。スクリーンショットを参照してください。

5。 次に、必要に応じて数値を日付形式に変更する必要があります。 上記の方法のステップ3を参照して、現在までにフォーマットしてください。.