wizards/source/schedule/GermanHolidays.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="GermanHolidays" script:language="StarBasic">Option Explicit
   4
   5 Sub Main()
   6         Call CalAutopilotTable()
   7 End Sub
   8
   9 Function CalGetGermanLandAtMousePos(byval X as single, byval Y as single) as Integer
  10         CalChoosenLand = 0
  11         If (X&gt;73)And(X&lt;130)And(Y&gt;=117)And(Y&lt;181) Then
  12                 CalChoosenLand = CalBLBayern
  13
  14         ElseIf (X&gt;41)And(X&lt;89)And(Y&gt;=136)And(Y&lt;183) Then
  15                 CalChoosenLand = CalBLBadenWuert
  16
  17         ElseIf (X&gt;18)And(X&lt;35)And(Y&gt;136)And(Y&lt;147) Then
  18                 CalChoosenLand = CalBLSaarland
  19
  20         ElseIf (X&gt;13)And(X&lt;42)And(Y&gt;111)And(Y&lt;146) Then
  21                 CalChoosenLand = CalBLRheinlandPfalz
  22
  23         ElseIf (X&gt;15)And(X&lt;=60)And(Y&gt;=69)And(Y&lt;112) Then
  24                 CalChoosenLand = CalBLNordrheinWest
  25
  26         ElseIf (X&gt;=42)And(X&lt;78)And(Y&gt;=95)And(Y&lt;136) Then
  27                 CalChoosenLand = CalBLHessen
  28
  29         ElseIf (X&gt;=78)And(X&lt;112)And(Y&gt;=95)And(Y&lt;117) Then
  30                 CalChoosenLand = CalBLThueringen
  31
  32         ElseIf (X&gt;=112)And(X&lt;158)And(Y&gt;=88)And(Y&lt;114) Then
  33                 CalChoosenLand = CalBLSachsen
  34
  35         ElseIf (X&gt;77)And(X&lt;84)And(Y&gt;35)And(Y&lt;42) Then
  36                 CalChoosenLand = CalBLHamburg
  37
  38         ElseIf (X&gt;56)And(X&lt;60)And(Y&gt;36)And(Y&lt;41) Then
  39                 CalChoosenLand = CalBLBremen
  40
  41         ElseIf (X&gt;58)And(X&lt;63)And(Y&gt;44)And(Y&lt;52) Then
  42                 CalChoosenLand = CalBLBremen
  43
  44         ElseIf (X&gt;52)And(X&lt;95)And(Y&gt;8)And(Y&lt;40) Then
  45                 CalChoosenLand = CalBLSchlHolstein
  46
  47         ElseIf (X&gt;90)And(X&lt;149)And(Y&gt;23)And(Y&lt;48) Then
  48                 CalChoosenLand = CalBLMeckPomm
  49
  50         ElseIf (X&gt;28)And(X&lt;90)And(Y&gt;35)And(Y&lt;69) Then
  51                 CalChoosenLand = CalBLNiedersachsen
  52
  53         ElseIf (X&gt;60)And(X&lt;90)And(Y&gt;=69)And(Y&lt;95) Then
  54                 CalChoosenLand = CalBLNiedersachsen
  55
  56         ElseIf (X&gt;=90)And(X&lt;=115)And(Y&gt;47)And(Y&lt;95) Then
  57                 CalChoosenLand = CalBLSachsenAnhalt
  58
  59         ElseIf (X&gt;129)And(X&lt;139)And(Y&gt;60)And(Y&lt;66) Then
  60                 CalChoosenLand = CalBLBerlin
  61
  62         ElseIf (X&gt;115)And(X&lt;151)And(Y&gt;=48)And(Y&lt;88) Then
  63                 CalChoosenLand = CalBLBrandenburg
  64         End If
  65         CalGetGermanLandAtMousePos = CalChoosenLand
  66 End Function
  67
  68
  69
  70 Sub CalFindWholeYearHolidays_GERMANY(ByVal iSelYear as Integer, ByVal iCountry as Integer)
  71         Dim So as Integer
  72         Dim OsternDate&amp;, VierterAdvent&amp;
  73
  74         If (iCountry &lt; 1) Or (iCountry &gt; 16) Then
  75                 iCountry = CalBLHamburg
  76         End If
  77         OsternDate&amp; = CalEasterTable&amp;(iSelYear)
  78         So = 1
  79
  80         CalInsertBankholiday(DateSerial(iSelYear, 1, 1), &quot;Neujahr&quot;, cHolidayType_Full)
  81
  82         If (iCountry = CalBLBayern) Or (iCountry = CalBLBadenWuert) Or (iCountry = CalBLSachsenAnhalt) Then
  83                 CalInsertBankholiday(DateSerial(iSelYear, 1, 6), &quot;Hl. 3 Könige&quot;, cHolidayType_Full)
  84         End If
  85
  86         CalInsertBankholiday(OsternDate&amp;-2, &quot;Karfreitag&quot;, cHolidayType_Full)
  87         CalInsertBankholiday(OsternDate&amp;, &quot;Ostersonntag&quot;, cHolidayType_Full)
  88         CalInsertBankholiday(OsternDate&amp;+1, &quot;Ostermontag&quot;, cHolidayType_Full)
  89         CalInsertBankholiday(DateSerial(iSelYear, 5, 1), &quot;Maifeiertag&quot;, cHolidayType_Full)
  90         CalInsertBankholiday(OsternDate&amp;+39, &quot;Christi Himmelfahrt&quot;, cHolidayType_Full)
  91         CalInsertBankholiday(OsternDate&amp;+49, &quot;Pfingstsonntag&quot;, cHolidayType_Full)
  92         CalInsertBankholiday(OsternDate&amp;+50, &quot;Pfingstmontag&quot;, cHolidayType_Full)
  93
  94         If (iCountry = CalBLBadenWuert) Or (iCountry = CalBLBayern) Or (iCountry = CalBLHessen) Or (iCountry = CalBLNordRheinWest) Or (iCountry = CalBLRheinlandPfalz) Or (iCountry = CalBLSaarland) Or (iCountry = CalBLSachsen) Or (iCountry = CalBLThueringen) Then
  95                 CalInsertBankholiday(OsternDate&amp;+60, &quot;Fronleichnam&quot;, cHolidayType_Full)
  96         End If
  97
  98         If (iCountry = CalBLBayern) Or (iCountry = CalBLSaarland) Then
  99                 CalInsertBankholiday(DateSerial(iSelYear, 8, 15), &quot;Mariä Himmelfahrt&quot;, cHolidayType_Full)
 100         End If
 101
 102         CalInsertBankholiday(DateSerial(iSelYear, 10, 3), &quot;Tag der dt. Einheit&quot;, cHolidayType_Full)
 103
 104         If (iCountry=CalBLBrandenburg) Or (iCountry=CalBLMeckPomm) Or (iCountry=CalBLSachsenAnhalt) Or (iCountry=CalBLSachsen) Or (iCountry=CalBLThueringen) Then
 105                 CalInsertBankholiday(DateSerial(iSelYear, 10, 31), &quot;Reformationstag&quot;, cHolidayType_Full)
 106         End If
 107
 108         If (iCountry = CalBLBadenWuert) Or (iCountry = CalBLBayern) Or (iCountry = CalBLNordRheinWest) Or (iCountry = CalBLRheinlandPfalz) Or (iCountry = CalBLSaarland) Or (iCountry = CalBLSachsen) Or (iCountry = CalBLThueringen) Then
 109                 CalInsertBankholiday(DateSerial(iSelYear, 11, 1), &quot;Allerheiligen&quot;, cHolidayType_Full)
 110         End If
 111
 112         vierterAdvent = DateSerial(iSelYear, 12, 24)
 113         While WeekDay(vierterAdvent) &lt;&gt; So
 114                 vierterAdvent = vierterAdvent - 1
 115         Wend
 116
 117         If iCountry = CalBLSachsen Then
 118                 CalInsertBankholiday(vierterAdvent-32, &quot;Buß- und Bettag&quot;, cHolidayType_Full)
 119         Else
 120                 CalInsertBankholiday(vierterAdvent-32, &quot;Buß- und Bettag&quot;, cHolidayType_Half)
 121         End If
 122         CalInsertBankholiday(vierterAdvent-21, &quot;1. Advent&quot;, cHolidayType_Full)
 123         CalInsertBankholiday(vierterAdvent-14, &quot;2. Advent&quot;, cHolidayType_Full)
 124         CalInsertBankholiday(vierterAdvent-7, &quot;3. Advent&quot;, cHolidayType_Full)
 125         CalInsertBankholiday(vierterAdvent, &quot;4. Advent&quot;, cHolidayType_Full)
 126
 127         CalInsertBankholiday(Dateserial(iSelYear, 12, 24), &quot;Heiligabend&quot;, cHolidayType_Half)
 128         CalInsertBankholiday(Dateserial(iSelYear, 12, 25), &quot;1. Weihnachtstag&quot;, cHolidayType_Full)
 129         CalInsertBankholiday(Dateserial(iSelYear, 12, 26), &quot;2. Weihnachtstag&quot;, cHolidayType_Full)
 130         CalInsertBankholiday(Dateserial(iSelYear, 12, 31), &quot;Sylvester&quot;, cHolidayType_Half)
 131 End Sub
 132 </script:module>