<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b><\/p>\n
„Feiertage berechnen – wozu soll das denn gut sein“, werden Sie sich vielleicht jetzt fragen: „Die stehen doch alle in meinem Kalender!“ Das ist durchaus richtig, sofern Sie noch nicht dazu übergegangen sind, Microsoft Outlook anstelle eines Kalenders zu verwenden. Hier ist es nämlich keineswegs selbstverständlich, dass alle vorhandenen Feiertage auch vermerkt sind – Sie müssen der Anwendung erst mitteilen, dass sie auch die Feiertage anzeigen soll. Auch zur Berechnung von Fristen ist die Kenntnis der Feiertage nicht unwichtig – es ist schließlich kein Zufall, dass Sie noch nie an einem Feier- oder Sonntag ein Buch zur Bücherei zurückbringen mussten.<\/b><\/p>\n
Die im Folgenden vorgestellte Anwendung soll eine Tabelle erstellen, die alle Feiertage in einem bestimmten Bundesland in einem bestimmten Zeitraum enthält. Dabei soll der Anwender das gewünschte Bundesland und den Zeitraum selbst auswählen können.<\/p>\n
Zweck der Feiertagstabelle<\/b><\/p>\n
Mit der Tabelle lassen sich anschließend weitere nützliche Aufgaben durchführen: Zum einen kann sie als Grundlage für die Berechnung von Fristen dienen. Die Berechnung von Fristen wird im Beitrag Fristen berechnen leicht gemacht in der vorliegenden Ausgabe vorgestellt.<\/p>\n
Zum anderen erstellen Sie mit Hilfe der Tabelle eine Datei, die Sie als Grundlage für die in Outlook angezeigten Feiertage verwenden können. Dabei erfahren Sie auch noch, wie Sie Outlook dazu bringen, die angegebenen Daten zu übernehmen.<\/p>\n
Grundlagen über dieunterschiedlichen Feiertage<\/b><\/p>\n
Feiertage lassen sich in drei Kategorien einteilen: Erstens gibt es Feiertage, die immer auf das gleiche Datum fallen. Das sind z. B. Silvester, Weihnachten, der Tag der Arbeit (1. Mai) und einige andere. Die zweite Kategorie sind die Feiertage, die meistens auf den gleichen Kalendertag fallen, aber nicht zwangsläufig auf das gleiche Datum.<\/p>\n
Dabei handelt es sich beispielsweise um die Osterfeiertage, Christi Himmelfahrt oder Fronleichnam. Zur dritten Kategorie gehören die Adventstage und der Buß- und Bettag. Sie haben einen bestimmten Abstand vom Datum des Heiligabend. Dabei spielt auch der Wochentag des Heiligabend eine Rolle.<\/p>\n
Eine weitere Schwierigkeit ist, dass manche Feiertage nicht in allen, sondern nur in bestimmten Bundesländern gefeiert werden.<\/p>\n
Die Verwaltung der Feiertagsdaten beschränkt sich nicht nur auf die Feiertagsdaten selbst, sondern auch auf die Bundesländer, in denen bestimmte Feiertage gefeiert werden. Daher benötigen Sie zunächst einmal eine Tabelle mit den Grunddaten, die in den nächsten Abschnitten vorgestellt wird. Außerdem benötigen Sie eine Tabelle, die eine Auflistung der einzelnen Bundesländer enthält sowie eine Tabelle, um die Feiertage den Bundesländern zuzuordnen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Tabelle der Feiertagsdaten<\/b><\/p>\n
Wie bereits erwähnt, gibt es drei unterschiedliche Kategorien von Feiertagen. Zur Berechnung der Feiertage sind unterschiedliche Informationen erforderlich, die in einer Tabelle namens tblFeiertageGrunddaten gespeichert werden sollen (siehe Bild 1).<\/p>\n
Das erste Feld der Tabelle heißt FeiertagNr und dient als Primärindex. Das Feld Feiertag beinhaltet die Bezeichnung der Feiertage.<\/p>\n
Da es einige Feiertage gibt, die an festen Daten stattfinden, enthält die Tabelle weiterhin zwei Felder mit dem Tag und dem Monat des Feiertages.<\/p>\n
Das nächste Feld ist das Feld FeiertagArt. Hier trägt man ein, ob der Feiertag an einem bestimmten Datum ist, ob er vom Datum des Osterfeiertags abhängt oder ob er vom Datum des vierten Advent abhängt.<\/p>\n
Das Feld ist mit der Tabelle tblFeiertagsarten verknüpft. Sie enthält die Nummer der Feiertagsart und deren Bezeichnung (siehe Bild 2).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic002.png\")
<\/p>\n
<\/b><\/p>\n
Bild 2: Tabelle der unterschiedlichen Feiertagsarten<\/span><\/b><\/p>\n Feiertage verschiedenerBundesländer<\/b><\/p>\n Es gibt bekanntlich vereinzelte Feiertage, die nicht in allen oder sogar nur in wenigen Bundesländern gefeiert werden. Diese Tatsache soll auch bei der Berechnung der Feiertage berücksichtigt werden.<\/p>\n Um festzulegen, welcher Feiertag in welchem Bundesland gefeiert wird, benötigen Sie eine m:n-Verknüpfung. Die eine Tabelle der Verknüpfung ist die Tabelle tblFeiertageGrunddaten, die andere Tabelle müssen Sie noch erstellen: Sie enthält eine Auflistung aller Bundesländer (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 3: Entwurfsansicht der Tabelle tblFeiertageBundesländer<\/span><\/b><\/p>\n Die beiden Tabellen werden über eine Verknüpfungstabelle miteinander verbunden. Die Verknüpfungstabelle heißt tblFeiertageBundesländer und enthält nur zwei Felder: das Feld FeiertagNr und das Feld BundeslandNr (siehe Bild 3).<\/p>\n Die beiden Felder sind mit den jeweiligen Primärindexfeldern der beiden Tabellen tblFeiertage und tblBundesländer verknüpft.<\/p>\n <\/b><\/p>\n Bild 4: Die Tabelle tblBundesländer<\/span><\/b><\/p>\n Die Daten der einzelnen Feiertage und die Bundesländer, in denen sie gefeiert werden, können Sie bequem in einem Formular verwalten.<\/p>\n Das Formular enthält als Datenherkunft die Tabelle tblFeiertageGrunddaten. Die Darstellung der mit den Feiertagen verknüpften Bundesländer ist über zwei Listenfelder realisiert. Das rechte Listenfeld enthält alle Bundesländer, in denen der Feiertag begangen wird, das linke Listenfeld enthält die restlichen Bundesländer (siehe Bild 5).<\/p>\n Sie können einzelne Bundesländer zwischen den beiden Listenfeldern hin- und herbewegen oder alle Einträge entweder in das linke oder rechte Listenfeld schieben.<\/p>\n Weitere Informationen zur Realisierung der Darstellung einer m:n-Beziehung mit zwei Listenfeldern können Sie direkt aus der Beispieldatenbank oder dem Beitrag Fristen berechnen leicht gemacht dieses Heftes entnehmen. <\/p>\n <\/b><\/p>\n Bild 5: Formular zur Eingabe der Feiertagsdaten<\/span><\/b><\/p>\n <\/p>\n Einige Daten von Feiertagen müssen nicht berechnet werden, da sie – unabhängig vom Jahr – immer auf das gleiche Datum fallen. Die anderen sind jeweils von einem bestimmten Stichtag abhängig, dessen Datum zunächst berechnet werden muss.<\/p>\n Dabei gibt es zwei Stichtage: den vierten Advent und den Ostersonntag. Natürlich könnten Sie auch einen anderen Advent als den vierten und auch den Ostermontag statt des Ostersonntags berechnen – wichtig ist nur, dass Sie einen festen Tag verwenden, um die davon abhängigen Daten berechnen zu können.<\/p>\n Ermitteln des Datums des vierten Advents<\/b><\/p>\n Das Datum des vierten Advents kann jeder Mensch mit einem einfachen Kalender ermitteln. Man schaut einfach, auf welchen Tag der Heiligabend fällt, und wenn es sich bei dem Tag nicht um einen Sonntag handelt, fährt man mit dem Finger auf dem Kalender soweit zurück, bis man auf den vorherigen Sonntag stößt.<\/p>\n Genauso einfach funktioniert die VBA-Funktion aus Quellcode 1. Da Windows einen integrierten Kalender zur Verfügung stellt, müssen Sie der Funktion lediglich das Jahr, für das die Feiertage berechnet werden sollen, als Parameter übergeben.<\/p>\n Die erste Zeile der Funktion weist der Variablen VierterAdvent das aus dem 24. 12. und dem angegebenen Jahr zusammengesetzte Datum zu.<\/p>\n Anschließend wird eine Do While…Loop-Schleife solange durchlaufen, bis der Wochentag des in der Variablen VierterAdvent gespeicherten Datums ein Sonntag ist. Dabei wird der Wert der Variablen bei jedem Schleifendurchlauf um Eins und damit um einen Tag reduziert. <\/p>\n Natürlich kann es auch sein, dass der 24. 12. des angegebenen Jahres auf einen Sonntag fällt. In dem Fall wird die Schleife gar nicht durchlaufen, da die Abbruchbedingung direkt erfüllt ist. <\/p>\n <\/b><\/p>\n Ermitteln des Datums des Ostersonntags<\/b><\/p>\n Die Berechnung des Datums, auf den der Ostersonntag fällt, ist wesentlich komplizierter. Sie stammt von Carl Friedrich Gauß (1777-1855). Da ihre Herleitung den Rahmen des vorliegenden Beitrags sprengen würde, nehmen Sie die entsprechende Funktion, die im Wesentlichen aus mathematischen Gleichungen besteht, einfach zur Kenntnis (s. Quellcode 2).<\/p>\n Falls Sie dennoch an der Herleitung des Algorithmus interessiert sind, können Sie sich beispielsweise einmal die folgende Internetseite ansehen: http:\/\/th-o.de\/kalender.htm <\/p>\n Ermitteln der Daten der abhängigen Feiertage<\/b><\/p>\n Die Daten der Feiertage, die entweder vom Datum des Ostersonntags oder vom vierten Advent abhängen, können auf einfache Weise ermittelt werden.<\/p>\n Sie verwenden dabei die Tabelle tblFeiertageGrunddaten (siehe Bild 1), die bereits weiter oben vorgestellt wurde. Die beiden letzten Felder der Tabelle enthalten die entscheidenden Informationen: Dem Feld FeiertagArt können Sie entnehmen, ob der Feiertag auf ein konstantes Datum fällt oder ob er einen bestimmten Abstand zum Ostermontag oder zum vierten Advent hat. Das Feld TageBisStichtag gibt an, wie viele Tage der Feiertag von dem Stichtag entfernt liegt.<\/p>\n Nachdem Sie nun die wichtigsten Grundlagen zum Thema Feiertage haben und über ein Formular zur Eingabe der entsprechenden Daten verfügen, kommen Sie nun zum eigentlichen Kern: dem Ermitteln der Feiertagsdaten für ein bestimmtes Jahr für das gewünschte Bundesland.<\/p>\n Um die Daten zu ermitteln, fassen Sie zunächst die benötigten Tabellen in einer Abfrage zusammen. Die Abfrage namens qryFeiertage enthält die drei Tabellen tblFeiertagGrunddaten, tblFeiertageBundesländer und tblBundesland. Fügen Sie dem Entwurfsraster der Abfrage die beiden Felder der Tabelle tblFeiertageBundesländer und alle Felder der beiden anderen Tabellen mit Ausnahme der Primärindexfelder hinzu (siehe Bild 6).<\/p>\n Die Funktion zur Ermittlung des Datums eines Feiertages heißt DatumErmitteln. Sie hat die Parameter FeiertagNr, BundeslandNr und Jahr (s. Quellcode 3).<\/p>\n Sie erstellt zunächst eine Datensatzgruppe mit den Daten der Abfrage qryFeiertage. Anschließend sucht sie aus der Datensatzgruppe denjenigen Datensatz, der den Werten der übergebenen Parameter entspricht. Schließlich ermittelt die Funktion – abhängig von der Feiertagsart – das Datum des Feiertags in dem angegebenen Jahr mit einer der in Kapitel 2.2 beschriebenen Funktionen.<\/p>\n <\/b><\/p>\n Was nützen die ganzen schönen Funktionen, wenn Sie zu keinem brauchbaren Ergebnis führen Schließlich wollen Sie beispielsweise eine Tabelle erhalten, die alle Feiertage in einem bestimmten Zeitraum sowie deren Daten enthält und diese Daten möglicherweise auch noch in Outlook weiterverwenden.<\/p>\n Formular zur Eingabe der Parameter und zum Starten der Feiertagsberechnung<\/b><\/p>\n Um die gewünschten Funktionen ausführen zu können, erstellen Sie nun zunächst ein entsprechendes Formular.<\/p>\n Das Formular soll die in Bild 7 enthaltenen Steuerelemente enthalten. Die beiden Textfelder zur Auswahl des Zeitraums heißen txtVon und txtBis. Das Kombinationsfeld zur Auswahl des Bundeslandes heißt cmbBundesland und hat die Tabelle tblBundesländer als Datenherkunft. Das Textfeld zur Angabe des Outlook-Dateinamens erhält den Namen txtDateiname. Es dient zur Eingabe des Namens der Datei, in der Access die berechneten Daten speichern soll.<\/p>\n Prozedur zur Erstellung derFeiertagstabelle<\/b><\/p>\n Und nun wird es interessant: Füllen Sie nun die Schaltfläche mit der Beschriftung Feiertage in Tabelle schreiben, die den Namen btnFeiertageInTabelle erhält, mit Leben. Dazu legen Sie für die Ereigniseigenschaft Beim Klicken die Prozedur aus Quellcode 4 an.<\/p>\n Die Prozedur überprüft zunächst, ob ein realistischer Zeitraum angegeben und ein Bundesland ausgewählt ist. Anschließend öffnet sie eine Datensatzgruppe, die auf die Daten der Abfrage qryFeiertage verweist. Da hier die Daten entnommen werden, die zur Ermittlung der Feiertagsdaten dienen, erhält sie den Namen rstQuelle. Die Tabelle Feiertage hingegen ist die Zieltabelle, dementsprechend erhält die Datensatzgruppe, die auf diese Tabelle verweist, den Namen rstZiel.<\/p>\n Schließlich durchläuft die Funktion für jedes Jahr des angegebenen Zeitraums alle für das ausgewählte Bundesland vorhandenen Feiertage. Dabei ermittelt sie mit Hilfe der in Kapitel 4 beschriebenen Funktion DatumErmitteln die Daten der Feiertage und schreibt sie in die Tabelle Feiertage.<\/p>\n Die Tabelle können Sie nun beispielsweise in Zusammenhang mit den im Beitrag Fristen berechnen leicht gemacht beschriebenen Methoden verwenden. Ein anderer Anwendungsfall ist der Einsatz in Microsoft Outlook. Mehr dazu erfahren Sie in den folgenden Abschnitten.<\/p>\n Prozedur zur Vorbereitung derFeiertagsdaten für Outlook<\/b><\/p>\n Das Formular frmFeiertageErmitteln enthält noch eine weitere Schaltfläche. Sie hat die Beschriftung Feiertage in Outlookdaten schreiben und heißt btnFeiertageInOutlook.<\/p>\n <\/b><\/p>\n Bild 8: Textdatei mit Feiertagsdaten<\/span><\/b><\/p>\n Wenn der Anwender diese Schaltfläche betätigt, soll eine Prozedur die gemäß den Angaben des Formulars erstellten Feiertagsdaten in einem speziellen Format in eine Textdatei schreiben, die von Outlook eingelesen werden kann oder deren Inhalt Sie in die bestehende Outlook-Datei kopieren können.<\/p>\n Die Textdatei in Bild 8 zeigt am Beispiel der Feiertage von Baden-Württemberg, wie das Format der Daten aussehen soll.<\/p>\n Die Prozedur, die durch Betätigen der Schaltfläche btnFeiertageInOutlook ausgelöst wird, finden Sie in Quellcode 5.<\/p>\n Die Prozedur löst zunächst die Prozedur der Schaltfläche btnFeiertageInTabelle aus. Der Hintergrund ist, dass die entsprechenden Daten möglicherweise noch nicht in die Tabelle Feiertage geschrieben wurden. Die Tabelle bildet aber die Grundlage für das Erstellen der Outlook-Datei.<\/p>\n Anschließend öffnet sie die Tabelle und die im Textfeld txtDateiname angegebene Datei und schreibt die Daten der Tabelle im benötigten Format in die Textdatei.<\/p>\n Sie müssen die Feiertagsdaten nun nur noch in Outlook verfügbar machen. Dazu kopieren Sie zunächst den kompletten Inhalt der soeben erstellten Datei in die für die Verwaltung von Feiertagsdaten vorgesehene Datei. Sie finden die Datei in der Regel im Office-Anwendungsordner im Unterverzeichnis ..\\Office\\1031\\ unter dem Namen Outlook.txt. Falls die Datei sich dort nicht befindet, müssen Sie den Suchen-Dialog des Windows-Explorers verwenden und nach der Datei mit dem Namen Outlook.txt suchen.<\/p>\n Nachdem Sie die Datei mit den neuen Daten aktualisiert haben, können Sie Outlook starten und die folgenden Schritte durchführen:<\/p>\n <\/b><\/p>\nm:n-Beziehung zwischen Feiertagen und Bundesländern herstellen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic004.png\")
<\/p>\nFormular zur Verwaltung von Feiertagen und Bundesländern<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic005.png\")
<\/p>\nFunction VierterAdvent(Jahr As Long) As Date\r\n VierterAdvent = CDate(\"24.12.\" & Jahr)\r\n Do While Not Weekday(VierterAdvent) = 1\r\n VierterAdvent = VierterAdvent - 1\r\n Loop\r\nFunction Ostersonntag(Jahr As Long) As Date\r\n Dim a, b, c, d, e, Tag, Monat\r\n a = Jahr Mod 19\r\n b = Jahr Mod 4\r\n c = Jahr Mod 7\r\n d = (19 * a + 24) Mod 30\r\n e = (2 * b + 4 * c + 6 * d + 5) Mod 7\r\n Tag = 22 + d + e\r\n Monat = 3\r\n If Tag > 31 Then\r\n Tag = d + e - 9\r\n Monat = 4\r\n End If\r\n Ostersonntag = Tag & \".\" & Monat & \".\" & Jahr<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic006.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic007.png\")
<\/p>\nFunction DatumErmitteln(FeiertagNr As Long, BundeslandNr As Long, Jahr As Long)\r\n Dim con As Connection\r\n Dim rst As New Recordset\r\n Dim Kriterium As String\r\n Set con = CurrentProject.Connection\r\n rst.Open \"qryFeiertage\", con, adOpenDynamic, adLockOptimistic\r\n Kriterium = \"[FeiertagNr] = \" & FeiertagNr & \" AND [BundeslandNr] = \" _ & BundeslandNr\r\n rst.Filter = Kriterium\r\n If rst!FeiertagArtNr = 1 Then\r\n DatumErmitteln = CDate(rst!Tag & \".\" & rst!Monat & \".\" & Jahr)\r\n ElseIf rst!FeiertagArtNr = 2 Then\r\n Debug.Print Ostersonntag(Jahr)\r\n DatumErmitteln = Ostersonntag(Jahr) - rst!TageBisStichtag\r\n ElseIf rst!FeiertagArtNr = 3 Then\r\n DatumErmitteln = CDate(VierterAdvent(Jahr)) - rst!TageBisStichtag\r\n End If<\/pre>\n
Private Sub btnFeiertageInTabelle_Click()\r\n If IsNull(Me.cmbBundesland) Then\r\n MsgBox \"Bitte wählen Sie zunächst das gewünschte Bundesland aus.\"\r\n Exit Sub\r\n End If\r\n If Me.txtVon > Me.txtbis Then\r\n MsgBox \"Die im Feld Von: angegebene Jahreszahl darf nicht größer als \" _ & \"die im Feld Bis: angegebene Jahreszahl sein.\"\r\n Exit Sub\r\n End If\r\n DoCmd.RunSQL \"DELETE * FROM Feiertage\"\r\n Dim con As Connection\r\n Dim rstQuelle As New Recordset\r\n Dim rstZiel As New Recordset\r\n Dim Kriterium As String\r\n Dim Jahr As Long\r\n Set con = CurrentProject.Connection\r\n rstQuelle.Open \"qryFeiertage\", con, adOpenDynamic, adLockOptimistic\r\n rstZiel.Open \"Feiertage\", con, adOpenDynamic, adLockOptimistic\r\n Kriterium = \"[BundeslandNr] = \" & Me.cmbBundesland\r\n rstQuelle.Filter = Kriterium\r\n For Jahr = Me.txtVon To Me.txtbis\r\n rstQuelle.MoveFirst\r\n Do While Not rstQuelle.EOF\r\n rstZiel.AddNew\r\n rstZiel!Feiertag = rstQuelle!Feiertag\r\n rstZiel!Datum = DatumErmitteln(rstQuelle!FeiertagNr, _ rstQuelle!BundeslandNr, Jahr)\r\n rstZiel.Update\r\n rstQuelle.MoveNext\r\n Loop\r\n Next Jahr\r\nEnd Sub<\/pre>\n
Sub DatumSchreiben(Bundesland As String)\r\n Dim con As Connection\r\n Dim rst As New Recordset\r\n btnFeiertageInTabelle_Click\r\n Set con = CurrentProject.Connection\r\n rst.Open \"Feiertage\", con, adOpenDynamic, adLockOptimistic\r\n Open Me.txtDateiname For Output As #1\r\n Print #1, \"[\" & Bundesland & \"]\"\r\n Do While Not rst.EOF\r\n Print #1, rst!Feiertag & \", \" & Year(rst!Datum) & \"\/\" & Month(rst!Datum) _ & \"\/\" & Day(rst!Datum)\r\n rst.MoveNext\r\n Loop\r\n Close #1<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{EABFAA24-15DD-44D4-9AD7-5C59E3B6F760}\/pic009.png\")
<\/p>\n