Dates

[vbgladiator]

Hey,

How would I calculate the Last Week of today's date?
I don't need the last 7 days, but the last week.

Thanks,

[gigemboy]

As in.. just subtract 7 days??? If so, then use the .Subtract method of the Date class...

'todays date       
Dim MyDate As Date = Date.Now 
'below, subtracts 7 days from MyDate
Dim OldDate As Date = MyDate.Subtract(New TimeSpan(7, 0, 0, 0))
'Displays date from a week ago...
MessageBox.Show(OldDate.ToShortDateString)

[vbgladiator]

no, I know how to subtract 7 days.
I want the dates of last week. (Monday to Sunday of last week)

[gigemboy]

Then just loop

        Dim MyDate As Date = Date.Now
        For I As Integer = 1 To 7 Step 1
            Dim OldDate As Date = MyDate.Subtract(New TimeSpan(I, 0, 0, 0))
            MessageBox.Show(OldDate.ToShortDateString)
        Next

Or do you want the first full monday to sunday...? And only monday to sunday?

**EDIT - had -1 instead of 1...

[gigemboy]

Here's how to get the first full Moday to Sunday of the previous week...

        Dim MyDate As Date = Date.Now
        For J As Integer = 7 To 1 Step -1
            Dim OldDate As Date = MyDate.Subtract(New TimeSpan(J + MyDate.DayOfWeek - 1, 0, 0, 0))
            MessageBox.Show(OldDate.ToShortDateString)
        Next

[vbgladiator]

What I need is to know the dates of last week.
If today is 4th of February, the dates I want are January 23 - 29.
That would be last week.

[gigemboy]

Then my last post above should do it

[vbgladiator]

hehe, we posted at teh same time. the second one works fine. thanks a lot.

[gigemboy]

On a side note, to get the actual enumeration value that states "Monday", etc instead of the numbers, you can try something like this in the messagebox code above...

'displays the value as "Monday, 01/23/2006"
MessageBox.Show(DayOfWeek.GetName(GetType(DayOfWeek), OldDate.DayOfWeek) & ", " & OldDate.ToShortDateString)