Skapa ett program i VB som beräknar när Påskdagen infaller med hjälp av Gauss Påskforme.
Man ska kunna skriva in olika årtal
och även tar reda på när den äkta vårdagjämningen infaller(gregorianska tidsyckeln).
Tack på förhand
peter

Om du visar oss dessa formler, så skall du nog kunna få en funktion eller två...

/micke

Som kuriosa ger inte svar på din fråga.

Påskdagen infaller första Söndag efter första fullmåne efter vårdagjämning (21/3).

Har sett formel/prog här hos pelle i Tips o Trix eller så var det i Filarean.
Sök på Påskdagen.

Skapat efter utredning funnen i encyklopedi (påsken alltså).

<code>
year = Val(Text1.Text)
P = year \ 100
Q = (3 * P + 3) \ 4
R = (8 * P + 13) \ 25
M = (15 + Q - R) Mod 30
N = (4 + Q) Mod 7

A = year Mod 19
B = year Mod 4
C = year Mod 7
D = (19 * A + M) Mod 30
E = (2 * B + 4 * C + 6 * D + N) Mod 7
F = 22 + D + E
If F = 57 Or (F = 56 And E = 6 And A > 10) Then F = F - 7

If F <= 31 Then
Text2.Text = F & " Mars"
Else
Text2.Text = F - 31 & " April"
End If
</code>

Se [När infaller påskdagen] lite mer utvecklat än det svar som visas ovan. "Variantnissarnas" lösning.

Jag trodde inte att jag behövde ta med deklarationerna. Variants förekommer inte i min vokabulär. I varje fall inte i programmeringssammanhang.
Men för att Sven skall vara nöjd så meddelar jag härmed att samtliga variabler i exemplet skall deklareras som heltal.