vb.net Monthcalendar dates

Module Module1
	Sub Main()
		Dim now = DateTime.Now
		' Get the current day of the week 0 - 6, 0 = Sunday and 6 = Saturday
		Dim current = now.DayOfWeek
		' Get the start of the week by subtracting current day of week
		Dim start = New DateTime(now.Year, now.Month, now.Day).AddDays(-current)
		' Get the end of the week by adding 6 to the start.
		Dim [end] = start.AddDays(6)

		Console.WriteLine("The first date of the week for {0} is {1}", now.ToShortDateString(), start.ToShortDateString())
		Console.WriteLine("The last date of the week for {0} is {1}", now.ToShortDateString(), [end].ToShortDateString())
		Console.ReadLine()
	End Sub
End Module

Select allOpen in new window