neu

2020-11-27 22:57:00 +01:00
parent fa670231f7
commit 14a7113144
22 changed files with 872 additions and 58 deletions
--- a/UID/Dienstplan/cFeiertage.vb
+++ b/UID/Dienstplan/cFeiertage.vb
@@ -70,8 +70,8 @@
                    Exit For
                End If
            Next i
-            Dim ErsterAdvent As Date = DateAdd("d", -21, VierterAdvent)
-            Return DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
+            Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
+            Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
        End Get

    End Property