Public Shared Function GetWeekNumber(ByVal time As DateTime) As Integer
Dim ci As System.Globalization.CultureInfo = System.Globalization.CultureInfo.InstalledUICulture
Dim cal As System.Globalization.Calendar = ci.Calendar
Return cal.GetWeekOfYear(time, ci.DateTimeFormat.CalendarWeekRule, ci.DateTimeFormat.FirstDayOfWeek)
End Function