Public Function tg(ByVal given_Date As Date, Optional frei As Boolean = True)
given_Date = DateValue(Format(given_Date, "yyyy/mm/dd"))
' ^^^ Hier wird die Uhrzeit vom Datum abgetrennt.
tg = Format(given_Date, "dddd")
' ^^^ Hier wird der Rückgabe Wert auf den Wochentag gesetzt. Montag, Dienstag 
' etc
Select Case Format(given_Date, "dd/mm")
' ^^^ Hier werden feste Feiertage ermittelt und ggf der Rückgabewert angepasst.
    Case "01/01"
        tg = "Neujahr"
    Case "01/05"
        tg = "Tag der Arbeit"
    Case "01/11"
        tg = "Allerheiligen"
    Case "03/05"
        If Not frei Then tg = "Thomas Geb."
    Case "03/10"
        tg = "Tag d.Dt. Einheit"
    Case "24/12"
        tg = "Heilig Abend"
    Case "25/12"
        tg = "1. Weihnachtsfeiertag"
    Case "26/12"
        tg = "2. Weihnachtsfeiertag"
    Case "31/12"
        tg = "Sylvester"
    Case Else
        Select Case given_Date - bew(Val(Format(given_Date, "yyyy")), "s")
' ^^^ zu allen beweglichen Feiertagen werden die Abstände zum Ostersonntag
' ^^^ ermittelt mit der Funktion bew(). Die Schreibe ich gleich.
            Case -46
                If Not frei Then tg = "Aschermittwoch"
            Case 39
                tg = "Christi Himmelfahrt"
            Case 60
                If Not frei Then tg = "Fronleichnam"
            Case -2
                tg = "Karfreitag"
            Case 1
                tg = "Ostermontag"
            Case 49
                tg = "Pfingstsonntag"
            Case 50
                tg = "Pfingstmontag"
            Case -48
                If Not frei Then tg = "Rosenmontag"
            Case 0
                tg = "Ostersonntag"
            Case -52
                If Not frei Then tg = "Weiberfastnacht"
            Case Else
                Select Case given_Date - (CDate("25/12/" & Format(given_Date, _
                  "yyyy")) - WeekDay("25/12/" & Format(given_Date, "yyyy"), _
                  vbMonday))
                    Case 0
                        tg = "4. Advent"
                    Case -7
                        tg = "3. Advent"
                    Case -14
                        tg = "2. Advent"
                    Case -21
                        tg = "1. Advent"
                    Case -32
                        If Not frei Then tg = "Buß- und Bettag"
                End Select
        End Select
End Select
End Function