OpenOffice.info

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

frank

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

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]
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
[/code]

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

[quote]gibt es eine laufzeit funktion um in einen programm das osterdatum zu ermitteln ?[/quote]

meines Wissens - nein.

[quote]als tabellen function steht das zur verfügung ?[/quote]

Ja --> OSTERSONNTAG()


Gruß
Stephan

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