Public Function tg(ByVal given_Date As Date, Optional frei As Boolean = True)
If Int(given_Date) = Int(now()) Then
    tg = "Heute"
    Exit Function
End If
given_Date = DateValue(Format(given_Date, "yyyy/mm/dd"))
tg = Format(given_Date, "dddd")
Select Case Format(given_Date, "dd/mm")
    Case "01/01", "01.01"
        tg = "Neujahr"
    Case "01/05", "01.05"
        tg = "Tag der Arbeit"
    Case "01/11", "01.11"
        tg = "Allerheiligen"
    Case "03/10", "03.10"
        tg = "Tag d.Dt. Einheit"
    Case "24/12", "24.12"
        tg = "Heilig Abend"
    Case "25/12", "25.12"
        tg = "1. Weihnachtsfeiertag"
    Case "26/12", "26.12"
        tg = "2. Weihnachtsfeiertag"
    Case "31/12", "31.12"
        tg = "Sylvester"
    Case Else
        Select Case given_Date - bew(Val(Format(given_Date, "yyyy")), "s")
            Case -46
                If Not frei Then tg = "Aschermittwoch"
            Case 39
                tg = "Christi Himmelfahrt"
            Case 60
                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