 |
 |
|
|
 |
|
 |
(Jahres-) Kalender erstellen (2) |
 |
|
|
|
|
 |
|||||||||||||||||||||
|
|
 |
Update (20.1.2007)
Ausgehend von dem
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 | 2225130 insgesamt | Seitenaufrufe: 11 | |
Letzte Änderung: 21.01.2007 | |
© 2001-18 Christian Freßdorf | |
|
Wer über gewisse Dinge den Verstand verliert, hat keinen zu verlieren. Nestroy |
powered by phpCMS and PAX | |||||