![\"Basisdaten](\"..\/tl_files\/images\/pic_187_001.png\")
<\/a><\/p>\nBild 1: Basisdaten zu den Feiertagen<\/p>\n
Für die flexiblen Feiertage, von denen es zwei Varianten gibt, tragen wir ebenfalls den Feiertagnamen ein. Für den Tag <\/b>und den Monat <\/b>legen Sie allerdings jeweils den Wert 0 <\/b>fest. Dafür tragen Sie im Feld TageBisStichtag <\/b>einen Zahlenwert ein, der angibt, wieviele Tage der Feiertag vor oder hinter dem jeweiligen fixen Tag liegt. Um festzulegen, um welche Variante der flexiblen Feiertage es sich handelt, tragen Sie unter Feiertagsart <\/b>entweder Abstand zu Stichtag Ostersonntag konstant <\/b>oder Abstand zu Stichtag Vierter Advent konstant <\/b>ein.<\/p>\nStichtage für flexible Feiertage<\/h2>\n
Nun benötigen wir noch die Stichtage für die beiden flexiblen Feiertage, und zwar für Ostersonntag und für den vierten Advent. Im Falle des vierten Advents ist dies einfach: Es handelt sich dabei um den letzten Sonntag vor dem ersten Weihnachtsfeiertag. Um diesen Stichtag zu berechnen, verwenden Sie die Funktion aus Listing 1. Die Prozedur erwartet die Zahl des zu untersuchenden Jahres als Parameter mit dem Datentyp Integer<\/b> (für Werte bis 32.767) und liefert einen Wert des Typs Date <\/b>zurück (siehe Bild 2).<\/p>\n
Bild 2: Test der Funktion zum Ermitteln des vierten Advents<\/p>\n Die Funktion füllt eine temporäre Variable namens datTemp <\/b>mit einem Datum, dass dem 24. Dezember des angegebenen Jahres entspricht. Dazu setzt es die Zeichenkette 24.12. <\/b>und die mit der Variablen lngJahr <\/b>übergebene Jahreszahl zusammen und konvertiert den Ausdruck mit der Funktion CDate <\/b>zu einem Datumswert zusammen.<\/p>\n Dies könnten Sie theoretisch auch mit der DateSerial<\/b>-Funktion erledigen. Die entsprechende Zeile sieht dann wie folgt aus:<\/p>\n Nun startet die Prozedur eine Do While<\/b>-Schleife. Diese wird solange durchlaufen, bis der Wochentag des in datTemp <\/b>gespeicherten Datums dem Sonntag entspricht. Innerhalb der Schleife zieht die Funktion mit jedem Durchlauf einen Tag vom Datum ab.<\/p>\n Im Jahr 2012 etwa fiel Heiligabend auf einen Montag, der vierte Advent dementsprechend auf den Sonntag davor. Die Funktion prüft beim ersten Aufruf der Do While<\/b>-Zeile, ob der Wochentag des Datums den Wert vbSunday <\/b>zurückliefert. Das ist im ersten Durchlauf des Beispiels für 2012 nicht der Fall, stattdessen liefert die Weekday(datTemp) <\/b>für den 24.12.2012 <\/b>den Wert 2 <\/b>(vbMonday<\/b>). Also ist die Abbruchbedingung nicht erfüllt und der in der Schleife enthaltene Befehl wird durchlaufen. Dieser subtrahiert vom in datTemp<\/b> gespeicherten Wert die Zahl 1 <\/b>– dies entspricht genau einem Tag (Tage sind ganze Zahlen, Uhrzeiten der Bereich hinter dem Komma). Im nächsten Durchlauf hat datTemp<\/b> den Wert 23.12.2012 <\/b>und Weekday <\/b>liefert den gewünschten Wert 1 <\/b>(vbSunday<\/b>). Die Abbruchbedingung ist erfüllt und die Schleife wird kein weiteres Mal durchlaufen.<\/p>\n Schließlich stellt die Funktion datTemp<\/b> als Wert der Rückgabevariablen VierterAdvent <\/b>ein (gleichzeitig Funktionsname).<\/p>\n Die Berechnung des Ostersonntags ist etwas komplizierter als die des vierten Advents. Um ehrlich zu sein: Wir sollten die Formel zur Berechnung, die durch die Funktion aus Listing 2 abgebildet wird, einfach hinnehmen.<\/p>\n Listing 2: Berechnung des Datums des Ostersonntags<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\ndatTemp = DateSerial(intJahr, 12, 24)<\/pre>\n
Berechnung des Datums des Ostersonntags<\/h2>\n
Public Function <\/span>Ostersonntag(intJahr As Integer<\/span>) As Date<\/span>\r\n Dim <\/span>a As Integer<\/span>\r\n Dim <\/span>b As Integer<\/span>\r\n Dim <\/span>c As Integer<\/span>\r\n Dim <\/span>d As Integer<\/span>\r\n Dim <\/span>e As Integer<\/span>\r\n Dim <\/span>intTag As Integer<\/span>\r\n Dim <\/span>intMonat As Integer<\/span>\r\n a = intJahr Mod<\/span> 19\r\n b = intJahr Mod<\/span> 4\r\n c = intJahr Mod<\/span> 7\r\n d = (19 * a + 24) Mod<\/span> 30\r\n e = (2 * b + 4 * c + 6 * d + 5) Mod<\/span> 7\r\n intTag = 22 + d + e\r\n intMonat = 3\r\n If <\/span>intTag > 31 Then<\/span>\r\n intTag = d + e - 9\r\n intMonat = 4\r\n End If<\/span>\r\n Ostersonntag = intTag & \".\" & intMonat & \".\" & intJahr\r\nEnd Function<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t