(Jahres-) Kalender erstellen (2) |
|
Update (20.1.2007)
Ausgehend von dem Kalender-Makro wurden in dieser Version folgende Dinge geändert:
Update Die Feiertage werden in der Funktion Berechnen_Feiertage(oDatum As Date) erfasst und können dort gepflegt werden. Dabei ist zu beachten, dass die Feiertagsnamen und -daten in zwei getrennten Arrays gespeichert werden, einen besseren Zugriff zu erhalten. Wird ein neuer Feiertag (oder fix in den Kalender einzutragender Termin) erfasst, muss unbedingt die Array-Grenze mit geändert werden, um einen Überlauf-Fehler zu vermeiden! Private Sub Berechnen_Feiertage(oDatum As Date) ' Bitte beim Ergänzen beachten: ' Redim-Grenzen auch hochsetzen! ReDim Feiertage(13) ReDim FeiertageNamen(13) Dim oDat As Date oDat = OsterDatum(Year(oDatum)) FeiertageNamen(1) = "Neujahr": Feiertage(1) = "01.01." & Year(oDatum) FeiertageNamen(2) = "Fastenzeit": Feiertage(2) = DateAdd("d", -41, oDatum) FeiertageNamen(3) = "Karfreitag": Feiertage(3) = DateAdd("d", -2, oDat) FeiertageNamen(4) = "Ostern": Feiertage(4) = oDat FeiertageNamen(5) = "Ostern": Feiertage(5) = DateAdd("d", 1, oDat) FeiertageNamen(6) = "1. Mai": Feiertage(6) = "01.05." & Year(oDatum) FeiertageNamen(7) = "Himmelfahrt": Feiertage(7) = DateAdd("d", 39, oDat) FeiertageNamen(8) = "Pfingsten": Feiertage(8) = DateAdd("d", 50, oDat) FeiertageNamen(9) = "Pfingsten": Feiertage(9) = DateAdd("d", 49, oDat) FeiertageNamen(10) = "Heiligab.": Feiertage(10) = "24.12." & Year(oDatum) FeiertageNamen(11) = "1.Weihn.": Feiertage(11) = "25.12." & Year(oDatum) FeiertageNamen(12) = "2.Weihn.": Feiertage(12) = "26.12." & Year(oDatum) FeiertageNamen(13) = "Einheit": Feiertage(13) = "3.10." & Year(oDatum) End Sub Das mitgegebene Datum oDatum wird für die Berechnung des Osterdatums und der darauf basierenden weiteren Feiertage benötigt. |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2200320 insgesamt | Seitenaufrufe: 40 | Letzte Änderung: 21.01.2007 | © 2001-18 Christian Freßdorf | ||||
Vielleicht sollten wir uns von dem Aberglauben lossagen, alles verstehen zu müssen und uns zur Einsicht bekehren, im Höchstfall imstande zu sein, mit unserem Unverständnis verständnisvoll umgehen zu können. Margot Bickel |
powered by phpCMS and PAX |