diff options
Diffstat (limited to 'wizards/source/schedule/GermanHolidays.xba')
-rw-r--r-- | wizards/source/schedule/GermanHolidays.xba | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/wizards/source/schedule/GermanHolidays.xba b/wizards/source/schedule/GermanHolidays.xba index 7ce4357e9699..60e1acaf5b56 100644 --- a/wizards/source/schedule/GermanHolidays.xba +++ b/wizards/source/schedule/GermanHolidays.xba @@ -6,6 +6,7 @@ Sub Main() Call CalAutopilotTable() End Sub + Function CalGetGermanLandAtMousePos(byval X as single, byval Y as single) as Integer CalChoosenLand = 0 If (X>73)And(X<130)And(Y>=117)And(Y<181) Then @@ -68,6 +69,17 @@ End Function Sub CalFindWholeYearHolidays_GERMANY(ByVal iSelYear as Integer, ByVal iCountry as Integer) + + ' Ermittelt die Feiertage eines gesamten Jahres (Parameter iSelYear), + ' bezogen auf ein bestimmtes Bundesland (Parameter iCountry). Kein + ' bestimmtes Bundesland bedeutet, dass der Parameter gleich der + ' Konstante calBLHamburg ist, da Hamburg nur Standardfeiertage kennt. + ' Die Feiertage werden in das Array CalBankHolidayName$ geschrieben. + ' Der Index dieses Arrays geht bis vierhundert. Der 1. Januar hat den + ' Indexwert 1, der 2. Januar den Indexwert 2 usw. Das bedeutet, daß + ' wenn am 2. Januar kein Feiertag existiert, liefert + ' CalBankHolidayName$(DateSerial(0, 1, 2) eine leere Zeichenkette (""). + Dim So as Integer Dim OsternDate&, VierterAdvent& @@ -118,7 +130,7 @@ Sub CalFindWholeYearHolidays_GERMANY(ByVal iSelYear as Integer, ByVal iCountry a CalInsertBankholiday(vierterAdvent-32, "Buß- und Bettag", cHolidayType_Full) Else CalInsertBankholiday(vierterAdvent-32, "Buß- und Bettag", cHolidayType_Half) - End If + End If ' Dank an die EKD für die Berechnungsvorschrift des Buß- und Bettags! CalInsertBankholiday(vierterAdvent-21, "1. Advent", cHolidayType_Full) CalInsertBankholiday(vierterAdvent-14, "2. Advent", cHolidayType_Full) CalInsertBankholiday(vierterAdvent-7, "3. Advent", cHolidayType_Full) |