From 2f1eb5af42f6315e7e71f2ec82cc00506557d9ea Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 16 Oct 2023 08:47:47 +0200 Subject: [PATCH] feiertag --- VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb index d9ab1251..d3976ec1 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb @@ -65,7 +65,7 @@ Public Class cFeiertage End Function - Public Function GetLastyDayInyMonth(ByVal day As DayOfWeek, ByVal month As Integer, ByVal year As Integer) As DateTime + Public Function GetLastyDayInxMonth(ByVal day As DayOfWeek, ByVal month As Integer, ByVal year As Integer) As DateTime ' Create a start date for the last weekday of the month Dim startDate As DateTime @@ -269,8 +269,8 @@ Public Class cFeiertage Case "GB" If datum = Karfreitag Then Return True If datum = GetFirstyDayInxMonth(DayOfWeek.Monday, 5, _Year) Then Return True 'Early May Bank Holiday Erster Montag im Mai - If datum = GetLastyDayInyMonth(DayOfWeek.Monday, 5, _Year) Then Return True 'Spring Bank Holiday Letzter Montag im Mai - If datum = GetLastyDayInyMonth(DayOfWeek.Monday, 8, _Year) Then Return True 'Summer Bank Holiday Letzter Montag im August + If datum = GetLastyDayInxMonth(DayOfWeek.Monday, 5, _Year) Then Return True 'Spring Bank Holiday Letzter Montag im Mai + If datum = GetLastyDayInxMonth(DayOfWeek.Monday, 8, _Year) Then Return True 'Summer Bank Holiday Letzter Montag im August Return False Case Else