Next week start end dates? 2

[kovas]

How would I go about getting the next week start and end date?

I have a grid with mon-friday/hours, and want to load into a combo box week start date and end date. (12/9/2002 - 12/13/2002) and then switch between grid views on the combo box week selection.

So is there an easy way to do this?

thanks

 

[DrJavaJoe]

'Try this

Dim temp As Date
temp = Date + 7
Do Until Weekday(temp, vbSunday) = 2
temp = temp - 1
Loop
MsgBox "Beginning of Next week is: " & temp
MsgBox "End of Next week is: " & temp + 4

 

[CCLINT]

Dim dtStart As Date
Dim dtEnd As Date

dtStart = (Date + 7)
dtStart = dtStart - (WeekdaydtStart , vbsunday) - 1)
dtEnd = dtStart + 6 [/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}

 

[MichaelRed]

A, perhaps, overly generalized method:

Public Function basNxtWkDay(Optional DayOfWeek As Integer = vbSunday) As Date

    'Michael Red    12/14/2002 Tek-tips thread222-427748

    '? basNxtWkDay
    '12/15/02

    '? basNxtWkDay(vbFriday)
    '12/20/02

    Dim dtStrt  As Date

    dtStrt = (Date + 7)
    dtStrt = dtStart - (Weekday(dtStrt, DayOfWeek) - 1)

    basNxtWkDay = dtStrt

End Function

Of course, you would (except) for Sunday, need to supply the 'name' of week day date you desired, as in hte second example.

MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[CCLINT]

>A, perhaps, overly generalized method:
I don't think so...

I have a similar function that returns an array of the dates from the previous week.

One suggestion:

Public Function basNxtWkDay(Optional FirstDayOfWeek As VbDayOfWeek= vbSunday) As Date

That will produce of list of the possible days for the first day of the week.
[/b][/i][/u]_{*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}