Current week of the year is based on CultureInfo : CultureInfo « I18N Internationlization « VB.Net Tutorial

1. VB.Net Tutorial
2. I18N Internationlization
3. CultureInfo

Imports System
Imports System.Globalization

Public Class SamplesCalendar

   Public Shared Sub Main()
      Dim myCI As New CultureInfo("en-US")
      Dim myCal As Calendar = myCI.Calendar

      Dim myCWR As CalendarWeekRule = myCI.DateTimeFormat.CalendarWeekRule
      Dim myFirstDOW As DayOfWeek = myCI.DateTimeFormat.FirstDayOfWeek

      Console.WriteLine("The FirstDayOfWeek used for the en-US culture is {0}.", myFirstDOW)
      Console.WriteLine("The current week is Week {0} of the current year.", myCal.GetWeekOfYear(DateTime.Now, myCWR, myFirstDOW))

   End Sub
End Class