How to find a last day of the following week?

[Adam]

Hello,

How to find a last day of the next week (or in next two weeks) using VB.NET?
for example:

01-Feb-2005 = 13-Feb-2005
or
09-May-2005 = 22-May-2005
Any help is greatly appreciated,
Adam

[Mark Rae]

"Adam" <ad**@blah.co m> wrote in message
news:y2******** ************@ne ws20.bellglobal .com...

How to find a last day of the next week (or in next two weeks) using
VB.NET?
for example:

01-Feb-2005 = 13-Feb-2005
or
09-May-2005 = 22-May-2005

Any help is greatly appreciated,

I'm sure there are very many ways of doing this - here is one suggestion:

Function EndOfNextWeek (pdtmStart As DateTime) As DateTime

Dim intLastDayOfWee k as Integer = DayOfWeek.Sunda y ' modify as required

Do until pdtmStart.DayOf Week = DayOfWeek.Sunda y

pdtmStart = pdtmStart.AddDa ys(1)

Loop

Return pdtmStart.AddDa ys(7)

End Function

[gabe garza]

I know you mentioned VB, but here's a C# example.

Basiclly you just need to get the Day of the Week and substract where you're
at in the Day of the Week and pass that to AddDays() (AddDays() accepts
negative numbers) and that'll get you to your start of the week (Sunday).

class Class1
{
static DateTime AheadWeek(DateT ime dt, int numOfWeeks)
{
return(dt.AddDa ys( ( -(Convert.ToInt3 2(dt.DayOfWeek) ) ) + (numOfWeeks *
7) ));
}
[STAThread]
static void Main(string[] args)
{
// Start of this week
DateTime dt = AheadWeek(DateT ime.Now, 0);

// One week ahead of todays date
DateTime dt = AheadWeek(DateT ime.Now, 1);

// Two weeks ahead of todays date
DateTime dt = AheadWeek(DateT ime.Now, 2);

}
}
"Adam" <ad**@blah.co m> wrote in message
news:y2******** ************@ne ws20.bellglobal .com...

Hello,

How to find a last day of the next week (or in next two weeks) using
VB.NET?
for example:

01-Feb-2005 = 13-Feb-2005
or
09-May-2005 = 22-May-2005
Any help is greatly appreciated,
Adam

[Tom John]

On Mon, 9 May 2005 15:33:29 +0100, "Mark Rae"
<ma**@mark-N-O-S-P-A-M-rae.co.uk> wrote:

"Adam" <ad**@blah.co m> wrote in message
news:y2******* *************@n ews20.bellgloba l.com...

How to find a last day of the next week (or in next two weeks) using
VB.NET?
for example:

01-Feb-2005 = 13-Feb-2005
or
09-May-2005 = 22-May-2005

Date.Now.AddDay s(-Date.Now.DayOfW eek).AddDays(14 )

Hope this helps

Tom