Oster-Algorithmus

11/06/2010 - 00:29 von Arnulf Sopp | Report spam
Moin!

Gauß hat einen prima Algorithmus zum Bestimmen des Ostersonntags gefunden.
Den kenne ich zwar, aber über Google kriege ich ihn nicht für VBA.
Vermutlich habe ich nicht die Geduld, Abertausende Fundstellen zu
überprüfen.

Wer kennt eine schöne VBA-Version dafür (oder deren Quelle im Web)?

Meine Anwendung: Man soll sich auf einem ausgedruckten Plan für eine
bestimmte Zeit einen Raum reservieren können, ohne dabei in die
Feiertagsfalle zu tappen - das wàre ein Tag weniger Arbeitszeit in diesem
Raum.

Im voraus schon mal danke!

Arnulf
 

Lesen sie die antworten

#1 Michael Schwimmer
11/06/2010 - 02:18 | Warnen spam
Hallo Arnulf

On Fri, 11 Jun 2010 00:29:32 +0200, Arnulf Sopp wrote:
Gauß hat einen prima Algorithmus zum Bestimmen des Ostersonntags gefunden.

Wer kennt eine schöne VBA-Version dafür (oder deren Quelle im Web)?



Public Function Ostern(Jahr As Long) As Date '1900-2100
Ostern = CDate(Int((Abs(Abs(Jahr - 2015) - 47.5) = _
13.5) + 0.9 + (DateSerial(Jahr, 3, 21) + _
((204 - 11 * (Jahr Mod 19)) Mod 30)) / 7) * 7 + 1)
'Neujahr = DateSerial(Jahr, 1, 1)
'Karfreitag = Ostern - 2
'Ostermontag = Ostern + 1
'Himmelfahrt = Ostern + 39
'Pfingstsonntag = Ostern + 49
'Pfingstmontag = Ostern + 50
'Maifeiertag = DateSerial(Jahr, 5, 1)
'Tag_der_Einheit = DateSerial(Jahr, 10, 3)
'Heiligabend = DateSerial(Jahr, 12, 24)
'Erster_Weihnachtsfeiertag = DateSerial(Jahr, 12, 25)
'Zweiter_Weihnachtsfeiertag = DateSerial(Jahr, 12, 26)
'Sylvester = DateSerial(Jahr, 12, 31)
'BussUndBettag = DateSerial(Jahr, 11, 22) - _
WeekDay(DateSerial(Jahr, 11, 25), vbSunday)
End Function

Viele Grüße
Michael

Ähnliche fragen