Anbei eine Funktion mit der man die Kalenderwoche zu einem Datum herausfinden kann:


Imports System.Globalization
Public Function getKW(ByVal Datum As Date) As Short
Dim CUI As New CultureInfo (CultureInfo.CurrentCulture.Name)
Return CUI.Calendar.GetWeekOfYear(Datum,_
CUI.DateTimeFormat.CalendarWeekRule,_
CUI.DateTimeFormat.FirstDayOfWeek)
End Function