Wie berechnet man das Osterdatum in Excel?

Wie wir alle wissen, ist das Osterfest immer der erste Sonntag nach dem ersten kirchlichen Vollmond, der am oder nach dem 21. März stattfindet, daher kann das Osterdatum jedes Jahres unterschiedlich sein, wie im folgenden Screenshot gezeigt. Um das spezifische Osterdatum eines bestimmten Jahres zu erhalten, kann dieser Artikel Ihnen helfen.

Osterdatum eines bestimmten Jahres mit einer Formel berechnen

Osterdatum eines bestimmten Jahres mit einer benutzerdefinierten Funktion berechnen

Osterdatum eines bestimmten Jahres mit einer Formel berechnen

Um das Osterdatum eines bestimmten Jahres zu erhalten, kann die folgende Formel Ihnen helfen. Bitte gehen Sie wie folgt vor:

1. Geben Sie diese Formel ein: =FLOOR("5/"&TAG(MINUTE(A2/38)/2+56)&"/"&A2,7)-34 in eine leere Zelle neben Ihrem angegebenen Jahr, B2 zum Beispiel, siehe Screenshot:

2. Ziehen Sie dann den Ausfüllkursor nach unten in die Zellen, für die Sie das Osterdatum des angegebenen Datums berechnen möchten, und es werden fünfstellige Zahlen in den Zellen angezeigt, siehe Screenshot:

3. Danach sollten Sie die Zahlen im Datumsformat formatieren:

(1.) Wählen Sie die fünfstelligen Zahlen aus und klicken Sie mit der rechten Maustaste, um Zellen formatieren aus dem Kontextmenü auszuwählen;

(2.) Wählen Sie im erscheinenden Dialogfeld Zellen formatieren die Registerkarte Zahl aus, und wählen Sie Datum aus dem Kategorie-Bereich aus, dann wählen Sie ein gewünschtes Datumsformat aus der rechten Liste aus, siehe Screenshot:

4. Anschließend wurden die Zahlen in das benötigte Datumsformat formatiert, und Sie können das Osterdatum des angegebenen Jahres erhalten, siehe Screenshot:

Osterdatum eines bestimmten Jahres mit einer benutzerdefinierten Funktion berechnen

Die folgende benutzerdefinierte Funktion kann Ihnen ebenfalls helfen, das Osterdatum eines bestimmten Jahres zu berechnen.

1. Halten Sie die Tasten ALT + F11 gedrückt, dann öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Osterdatum eines bestimmten Jahres berechnen:

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. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein: =easterdate(A2) in eine leere Zelle neben Ihren entsprechenden Daten, und ziehen Sie dann den Ausfüllkursor nach unten in die Zellen, auf die Sie diese Formel anwenden möchten. Sie erhalten einige fünfstellige Zahlen, siehe Screenshot:

5. Danach sollten Sie die Zahlen in das benötigte Datumsformat ändern. Bitte sehen Sie sich Schritt 3 der obigen Methode an, um sie in ein Datum zu formatieren.