Private Sub PrintWeeks()
      Dim d As Date = GetFirstDayOfWeek(Date.Now)
 
      For i As Integer = 1 To 52
         Debug.WriteLine(i.ToString("00") & ". Woche: " & GetDateString(d) & "" & _
           "- " & GetDateString(d.AddDays(4)))
         d = d.AddDays(7)
      Next
   End Sub
 
   Private Function GetFirstDayOfWeek(ByVal d As Date) As Date
      ' Ermittelt den ersten Tag der Woche des angegebenen Datums (immer 
      ' Montag!)
      Return d.AddDays(-If(d.DayOfWeek = DayOfWeek.Sunday, 6, d.DayOfWeek - 1))
   End Function
 
   Private Function GetDateString(ByVal d As Date) As String
      'Gibt das Datum formatiert aus
      Return d.ToString("dddd, dd.MM.yyyy", _
        Globalization.CultureInfo.CurrentCulture)
   End Function