Thanks for the information. In the mean time I have written a script using a list of fixed holiday dates. This may be the safest option as our politicians sometimes want to fiddle with the dates of some holidays. Regards, Graham Smith -------------------------------------- On 17-Mar-2000 Juergen Braukmann wrote:
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/