Dim dmon As Date
        Dim dfri As Date
        Dim kw As Integer = 1
        Dim year As Integer = 2005
        Dim cal As New GregorianCalendar
        Dim d As New Date(year - 1, 12, 29)
 
        For i As Integer = 0 To 372
            Dim d1 As Date = d.AddDays(i)
            Dim kw1 As Integer = cal.GetWeekOfYear(d1, _
              CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
            If d1.DayOfWeek = 1 And kw1 = kw Then dmon = d1
            If d1.DayOfWeek = 5 And kw1 = kw Then dfri = d1
            If dmon <> New Date And dfri <> New Date Then Exit For
        Next
        Console.WriteLine("Monday " & dmon.ToShortDateString())
        Console.WriteLine("Friday " & dfri.ToShortDateString())

 
        Dim d As Date = CDate("31/12/2003")
        Dim cal As Calendar = New GregorianCalendar
        Console.WriteLine(cal.GetWeekOfYear(d, _
          CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday).ToString())
        Console.WriteLine(d.DayOfWeek)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist