Andrew Diederich wrote:
On Thu, Mar 16, 2000 at 07:46:38PM +0100, Stefan Troeger wrote:
Hi,
On Thu, Mar 16 2000 at 18:32 +0100, Juergen Braukmann wrote:
A public hollyday -WHERE?- There is (and I must have it somewhere) a script that calculates easter from the year, a lot of non fixed public hollidays depend on that. (in Germany). This is *excuse* a visual basic for Excel script.
There's also code in kppp to calculate easter's date. And you can find rules to determine non fixed holidays from easter's date in kppp's accounting files (/opt/kde/share/apps/kppp/Rules).
Ciao, Stefan
Easter -WHERE?- Easter/Pascha is almost always different for the Eastern and Western churches, or Eastern and Western Europe if you prefer to look at things that way.
-Andrew
Yes. Thats a another sideline from this problem. I lied when I said it Excel-VB code. The "original" was, but the kind soul that put it on the net translated it to StarBasic first. It's penguin friendly ;-) The date is linked somehow to the first full moon after (or last before?) the beginning of spring (Fixed date 21st of March). I posted the sript back from work; but forgot the article that tells more about it. I do not know anything about "Pascha", it could be possible that this is linked to a fixed date and condition as well, so the script could be modified... ? It's not to long; I'll include it: Btw. The alorithm works only between 1900 and 2077, for invalid dates a 1.1.1000 will be returned. Function Ostern(Jahr As Integer) As Date Dim A, B, C, D, E, M, N, O, Monat As Integer If Jahr < 1900 Or Jahr > 2078 Then ' ausserhalb des Bereiches: 1.1.1000 zur}ckgeben Ostern = DateSerial(1000, 1, 1) Else M = 24 N = 5 A = Jahr Mod 19 B = Jahr Mod 4 C = Jahr Mod 7 D = (19 * A + M) Mod 30 E = ((2 * B) + (4 * C) + (6 * D) + N) Mod 7 O = 22 + D + E If O > 31 Then O = D + E - 9 Monat = 4 If O = 26 Then O = 19 ElseIf O = 25 And D = 28 And (Jahr Mod 19) > 10 Then O = 18 EndIf Else Monat = 3 End If Ostern = DateSerial(Jahr, Monat, O) End If End Function -- =========================================== __ _ Juergen Braukmann juergen.braukmann@gmx.de| -o)/ / (_)__ __ ____ __ Tel: 0201-743648 dk4jb@db0qs.#nrw.deu.eu | /\\ /__/ / _ \/ // /\ \/ / ===========================================_\_v __/_/_//_/\_,_/ /_/\_\ -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/