Hi,
ich suche nach einer Prozedur, die mir für die nächsten 10 - 15 Jahre berechnet, auf welchen Kalendertag die beiden christlichen Feiertage fallen; gibt es so etwas?
Gruss
Wilhelm
Hi!
Altes und oft gefragtes Problem! Habe mal eben meine Tool-Box für VB rausgekramt:
Aufruf im Hauptprogramm:
ReDim AlleFeiertage(10) As String
’ 0 = 1. Januar
’ 1 = Heilige Drei Könige
’ 2 = Karfreitag
’ 3 = Ostern
’ 4 = Ostermontag
’ 5 = Himmelfahrt
’ 6 = Pfingsten
’ 7 = Pfingstmontag
’ 8 = Tag der Deutschen Einheit
’ 9 = Weihnachten
’ 10 = 2.Weihnachtstag
RechneFeiertage(Year(Now),AlleFeiertage())
Aufgerufenes Unterprogramm:
Sub RechneFeiertage (Jahr As Integer, FeierTage() As String)
Dim D As Long
Dim e As Long
Dim n As Integer
If Jahr [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke! owT
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]