Assuming that you guys are using the Gregorian Calendar too, my results are 53 and 1:
--- Dim ci As CultureInfo = Thread.CurrentThread.CurrentCulture Dim d As New Date(2008, 12, 29) Console.WriteLine(ci.Calendar.GetWeekOfYear(d, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)) 'Result is 53 d = New Date(2009, 3, 1) Console.WriteLine(ci.Calendar.GetWeekOfYear(d, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)) 'Result is 1 --- Sorry, but I always maintain a steadfast distance from Microsoft.VisualBasic namespace and the functions that reside in it.
