Wie Modul zum Laufen bringen

Public Function Muttertag(Jahr As Integer) As Date
'erst Pfingstsonntag (Ostern + 49)
Dim d As Integer
d = (((255 - 11 * (Jahr Mod 19)) - 21) Mod 30) + 21
Pfingstsonntag = DateSerial(Jahr, 3, 1) + d + (d > 48) + 6 - ((Jahr + Jahr \ 4 + _
d + (d > 48) + 1) Mod 7) + 49
'dann 2. Sonntag im Mai
zweiterMaiSonntag = DateSerial(Jahr, 5, (8 - Weekday(DateSerial(Jahr, 5, 1), _
(1 + 1) Mod 8)) + ((2 - 1) * 7))
'jetzt die Ergebnisse vergleichen
If Pfingstsonntag = zweiterMaiSonntag Then
Muttertag = DateSerial(Jahr, 5, (8 - Weekday(DateSerial(Jahr, 5, 1), _
(1 + 1) Mod 8)) + ((1 - 1) * 7))
Else
Muttertag = DateSerial(Jahr, 5, (8 - Weekday(DateSerial(Jahr, 5, 1), _
(1 + 1) Mod 8)) + ((2 - 1) * 7))
End If
End Function