Beregn påskesøndag

Easter

Finally, there is Easter, whose date is very complicated to determine from year to year.  I did not write the following formula.  I don't know who did, but it seems to work.

Public Function EasterDate(Yr As Integer) As Date

Dim d As Integer
d = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
EasterDate = DateSerial(Yr, 3, 1) + d + (d > 48) + 6 - ((Yr + Yr \ 4 + _
d + (d > 48) + 1) Mod 7)

End Function

You can also calculate the date of Easter with a worksheet function.  For USA style dates (mm/dd/yyyy), use

=FLOOR("5/"&DAY(MINUTE(B2/38)/2+56)&"/"&B2,7)-34

where B2  contains the year for which you want to calculate Easter.

For European style dates (dd/mm/yyyy), use

=FLOOR(DAY(MINUTE(B2/38)/2+56)&"/5/"&B2,7)-34

se mere på http://www.cpearson.com/excel/holidays.htm

Hvordan får jeg kaldt funktionen i en procedure, hvor årstallet kan være variabel  evt. som en inputbox ?

Jeg har fundet ud af det.

takker :)