How To: Get Start Date and End Date of the Week
'Enter any Date in MDY format
Dim dtNow As DateTime = Date.Parse("04/25/2004") Dim nowdayofweek As Integer = dtNow.DayOfWeek
Dim weekStartDate, weekEndDate As DateTime
weekStartDate = DateAdd("d", 0 - dtNow.DayOfWeek, dtNow) weekEndDate = DateAdd("d", 6 - dtNow.DayOfWeek, dtNow) 'Displays first day of the week
Response.Write(weekStartDate.ToString("MM/dd/yyyy")) 'Displays last day of the week
Response.Write("<BR>" & weekEndDate.ToString("MM/dd/yyyy"))