Hvornår er det påske

hvis der findes noget på andre programmeringsporg kan det måske være en hjælp.

Function SkærTorsdag(HvilketÅr As Integer) As Date
    Dim d As Integer
    d = (((255 - 11 * (HvilketÅr Mod 19)) - 21) Mod 30) + 21
    SkærTorsdag = DateSerial(HvilketÅr, 3, 1) + d + (d > 48) + 3 - ((HvilketÅr + HvilketÅr \ 4 + _
        d + (d > 48) + 1) Mod 7)
End Function

I øvrigt: En funktion, som får skærtorsdag i år til at være den 8. juni, som du skriver ovenfor, vil jeg ikke anbefale :-)

her er en med alle  helligdage

Function Påskedag(InputYear As Integer) As Long ' Returnerer datoen for Påskedag
Dim d As Integer
    d = (((255 - 11 * (InputYear Mod 19)) - 21) Mod 30) + 21
    Påskedag = DateSerial(InputYear, 3, 1) + d + (d > 48) + 6 - _
        ((InputYear + InputYear \ 4 + d + (d > 48) + 1) Mod 7)
End Function

Function HelligdagsNavn(lngdate As Long) As String
' bruger funktionen Påskedag
Dim InputYear As Integer, PD As Long, OK As Boolean
    If lngdate <= 0 Then lngdate = Date
    InputYear = Year(lngdate)
    PD = Påskedag(InputYear)
      OK = True
    Select Case lngdate ' Tester nedenstående påstande mod datoen
        Case DateSerial(InputYear, 1, 1): HelligdagsNavn = "Nytårsdag"
        Case PD - 3: HelligdagsNavn = "Skærtorsdag"
        Case PD - 2: HelligdagsNavn = "Langfredag"
        Case PD: HelligdagsNavn = "Påskedag"
        Case PD + 1: HelligdagsNavn = "2. Påskedag"
        Case DateSerial(InputYear, 6, 5): HelligdagsNavn = "Grundlovsdag"
        Case PD + 26: HelligdagsNavn = "Store Bededag"
        Case PD + 39: HelligdagsNavn = "Kristi Himmelfartsdag"
        Case PD + 49: HelligdagsNavn = "Pinsedag"
        Case PD + 50: HelligdagsNavn = "2. Pinsedag"
        Case DateSerial(InputYear, 12, 24): HelligdagsNavn = "Julaftensdag"
        Case DateSerial(InputYear, 12, 25): HelligdagsNavn = "1.Juledag"
        Case DateSerial(InputYear, 12, 26): HelligdagsNavn = "2.Juledag"
        Case DateSerial(InputYear, 12, 31): HelligdagsNavn = "Nytårsaftensdag"
        Case Else
      End Select
        OK = False
End Function

kaldes med
=HelligdagsNavn(D5)
hvor D5 er en dato

som en almindelig formel
=(ROUND((DAY(MINUTE(A1/38)/2+55) &"-4-" & A1)/7;)*7-6)-3

dk
=(AFRUND((DAG(MINUT(A1/38)/2+55) &"-4-" & A1)/7;)*7-6)-3

PS. den finder skærtorsdag, men er beregnet til at finde påskesøndag. Det er det sidste -3 der giver torsdag.
Virker kun efter 1900 pga. af excels datoformater.

Mange tak for hjælpen ... smid nogle svar så i kan dele points :)

God weekend

ok :-)

ok ;-))