paas dag

[Verwijderd]

hoi ik heb een functie gemaakt om de paasdagen te bereken. Maar ik weet niet welke methodes ik moet gebruiken om dit te laten werken:
Dim a, b, c as integer.....
a = Year Mod 19
b = Year \ 100
c = Year Mod 100
d = b \ 4
e = b Mod 4
f = (b + \ 25
g = (b - f + 1) \ 3
h = (19 * a + b - d - g + 15) Mod 30
i = c \ 4
k = c Mod 4
l = (32 + 2 * e + 2 * i - h - k) Mod 7
m = (a + 11 * h + 22 * l) \ 451
n = (h + l - 7 * m + 114) \ 31
p = (h + l - 7 * m + 114) Mod 31
Return DateSerial(Year, n, p + 1)

Maar ik zou graag alle jaren van 2000-2020 in een lijst laten zien.
Dit dacht ik met een for I lus te doen. Maar de lijst zou ook moeten zeggen welke jaren er al voorbij zijn, welk jaar we nu zijn, en wat de volgende jaren zijn.

En hoe krijg ik de functie alleen voor 2000-2020? Ik dacht met een do while.
Het lukt niet echt zoals jullie zien, hopelijk kunnen jullie mij helpen.


Dank bij voorbaat

[gorgi_19]

Wat lukt er niet echt? Maak er een functie van met Year als parameter en zet de jaren van 2000 tot 2020 in een for-loop?

[RobIII]

Verwijderd schreef op maandag 01 juni 2009 @ 13:40:
hoi ik heb een functie gemaakt om de paasdagen te bereken.

Hmm, dat is grappig want David Pinch beweert hetzelfde. En voor support op code van derden mag je toch echt die derden benaderen, zéker als het zoiets basics betreft. Ik vind het maar raar dat het je wél lukt het overzicht te behouden in een functie met 14 1-letter-integers maar dat een simpele loop te hoog gegrepen is.

[ Voor 16% gewijzigd door RobIII op 01-06-2009 13:54 ]