calculate Monday's date

[Joecx]

Does anyone know how to give a date (not today's date) and have the program
calculate the previous monday's date from it? Any help would be appreciated.
Thanks!!!!

Joe

[Marina]

The DateTime object as a DayOfWeek property. Just keep subtracting 1 day
from the date and check that property. Once you hit Monday, you are done.

"Joecx" <Jo***@discussions.microsoft.com> wrote in message
news:AE**********************************@microsof t.com...

Does anyone know how to give a date (not today's date) and have the
program
calculate the previous monday's date from it? Any help would be
appreciated.
Thanks!!!!

Joe

[Jay B. Harlow [MVP - Outlook]]

Joe,
As Marina I normally subtract the difference between your desired Date's day
of week & Monday's day of week.

Something like:

Public Function MondayBefore(ByVal day As DateTime) As DateTime
Dim days As Integer = day.DayOfWeek - DayOfWeek.Monday
If days < 0 Then
days += 7
End If
Return day.Date.Subtract(TimeSpan.FromDays(days))
End Function

Then you can call it passing in any date you want:

Debug.WriteLine(MondayBefore(DateTime.Now))
Debug.WriteLine(MondayBefore(#12/25/2005#))
Hope this helps
Jay

"Joecx" <Jo***@discussions.microsoft.com> wrote in message
news:AE**********************************@microsof t.com...
| Does anyone know how to give a date (not today's date) and have the
program
| calculate the previous monday's date from it? Any help would be
appreciated.
| Thanks!!!!
|
| Joe