Feiertage

Forumthread: Feiertage

Feiertage

20.01.2004 10:24:43

Melanie Fröhling

Hallo Ihr,
habe ein großes Problem auf Arbeit, habe keine Ahnung von VBA,
ich soll nach einem Anfangs- und Enddatum die dazwischenliegenden Tage zählen lassen. Ausgenommen der Samstage, Sonntage; sowie unter Beachtung des Schaltjahres, und abzüglich der Feiertage:
Neujahr
Karfreitag
Ostersonntag
Ostermontag
Maifeiertag
Christi Himmelfahrt
Pfingstsonntag
Pfingstmontag
Fronleichnam
Tag der Deutschen Einheit
Reformationstag
Buß-und Bettag
1. Weihnachtsfeiertag
2. Weihnachtsfeiertag
(Manche Feiertage z.B. Ostern Fallen immer auf ein anderse Datum)

Is viel verlangt, aber könnt Ihr mir helfen, es ist wichtig!
Danke, danke, danke!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Feiertage

20.01.2004 10:33:06

Volker Bourtscheidt
AW: Feiertage

20.01.2004 11:01:29

Harald
AW: Feiertage

24.01.2004 16:46:28

Joshi

AW: Feiertage

20.01.2004 10:33:06

Volker Bourtscheidt

Hallo Melanie
schau hier nach
www.herber.de/forum/archiv/84to88/t84236.htm
Da gibt es auch einen Link mit der entsprechenden Beispieldatei.
Ansonsten im AddIn-Manager im Menü Extras die Analysefunktionen aktivieren,
dann kannst Du mit =Nettoarbeitstage die entsprechenden Daten ausklammern.
Gruß
Volker

AW: Feiertage

20.01.2004 11:01:29

Harald

Hallo Melanie
also für Ostern gibt es extra eine Berechnungsformel.
Ostern: =RUNDEN((TAG(MINUTE(JAHR(S2)/38)/2+55)&".4."&JAHR(S2))/7;)*7-6
für s2 ist das Jahr einzutragen.
Für die Restlichen Feiertage gibt es bei www.ms-office-forum.net eine Auflistung, wieviel Tage sie nach Ostern sind.
Dafür brauchst du kein VBA. Ich habe das auch alles mit Excel gemacht.
MfG
Harald

AW: Feiertage

24.01.2004 16:46:28

Joshi

Der Ostersonntag eines Jahres lässt sich berechnen, alle andere beweglichen Feiertage stehen dazu in direktem Verhältnis. Als Übergabe wird nur JAHR benötigt.
a = JAHR Mod 19
b = JAHR Mod 4
c = JAHR Mod 7
j = (19 * a + 24) Mod 30
k = ((2 * b) + (4 * c) + (6 * j) + 5) Mod 7
If j = 29 And k = 6 Then
TAG = 19
MONAT = 4
ElseIf j = 28 And k = 6 Then
TAG = 18
MONAT = 4
Else
l = j + k
If l < 10 Then
TAG = 22 + l
MONAT = 3
Else
TAG = l - 9
MONAT = 4
End If
End If
Ostersonntag = DateSerial(JAHR, MONAT, TAG)
Ostersonntag - 48 = Rosenmontag
Ostersonntag - 46 = Aschermittwoch
Ostersonntag - 7 = Palmsonntag
Ostersonntag - 3 = Gründonnerstag
Ostersonntag - 2 = Karfreitag
Ostersonntag - 1 = Ostersamstag
Ostersonntag + 1 = Ostermontag
Ostersonntag + 39 = Christi Himmelfahrt
Ostersonntag + 48 = Pfingstsamstag
Ostersonntag + 49 = Pfingstsonntag
Ostersonntag + 50 = Pfingstmontag
Ostersonntag + 60 = Fronleichnam
Ich hoffe das hilft, dummerweise sind die Tabstopps weg und es ist etwas unübersichtlich!
Gruß
Joshi

Beliebteste Forumthreads (12 Monate)

Forumthread: Feiertage

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread