neu

UID/Dienstplan/cFeiertage.vb

@@ -57,6 +57,24 @@
         End Get
     End Property
 
+    ''' <summary>
+    ''' Gibt das Datum für den BussUndBettag zurück.
+    ''' </summary>
+    Public ReadOnly Property BussUndBettag() As Date
+        Get 
+            Dim i As Long
+            Dim VierterAdvent As Date
+            For i = 24 To 1 Step -1
+                If CDate(i & ".12." & _Year).ToString("ddd") = "So" Then
+                    VierterAdvent = CDate(i & ".12." & _Year).ToShortDateString
+                    Exit For
+                End If
+            Next i
+            Dim ErsterAdvent As Date = DateAdd("d", -21, VierterAdvent)
+            Return DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
+        End Get
+
+    End Property
     ''' <summary>
     ''' Gibt das Datum für den Karfreitag zurück.
     ''' </summary>
@@ -112,14 +130,11 @@
     End Property
 
 
-    Public Function isFeiertag(datum As Date) As Boolean
+    Public Function isFeiertag(datum As Date, land As String) As Boolean
         If datum = CDate("01.01." & _Year) Then Return True
         If datum = CDate("06.01." & _Year) Then Return True
-        If datum = CDate("01.05." & _Year) Then Return True
         If datum = CDate("15.08." & _Year) Then Return True
-        If datum = CDate("26.10." & _Year) Then Return True
         If datum = CDate("01.11." & _Year) Then Return True
-        If datum = CDate("08.12." & _Year) Then Return True
         If datum = CDate("25.12." & _Year) Then Return True
         If datum = CDate("26.12." & _Year) Then Return True
         If datum = Ostermontag Then Return True
@@ -128,7 +143,20 @@
         If datum = Pfingstmontag Then Return True
         If datum = Pfingstsonntag Then Return True
         If datum = Fronleichnam Then Return True
-         Return False
+
+        Select Case land
+            Case "AT"
+                If datum = CDate("26.10." & _Year) Then Return True
+                If datum = CDate("08.12." & _Year) Then Return True
+                If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag
+            Case "DE" 'BAYERN 
+                If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit
+                If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND
+                If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest 
+                If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag
+                If datum = Karfreitag Then Return True
+        End Select
+        Return False
     End Function
 
 End Class