Abfrage auf Kalenderwoche mit VBA
jo_cindy
Danke für Hilfe!
Gruß, Jo
Function istFeiertag(Datum) As Boolean
'Feiertage für NRW
Dim d As Integer, iJahr As Integer, dteOSo As Date
iJahr = Year(Datum)
d = (((255 - 11 * (iJahr Mod 19)) - 21) Mod 30) + 21
dteOSo = DateSerial(iJahr, 3, 1) + d + (d > 48) + _
6 - ((iJahr + iJahr \ 4 + d + (d > 48) + 1) Mod 7)
Select Case Datum
Case dteOSo - 2, _
dteOSo, _
dteOSo + 1, _
dteOSo + 39, _
dteOSo + 40, _
dteOSo + 50, _
dteOSo + 60, _
DateSerial(iJahr, 1, 1), _
DateSerial(iJahr, 5, 1), _
DateSerial(iJahr, 10, 3), _
DateSerial(iJahr, 12, 25), _
DateSerial(iJahr, 12, 26)
istFeiertag = True
End Select
'Karfreitag=Ostersonntag-2
'Ostermontag=Ostersonntag+1
'Chr.Himmelfahrt=Ostersonntag+39
'Pfingstmontag=Ostersonntag+50
'Fronleichnam=Ostersonntag+60
End Function