År: 
Religiøse merkedager 2013
NavnDatoUkeDag
Fastelaven10.02.20136søndag
Palmesøndag24.03.201312søndag
Skjærtorsdag28.03.201313torsdag
Langfredag29.03.201313fredag
1.Påskedag31.03.201313søndag
2.Påskedag01.04.201314mandag
Pinseaften18.05.201320lørdag
Kristihimmelfartsdag09.05.201319torsdag
Pinsedag19.05.201320søndag
2.Pinsedag20.05.201321mandag
Julaften24.12.201352tirsdag
Offentlige merkedager 2013
1. mai01.05.201318onsdag
17. mai17.05.201320fredag
Trikset med å finne de beveglige helligdagene er først å finne 1. påskedag, også regne seg regne seg frem og til og tilbake iforhold til denne datoen. Formelen (VBA) for 1 påskedag er;
Function calc_paaske(Year_) 
        A = (Year_ Mod 19)
        b = Int(Year_ / 100)
        c = Year_ Mod 100
        d = Int(b / 4)
        e = b Mod 4
        f = (b + 8) Mod 25
        g = Int((b - f + 1) / 3)
        h = (19 * A + b - d - g + 15) Mod 30
        i = Int((c / 4))
        j = c Mod 4
        k = (32 + (2 * e) + (2 * i) - h - j) Mod 7
        l = Int(((A + (11 * h) + (22 * k)) / 451))
        m = Int(((h + k - (7 * l) + 114) / 31))
        N = (h + k - (7 * l) + 114) Mod 31
        calc_paaske =  DateSerial(Year_, m, N + 1)
End Function