Public Function getANZWOCHEN(ByVal jahr As String) As Long
        Dim d As New Date
        Dim anz As Long
        d = CDate("31.12." & jahr)
        Dim cal As New System.Globalization.GregorianCalendar
        anz = CLng(cal.GetWeekOfYear(d, _
          Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday))
        If cal.GetDayOfWeek(d) <= DayOfWeek.Wednesday And cal.GetDayOfWeek(d) _
        <> DayOfWeek.Sunday Then
            anz = anz - 1
        End If
        getANZWOCHEN = anz
    End Function