Mega Code Archive

 

Categories / VB.Net Tutorial / Date Time

 

Current week in current year

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("Current week is Week {0} of the current year.", myCal.GetWeekOfYear(DateTime.Now, myCWR, myFirstDOW))    End Sub  End Class