Hallo,
wer kennt eine Formel in Excel wo ich das Datum von Ostern berechnen kann.
mfg Erhard
Hallo Erhard
Wie folgt:
Gruss
S. Widmer
Sub OsterSonntag()
Antwort = InputBox(„Geben Sie eine vierstellige Jahreszahl ein“, _
„Ostersonntag berechnen“, Format(Date, „yyyy“))
If Antwort = „“ Then End
MsgBox Format(Ostern(CInt(Antwort)), „d. mmmm yyyy“)
End Sub
Private Function Ostern(Jahr As Integer)
Dim d As Integer
d = (((255 - 11 * (Jahr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Jahr, 3, 1) + d + (d > 48) + _
6 - ((Jahr + Jahr \ 4 + d + (d > 48) + 1) Mod 7)
End Function
Hallo Erhard,
geh mal zu:
http://www.pflegenet.com/
dort liegt unter edv/software/freeware
ein von mir gestalteter EXCEL-Kalender „exkal.xls“ Alle Formeln sind offen, bzw. mit dem dort vorhandenen Passwort zu öffnen.
Die Ostertagsformel stammt übrigens von hilfsbereiten Menschen und wurde an diesem Brett gepostet.
Ullrich
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
ich möchte allen herzlichst Danken die mir bei meinen Problem weiter geholfen haben
mfg Erhard
Private Function Ostern(Jahr As Integer)
Dim d As Integer
d = (((255 - 11 * (Jahr Mod 19)) - 21)
Mod 30) + 21
Ostern = DateSerial(Jahr, 3, 1) + d +
(d > 48) + _
6 - ((Jahr + Jahr \ 4 + d + (d >
48) + 1) Mod 7)
End Function
Wobei diese Formel nur im Bereich 1900 - 2048 gilt und m.E. für 1954 und 1981 falsche Werte liefert…
Reinhard