ostern

[Frankvas]

gibt es eine laufzeit funktion um in einen programm das osterdatum zu ermitteln ? als tabellen function steht das zur verfügung ? Ich benötige das um in einer tabelle ein kalender zu erstellen .

grüsse

[Stephan]

gibt es eine laufzeit funktion um in einen programm das osterdatum zu ermitteln ?

meines Wissens - nein.

als tabellen function steht das zur verfügung ?

Ja --> OSTERSONNTAG()


Gruß
Stephan

[Charly]

Hallo!

Man kann die Funktion Ostersonntag auch selbst programmieren. Grundlage ist die Formel des Mathematikers Friedrich Gauß.
Um nicht mit der eingebauten Funktion Ostersonntag in Konflikt zu kommen, habe ich die Funktion Ostertag genannt.

Code: Alles auswählen

Function Ostertag(Jahreszahl)

 a = Jahreszahl - 1900
 b = a Mod 19
 c = (7 * b + 1) \ 19
 d = (11 * b + 4 - c) Mod 29
 e = a \ 4
 f = (a + e + 31 - d) Mod 7
 g = 25 - d - f
 h = 4
 if g < 1 then 
 h = 3
 g = g + 31
 end if 
 Ostertag = Format(DateSerial(Jahreszahl, h, g), _
 "dd.mm.yyyy")
 End Function

Ich habe das schon mal in Excel verwendet. In OpenOffice hat mir jetzt bei der Umsetzung das DateSerial Schwierigkeiten gemacht, Excel kann da Minustage (=g) verarbeiten, OpenOffice dagegen nicht. Aber mit meiner IF-Abfrage konnte ich das Problem lösen.


Gruß
Charly

[Frankvas]

sieht gut aus werde die formel in mein programm einbauen
besten dank

frank