Week Ending

[csgraham74]

Hi Guys,

I was wondering if anyone could help me find a function to get a week
ending function??

i.e. week ending on sunday

Therefore if a i was to input todays date in my function it would
output the sunday date of the same week. If anyone has a such a
function or can point me in the right direction it would be most
helpful.

Regards

CG

[Samuel Shulman]

You can use the 'DayOfWeek' Property of the Date type to figure out the day
of today
Today.DayOfWeek will return an enum value that you can calculates the next
Sunday based on that

hth,
Samuel Shulman

"csgraham74" <cs********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...

Hi Guys,

I was wondering if anyone could help me find a function to get a week
ending function??

i.e. week ending on sunday

Therefore if a i was to input todays date in my function it would
output the sunday date of the same week. If anyone has a such a
function or can point me in the right direction it would be most
helpful.

Regards

CG

[Göran Andersson]

Use the DayOfWeek property to determine the current day, convert it to
an integer, and use it to calculate how many days you have to add to get
to the end of the week.

E.g. if Wednesdays has the value 3 (not sure, you have to check that),
then you would add 7 - 3 = 4 days to get to sunday.

csgraham74 wrote:

Hi Guys,

I was wondering if anyone could help me find a function to get a week
ending function??

i.e. week ending on sunday

Therefore if a i was to input todays date in my function it would
output the sunday date of the same week. If anyone has a such a
function or can point me in the right direction it would be most
helpful.

Regards

CG

[Claes Bergefall]

Try this:

Private Function GetLastDayOfWeek(ByVal dt As Date) As Date
Dim firstDayOfWeek As Integer =
CInt(DateTimeFormatInfo.CurrentInfo.FirstDayOfWeek )
Dim lastDayOfweek As Integer = (firstDayOfWeek + 6) Mod 7

If lastDayOfweek < dt.DayOfWeek Then
Return dt.AddDays(lastDayOfweek - dt.DayOfWeek + 7.0)
Else
Return dt.AddDays(lastDayOfweek - dt.DayOfWeek)
End If
End Function

/claes

"csgraham74" <cs********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...

Hi Guys,

I was wondering if anyone could help me find a function to get a week
ending function??

i.e. week ending on sunday

Therefore if a i was to input todays date in my function it would
output the sunday date of the same week. If anyone has a such a
function or can point me in the right direction it would be most
helpful.

Regards

CG

[csgraham74]

Thanks guys you help had been greatly appreciated

CG
Claes Bergefall wrote:

Try this:

Private Function GetLastDayOfWeek(ByVal dt As Date) As Date
Dim firstDayOfWeek As Integer =
CInt(DateTimeFormatInfo.CurrentInfo.FirstDayOfWeek )
Dim lastDayOfweek As Integer = (firstDayOfWeek + 6) Mod 7

If lastDayOfweek < dt.DayOfWeek Then
Return dt.AddDays(lastDayOfweek - dt.DayOfWeek + 7.0)
Else
Return dt.AddDays(lastDayOfweek - dt.DayOfWeek)
End If
End Function

/claes

"csgraham74" <cs********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...

Hi Guys,

I was wondering if anyone could help me find a function to get a week
ending function??

i.e. week ending on sunday

Therefore if a i was to input todays date in my function it would
output the sunday date of the same week. If anyone has a such a
function or can point me in the right direction it would be most
helpful.

Regards

CG