{"id":55000787,"date":"2011-08-01T00:00:00","date_gmt":"2020-05-22T21:57:01","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=787"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Feiertage_dynamisch_ermitteln","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/","title":{"rendered":"Feiertage dynamisch ermitteln"},"content":{"rendered":"

\"\"<\/p>\n

Wenn Sie mit Access Termine verwalten, werden Sie auch Feiertage berücksichtigen wollen. Die entsprechenden Datumsangaben liefert Access leider nicht frei Haus – Sie müssen selbst eine entsprechende Funktion bereitstellen. Der vorliegende Beitrag zeigt, wie Sie die Feiertage ermitteln und wie Sie schnell prüfen, ob ein Feiertag auf ein bestimmtes Datum fällt.<\/b><\/p>\n

Es gibt verschiedene Gruppen von Feiertagen: Solche, die jedes Jahr auf den gleichen Termin fallen (wie Neujahr, Weihnachten oder der Tag der deutschen Einheit), Tage, die vom Datum des Ostersonntags abhängen, das auf komplizierte Art berechnet wird, und Tage, die vom Datum des vierten Advents abhängen. Außerdem müssen Sie bei der Ermittlung von Feiertagen berücksichtigen, dass es einige Feiertage nur in bestimmten Bundesländern gibt. So ist Heilige Dreikönige am 6. Januar nur in drei Bundesländern ein Feiertag, in den übrigen Bundesländern wird gearbeitet.<\/p>\n

Tabellen oder reiner Code<\/b><\/p>\n

Vor dem Zusammenstellen der Lösung zu diesem Beitrag stand die Frage im Raum, ob man die Basisdaten zu den Feiertagen in Tabellen speichert oder ob man diese komplett per VBA-Code ermittelt. In Anbetracht dessen, dass die Feiertage nur alle Jubeljahre geändert werden, haben wir uns für die reine VBA-Variante entschieden – auch vor dem Hintergrund, dass Sie so nur ein einziges Standardmodul in Ihre Anwendung kopieren müssen, wenn Sie die dynamische Ermittlung der Feiertage verwenden möchten. Der Einsatz einer reinen VBA-Lösung bedeutet zunächst, dass einige grundlegende Informationen in Enumerationen gespeichert werden. <\/p>\n

Die erste Enumeration heißt eBundesland <\/b>und nimmt alle Bundesländer in Form entsprechender Konstanten und Zahlenwerte auf. Sie sieht so aus:<\/p>\n

Public Enum eBundesland\r\neBadenWuerttemberg = 1\r\neBayern = 2\r\neBerlin = 4\r\neBrandenburg = 8\r\neBremen = 16\r\neHamburg = 32\r\neHessen = 64\r\neMecklenburgVorpommern = 128\r\neNiedersachsen = 256\r\neNordrheinWestfalen = 512\r\neRheinlandPfalz = 1024\r\neSaarland = 2048\r\neSachsen = 4096\r\neSachsenAnhalt = 8192\r\neSchleswigHolstein = 16384\r\neThueringen = 32768\r\nEnd Enum<\/pre>\n
Warum nun erhalten die Konstanten für die Bundesländer ausschließlich Zweierpotenzen als Zahlenwerte Nun: So können wir einfach festlegen und ermitteln, welcher Feiertag in welchem Bundesland gefeiert wird.<\/p>\n
Dazu nutzen wir eine zweite Enumeration, welche die Feiertage auflistet und deren Zahlenwert Informationen darüber liefert, welche Bundesländer den jeweiligen Feiertag begehen. Diese Enumeration können Sie in Kurz- oder Langform verwenden. Hier ist eine abgekürzte Version der Langform:<\/p>\n
Public Enum eFeiertageBundeslaender\r\neNeujahr = eBadenWuerttemberg + eBayern +\r\neBerlin + eBrandenburg + eBremen +\r\neHamburg + eHessen +\r\neMecklenburgVorpommern + eNiedersachsen +\r\neNordrheinWestfalen + eRheinlandPfalz +\r\neSaarland + eSachsen + eSachsenAnhalt +\r\neSchleswigHolstein + eThueringen\r\neHeiligeDreiKoenige = eBadenWuerttemberg +\r\neBayern + eSachsenAnhalt\r\n...\r\neFronleichnam = eBadenWuerttemberg +\r\neBayern + eHessen + eNordrheinWestfalen +\r\neRheinlandPfalz + eSaarland +\r\neSachsen + eThueringen\r\neMariaHimmelfahrt = eBayern + eSaarland\r\n...\r\nEnd Enum<\/pre>\n
Wie gut zu erkennen ist, werden zu jedem Feiertag die Konstanten aller Bundesländer summiert, in denen der jeweilige Feiertag stattfindet. Da wir den Konstanten der Bundesländer Zweierpotenzen zugewiesen haben, können wir theoretisch statt der etwas längeren Ausdrücke auch einen Zahlenwert angeben. Für Feiertage, die in allen Bundesländern stattfinden, wäre dies etwa 32.768 + 16.384 + 8.192 + 4.096 + 2.048 + 1.024 + 512 + 256 + 128 + 64 + 32 + 16 + 8 + 4 + 2 + 1, also 65.535. Allerdings lassen sich die Informationen doch besser prüfen, wenn sie mit den Konstanten angegeben werden.<\/p>\n
Ermittlung des Datums des vierten Advents<\/b><\/p>\n
Der vierte Advent ist der letzte Sonntag vor dem ersten Weihnachtstag und kann somit auch auf Heiligabend fallen. Der erste bis vierte Advent sind in allen Bundesländern Feiertage. Der erste, zweite und dritte Advent wird jeweils an den Sonntagen vor dem vierten Advent gefeiert, somit sind diese Feiertage vom Datum des vierten Advents abhängig. Auch der Buß- und Bettag, der allerdings nur in Sachsen Feiertag ist, hängt vom Datum des vierten Advents ab. Das Datum des vierten Advents wird mit der folgenden Funktion ermittelt:<\/p>\n
Function VierterAdvent(intJahr As Integer)\r\n As Date\r\n    Dim dat As Date\r\n    dat = CDate("24.12." & intJahr)\r\n    Do While Not Weekday(dat, vbMonday) =\r\n        vbSunday\r\n        dat = dat - 1\r\n    Loop\r\n    VierterAdvent = dat\r\nEnd Function<\/pre>\n
Diese Funktion stellt den Wert der Variablen dat <\/b>einfach auf den 24. Dezember des Jahres ein, für welches das Datum des vierten Advents ermittelt werden soll, und wird in einer Do While<\/b>-Schleife so lange um jeweils einen Tag in Richtung Jahresbeginn verschoben, bis es auf einen Sonntag fällt. Dies kann auch gleich beim ersten Durchlauf der Fall sein – dann fällt Heiligabend genau auf den vierten Advent. Die vom vierten Advent abhängigen Feiertage werden dann durch Subtraktion der entsprechenden Anzahl Tage ermittelt.<\/p>\n
Ermittlung des Datums des Ostersonntags<\/b><\/p>\n
Die Ermittlung des Ostersonntags erfolgt durch eine recht komplizierte Berechnung, die durch die folgende Funktion abgebildet wird:<\/p>\n
Function Ostersonntag(intJahr As Integer) As Date\r\n    Dim a As Integer\r\n    Dim b As Integer\r\n    Dim c As Integer\r\n    Dim d As Integer\r\n    Dim e As Integer\r\n    Dim intTag As Integer\r\n    Dim intMonat As Integer\r\n    a = intJahr Mod 19\r\n    b = intJahr Mod 4\r\n    c = intJahr Mod 7\r\n    d = (19 * a + 24) Mod 30\r\n    e = (2 * b + 4 * c + 6 * d + 5) Mod 7\r\n    intTag = 22 + d + e\r\n    intMonat = 3\r\n    If intTag > 31 Then\r\n        intTag = d + e - 9\r\n        intMonat = 4\r\n    End If\r\n    Ostersonntag = CDate(intTag & "."\r\n    & intMonat & "." & intJahr)\r\nEnd Function<\/pre>\n
<\/p>\n
Diese Funktion sorgt dafür, dass der Ostersonntag in Abhängigkeit von der Jahreszahl an einem Tag zwischen dem 23. März und dem 26. April liegt. Wenn man sich überlegt, dass Ostern (und die davon abhängigen Tage) genau wie Weihnachten Jahrestage bestimmter Ereignisse sind, fragt man sich schon, warum hier keine einfachere Regelung gefunden wurde …<\/p>\n
Array der Feiertage zusammenstellen<\/b><\/p>\n
Die grundlegenden Funktionen und Enumerationen haben wir nun zusammengestellt. Es fehlt noch eine Funktion, die alle Informationen zusammenführt und ein Array zurückliefert, das alle Feiertagsdaten für ein per Parameter angegebenes Jahr enthält. Ein zweiter Parameter gibt an, für welches Bundesland die Feiertage zusammengestellt werden sollen. Dies alles erledigt die Funktion Feiertage<\/b> aus Listing 1<\/a><\/span>. Der erste Parameter erwartet die Angabe einer Jahreszahl, also beispielsweise 2011<\/b>, der zweite eine der Konstanten der Enumeration der Bundesländer, also etwa eNordrheinWestfalen<\/b>. Die Funktion soll ein Array mit den Feiertagen zurückliefern, wobei der erste Wert den Namen des Feiertags enthält und der zweite das Datum des Feiertags. Die Daten der beiden Stichtage (Ostersonntag und der vierte Advent) werden in den Variablen datOstersonntag <\/b>und datVierterAdvent <\/b>gespeichert und später zur Berechnung der davon abhängigen Feiertage herangezogen. Die weiter oben vorgestellten Funktionen Ostersonntag <\/b>und VierterAdvent <\/b>füllen die beiden Datumsvariablen datOstersonntag <\/b>und datVierterAdvent <\/b>gleich zu Beginn der Funktion.<\/p>\n
Listing 1: Ermitteln aller Feiertage eines Jahres für ein Bundesland<\/p>\n
Public Function Feiertage(intJahr As Integer, lngBundesland As eBundesland) As Variant\r\n    Dim arr() As String\r\n    Dim i As Integer\r\n    Dim datOstersonntag As Date\r\n    Dim datVierterAdvent As Date\r\n    datOstersonntag = Ostersonntag(intJahr)\r\n    datVierterAdvent = VierterAdvent(intJahr)\r\n    If (eNeujahr And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Neujahr", "1.1." & intJahr\r\n    If (eHeiligeDreiKoenige And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Heilige drei Könige", "6.1." & intJahr\r\n    If (eKarfreitag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Karfreitag", CStr(datOstersonntag - 2)\r\n    If (eOstersonntag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Ostersonntag", CStr(datOstersonntag)\r\n    If (eOstermontag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Ostermontag", CStr(datOstersonntag + 1)\r\n    If (eErsterMai And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "1. Mai", "1.5." & intJahr\r\n    If (eChristiHimmelfahrt And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Christi Himmelfahrt", CStr(datOstersonntag + 39)\r\n    If (ePfingstmontag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Pfingstmontag", CStr(datOstersonntag + 50)\r\n    If (eFronleichnam And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Fronleichnam", CStr(datOstersonntag + 60)\r\n    If (eMariaHimmelfahrt And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Maria Himmelfahrt", "15.8." & intJahr\r\n    If (eTagDerDeutschenEinheit And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Tag der deutschen Einheit", "3.10." & intJahr\r\n    If (eReformationstag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Reformationstag", "31.10." & intJahr\r\n    If (eAllerheiligen And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Allerheiligen", "1.11." & intJahr\r\n    If (eBussUndBettag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Buß- und Bettag", CStr(datVierterAdvent - 32)\r\n    If (eErsterAdvent And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Erster Advent", CStr(datVierterAdvent - 21)\r\n    If (eZweiterAdvent And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Zweiter Advent", CStr(datVierterAdvent - 14)\r\n    If (eDritterAdvent And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Dritter Advent", CStr(datVierterAdvent - 7)\r\n    If (eVierterAdvent And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Vierter Advent", CStr(datVierterAdvent)\r\n    If (eErsterWeihnachtstag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Erster Weihnachtstag", "25.12." & intJahr\r\n    If (eZweiterWeihnachtstag And lngBundesland) = lngBundesland Then _\r\n    FeiertagHinzufuegen i, arr, "Zweiter Weihnachtstag", "26.12." & intJahr\r\n    Feiertage = arr\r\nEnd Function<\/pre>\n
Dann prüft die Prozedur für jeden Feiertag, ob dieser in dem mit dem Parameter lngBundesland <\/b>übergebenen Bundesland begangen wird. Dabei macht sich die Funktion die Enumerationen zunutze: Ein Ausdruck wie (eNeujahr And lngBundesland) = lngBundesland <\/b>liefert so etwa den Wert True <\/b>zurück, wenn der Feiertag im angegebenen Bundesland gefeiert wird. Wie funktioniert das eNeujahr <\/b>entspricht genau wie lngBundesland <\/b>einem Zahlenwert. eNeuJahr<\/b> hat den Zahlenwert 65.535<\/b>, das Bundesland eNordrheinWestfalen <\/b>entspricht beispielsweise dem Wert 1<\/b>. Dadurch, dass wir den Bundesländern Zweierpotenzen als Wert zugewiesen haben, können wir durch einen Ausdruck wie eNeujahr And lngBundesland <\/b>ermitteln, ob eNordrheinWestfalen <\/b>in eNeuJahr <\/b>enthalten ist. Diese arithmetische beziehungsweise binäre Und<\/b>-Verknüpfung liefert genau den Wert der gemeinsamen Zweierpotenz, in diesem Fall 1<\/b> – dieses Bundesland begeht also diesen Feiertag. Wenn dies der Fall ist, ruft die Funktion eine weitere Funktion namens FeiertagHinzufuegen <\/b>mit einigen Parametern auf:<\/p>\n
FeiertagHinzufuegen i, arr, "Neujahr",\r\n"1.1." & intJahr<\/pre>\n
Der Parameter i <\/b>enthält die laufende Nummer des aktuell abgearbeiteten Feiertags, arr <\/b>ist das Array mit der zu füllenden Liste der Feiertage, der dritte Parameter enthält die Bezeichnung des Feiertags und der vierte das Datum. Die Funktion FeiertagHinzufuegen <\/b>sieht so aus:<\/p>\n
Public Function FeiertagHinzufuegen(i,\r\n arr() As String, strFeiertag As String, \r\n    strDatum As String)\r\n    ReDim Preserve arr(2, i)\r\n    arr(0, i) = strFeiertag\r\n    arr(1, i) = strDatum\r\n    i = i + 1\r\nEnd Function<\/pre>\n
Die Funktion fügt lediglich den Namen des Feiertags und das Datum zum Array hinzu und erhöht den Zähler i <\/b>um 1<\/b>. Dadurch, dass alle Parameter standardmäßig mit ByRef<\/b> übergeben werden, spiegeln sich die änderungen direkt in den Variablen der aufrufenden Funktion wider.<\/p>\n
Verwenden des Arrays<\/b><\/p>\n
Das resultierende Array können Sie auf verschiedene Arten weiternutzen. Wenn Sie beispielsweise alle Feiertage einfach im Direktfenster ausgeben möchten, verwenden Sie die folgende Prozedur:<\/p>\n
Public Function FeiertageAusgeben()\r\n    Dim arr As Variant\r\n    Dim i As Integer\r\n    arr = Feiertage(2011, eNordrheinWestfalen)\r\n    For i = LBound(arr, 2) To UBound(arr, 2)\r\n        Debug.Print arr(0, i), arr(1, i)\r\n    Next i\r\nEnd Function<\/pre>\n
Beachten Sie, dass Sie der LBound<\/b>– und der UBound<\/b>-Funktion zum Ermitteln der unteren und oberen Grenze des Arrays einen zweiten Parameter mitgeben müssen. Dieser gibt an, dass die Größe der zweiten Dimension ausgelesen werden soll. Der Grund dafür, dass wir die Zählervariable in die zweite Dimension geschrieben haben, ist der, dass die Redim<\/b>-Anweisung ausschließlich die Größe der letzten Dimension anpassen kann. Der Inhalt des von Feiertage <\/b>zurückgegebenen Arrays sieht im Direktfenster wie in Bild 1 aus.<\/p>\n
\"pic001.png\"<\/p>\n
Bild 1: Ausgabe der Feiertage eines Bundeslandes im Direktfenster<\/span><\/b><\/p>\n
Wenn Sie hingegen prüfen möchten, ob ein bestimmtes Datum ein Feiertag ist, verwenden Sie besser eine Collection<\/b>. Die Collection <\/b>hat den Vorteil, dass Sie beim Anlegen eines Elements mit dem Key<\/b>-Parameter einen Schlüssel angeben können. Der Value<\/b>-Parameter hingegen nimmt den eigentlichen Wert auf. Wenn Sie den Feiertag-Status für ein beliebiges Datum ermitteln möchten, brauchen Sie dieses nur statt des Indexes der Items<\/b>-Auflistung anzugeben. Die folgende Prozedur schreibt die Feiertage aus dem Array in eine Collection:<\/p>\n
Public Function FeiertageCollection(intJahr\r\n As Integer, lngBundesland As \r\n    eBundesland) As Collection\r\n    Dim col As Collection\r\n    Dim arr As Variant\r\n    Dim i As Integer\r\n    Set col = New Collection\r\n    arr = Feiertage(intJahr, lngBundesland)\r\n    For i = 0 To UBound(arr, 2) - LBound(arr, 2)\r\n        If Len(arr(0, i)) > 0 Then\r\n            col.Add arr(0, i), arr(1, i)\r\n        End If\r\n    Next i\r\n    Set FeiertageCollection = col\r\nEnd Function<\/pre>\n
Die Funktion IstFeiertag <\/b>prüft, ob das angegebene Datum ein Feiertag ist. Falls nicht, erzeugt der Zugriff auf den entsprechenden Key der Collection einen Fehler, der wie folgt abgefangen wird:<\/p>\n
Public Function IstFeiertag(dat As Date,\r\n lngBundesland As eBundesland) As Boolean\r\n    Dim col As Collection\r\n    Dim bol As Boolean\r\n    Set col = FeiertageCollection(Year(dat),\r\n    lngBundesland)\r\n    On Error Resume Next\r\n    bol =\r\n    Len(col.Item(Format(dat, "d.m.yyyy"))) > 0\r\n    If Err.Number = 0 Then\r\n        If bol Then\r\n            IstFeiertag = True\r\n        End If\r\n    End If\r\nEnd Function<\/pre>\n
Der Aufruf erfolgt beispielsweise im Direktfenster wie folgt:<\/p>\n
Debug.Print IstFeiertag("25.12.2011", eBadenWuerttemberg)<\/pre>\n
Natürlich können Sie die Feiertagsdaten auch in einer Tabelle der Zielanwendung speichern und die Daten daraus beziehen.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
Feiertage.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Wenn Sie mit Access Termine verwalten, werden Sie auch Feiertage berücksichtigen wollen. Die entsprechenden Datumsangaben liefert Access leider nicht frei Haus – Sie müssen selbst eine entsprechende Funktion bereitstellen. Der vorliegende Beitrag zeigt, wie Sie die Feiertage ermitteln und wie Sie schnell prüfen, ob ein Feiertag auf ein bestimmtes Datum fällt.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662011,66042011,44000027],"tags":[],"class_list":["post-55000787","post","type-post","status-publish","format-standard","hentry","category-662011","category-66042011","category-Loesungen"],"yoast_head":"\nFeiertage dynamisch ermitteln - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Feiertage dynamisch ermitteln\" \/>\n<meta property=\"og:description\" content=\"Wenn Sie mit Access Termine verwalten, werden Sie auch Feiertage berücksichtigen wollen. Die entsprechenden Datumsangaben liefert Access leider nicht frei Haus - Sie müssen selbst eine entsprechende Funktion bereitstellen. Der vorliegende Beitrag zeigt, wie Sie die Feiertage ermitteln und wie Sie schnell prüfen, ob ein Feiertag auf ein bestimmtes Datum fällt.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:57:01+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"11\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Feiertage dynamisch ermitteln\",\"datePublished\":\"2020-05-22T21:57:01+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/\"},\"wordCount\":1450,\"commentCount\":2,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/b0ad628935be46c9a10396f8ff3215b0\",\"articleSection\":[\"2011\",\"4\\\/2011\",\"L\u00f6sungen\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/\",\"name\":\"Feiertage dynamisch ermitteln - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/b0ad628935be46c9a10396f8ff3215b0\",\"datePublished\":\"2020-05-22T21:57:01+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/b0ad628935be46c9a10396f8ff3215b0\",\"contentUrl\":\"http:\\\/\\\/vg04.met.vgwort.de\\\/na\\\/b0ad628935be46c9a10396f8ff3215b0\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Feiertage_dynamisch_ermitteln\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Feiertage dynamisch ermitteln\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Feiertage dynamisch ermitteln - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/","og_locale":"de_DE","og_type":"article","og_title":"Feiertage dynamisch ermitteln","og_description":"Wenn Sie mit Access Termine verwalten, werden Sie auch Feiertage berücksichtigen wollen. Die entsprechenden Datumsangaben liefert Access leider nicht frei Haus - Sie müssen selbst eine entsprechende Funktion bereitstellen. Der vorliegende Beitrag zeigt, wie Sie die Feiertage ermitteln und wie Sie schnell prüfen, ob ein Feiertag auf ein bestimmtes Datum fällt.","og_url":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:57:01+00:00","og_image":[{"url":"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"11\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Feiertage dynamisch ermitteln","datePublished":"2020-05-22T21:57:01+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/"},"wordCount":1450,"commentCount":2,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#primaryimage"},"thumbnailUrl":"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0","articleSection":["2011","4\/2011","L\u00f6sungen"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/","url":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/","name":"Feiertage dynamisch ermitteln - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#primaryimage"},"thumbnailUrl":"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0","datePublished":"2020-05-22T21:57:01+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#primaryimage","url":"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0","contentUrl":"http:\/\/vg04.met.vgwort.de\/na\/b0ad628935be46c9a10396f8ff3215b0"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Feiertage_dynamisch_ermitteln\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Feiertage dynamisch ermitteln"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000787","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000787"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000787\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000787"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000787"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000787"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}