Date computation 1

[strangeryet]

Hello,

How can I find what the Sunday date would be for the xx number of weeks represented as a numeric value:

In other words: If given the numeric value of (let's say) 37, what would the Sunday date be for the 37th week into the year?

I assume I would start with a beginnnig date of 010108
and do a dateadd("ww", begindate, 37) then step through and add 1 to each day until I find Sunday???
Thanks

 

[SkipVought]

Hi,

d is any date within the year of interest, w is the week.

Function SunDte(d As Date, w As Integer)
    Dim i
    
    d = DateSerial(Year(d), 1, 1)
    
    d = d + (w - 1) * 7
    Do
        i = Weekday(d)
        If i = 1 Then Exit Do
        d = d + 1
    Loop
    SunDte = d
End Function

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strangeryet]

Wow, very stream-lined. Thanks very much.