Find the start (first) and end (last) day of week from the given date.
'Enter any Date in MDY format
Dim dtNow As DateTime = Date.Parse("03/24/2007")
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("
" & weekEndDate.ToString("MM/dd/yyyy"))
|
No responses found. Be the first to respond and make money from revenue sharing program.
|