🚀 go-pugleaf

Artur S. wrote:

> 3. mamy dwa święta ruchome, zależne od siebie (59 dni różnicy).
> Istnieją algorytmy wyliczania, kiedy wypada poniedziałek wielkanocny,
> ale nie mam pod ręką.

Public Function GetEasterDate(ByVal intYear As Integer) As Date
Dim G%, C%, H%, i%, J%, L%, M%, D%, Y%
Dim dtTemp As Date

G = intYear Mod 19
C = intYear \ 100
H = (C - (C \ 4) - ((8 * C + 13) \ 25) + 19 * G + 15) Mod 30
i = H - (H \ 28) * (1 - (H \ 28) * (29 \ (H + 1)) * ((21 - G) \ 11))
J = (intYear + intYear \ 4 + i + 2 - C + C \ 4) Mod 7
L = i - J
M = 3 + (L + 40) \ 44
D = L + 28 - 31 * (M \ 4)
Y = intYear
dtTemp = DateSerial(Y, M, D)

Do While Weekday(dtTemp) <> 1
    DateAdd "d", 1, dtTemp
Loop
GetEasterDate = dtTemp

End Function

pozdrawiaMM
PS. Gauss
-- 
Marcin M. Miga
"More matter with less art"