Kalender und Feiertage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kalender und Feiertage

22.11.2006 11:48:05

{mskro}

AW: Kalender und Feiertage

22.11.2006 11:52:06

{mskro}

AW: Kalender und Feiertage

22.11.2006 12:02:57

UweD

Musterdatei

22.11.2006 12:04:10

{mskro}

ohne Funktion

22.11.2006 12:45:55

Franz

AW: ohne Funktion

23.11.2006 08:20:12

Mathias

Function Ostern(Yr As Integer) 'Funktion für die Feiertagsberechnung Dim d As Integer d = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21 Ostern = DateSerial(Yr, 3, 1) + d + (d > 48) + _ 6 - ((Yr + Yr \ 4 + d + (d > 48) + 1) Mod 7) End Function

Hallo
über die Benutzerdefinierte Feiertagsfunktion.
Code in eine Modul copieren.

Public Function FeierTag(Datum As Date, n As Boolean) As String
    Dim Jahr As Integer
    Jahr = Year(Datum)
    If (Jahr > 1904) And (Jahr < 2100) Then
        Select Case Format$(Datum, "dd.mm")
            ' Gesetzliche Feiertage
            Case "01.01": FeierTag = "Neujahr"
            'Case "06.01": FeierTag = "Heilige Drei Könige" 'nicht in NRW
            Case "01.05": FeierTag = "Tag der Arbeit"
            'Case "15.08": FeierTag = "Mariä Himmelfahrt" 'nicht in NRW
            Case "03.10": FeierTag = "Tag der Deutschen Einheit"
            'Case "31.10": FeierTag = "Reformationstag" 'nicht in NRW
            Case "01.11": FeierTag = "Allerheiligen"
            Case "24.12": FeierTag = "Heiligabend"
            Case "25.12": FeierTag = "1. Weihnachtsfeiertag"
            Case "26.12": FeierTag = "2. Weihnachtsfeiertag"
            Case "31.12": FeierTag = "Sylvester"
            Case Else
                ' Bewegliche Feste:
                Select Case Datum - OsterSonntag(Datum)
                    'Case -52: FeierTag = "Weiberfastnacht" 'nicht in NRW
                    'Case -48: FeierTag = "Rosenmontag" 'nicht in NRW
                    Case -2:  FeierTag = "Karfreitag"
                    Case 0:   FeierTag = "Ostersonntag"
                    Case 1:   FeierTag = "Ostermontag"
                    Case 39:  FeierTag = "Christi Himmelfahrt"
                    Case 49:  FeierTag = "Pfingstsonntag"
                    Case 50:  FeierTag = "Pfingstmontag"
                    Case 60:  FeierTag = "Fronleichnam"
                    Case Else
                        If Datum = CDate("25.12." & Jahr) - Weekday("25.12." & Jahr, _
                        vbMonday) - 32 Then
'                            FeierTag = "Buß- und Bettag" 'nicht in NRW
                        Else
                            If n = True Then
                                FeierTag = "gewöhnlicher " & Format$(Datum, "DDDD") ' Kein Feiertag
                            ElseIf n = False Then
                                FeierTag = vbNullString ' Kein Feiertag
                            End If
                        End If
                End Select
        End Select
    Else: FeierTag = vbNullString
    End If
  End Function
Public Function OsterSonntag(Datum As Date) As Date
    Dim A As Integer, D As Integer, E As Integer, Jahr As Integer
    Jahr = Year(Datum)
    If (1904 < Jahr) And (Jahr < 2100) Then  ' Datum zulässig ?
        A = Jahr Mod 19
        D = (19 * A + 24) Mod 30
        E = (2 * (Jahr Mod 4) + 4 * (Jahr Mod 7) + 6 * D + 5) Mod 7
        OsterSonntag = CDate(DateSerial(Jahr, 3, 22 + D + E))
        If Month(OsterSonntag) = 4 Then
            If Day(OsterSonntag) = 26 Or (Day(OsterSonntag) = 25 And E = 6 And A > 10) Then
                OsterSonntag = OsterSonntag - 7
            End If
        End If
    End If
End Function

in der Tabelle wird das so benutzt..

	A	B	C	D	E
1	Datum	01.01.2006	02.01.2006		Parameter
2	Feiertag?	Neujahr	gewöhnlicher Montag		N=1
3	Feiertag?	Neujahr			N=0

Formeln der Tabelle

B2 : =FeierTag(B1;1)
C2 : =FeierTag(C1;1)
B3 : =FeierTag(B1;0)
C3 : =FeierTag(C1;0)

Gruß UweD
(Rückmeldung wäre schön)

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread