How do I convert the Week No into a Date Range 1

[Razor1]

In my project I have a week no. I need to convert that into the date range for that week.

Any ideas on how to accomplish this?

Thanks in advance for any help .

Razor


Razor1

 

[Golom]

Week Number" is a bit of an ambiguous term.

It can be interpreted as seven-day intervals beginning on January 1^st OR it can be interpreted as the number of Sundays + 1 after January 1^st.

Which is the interpretation of your "Week Number"?

 

[Razor1]

I am using Monday's as the start of the week.

Razor1

 

[Golom]

OK. Then I assume that the number of Mondays + 1 after January 1^st is your Week Number value.

If So ...

Public Function GetWeekStart(WeekNo As Integer, YearNo As Integer, _
                             Optional WeekStartDay As Integer = vbSunday) As Date
    Dim n                           As Integer
    Dim SecondWeekStart             As Date
    If WeekNo > 0 Then
        For n = 2 To 8
            SecondWeekStart = DateSerial(YearNo, 1, n)
            If Weekday(SecondWeekStart) = WeekStartDay Then Exit For
        Next
        GetWeekStart = SecondWeekStart + ((WeekNo - 1) * 7)
    Else
        SecondWeekStart = DateSerial(YearNo, 1, 1)
        GetWeekStart = SecondWeekStart
    End If

End Function

And call it with

Dim StartOfWeek As Date
Dim EndOfWeek   As Date
StartOfWeek = GetWeekStart(WeekNo, YearNo, vbMonday)
EndOfWeek = StartOfWeek + 7

 

[Razor1]

Thanks. That worked.

Have a star.


Razor1