Returner datoer der modsvarer weeknumber i et bestemt år

du skal starte med at finde uge 1 (det er første uge i året, hvori der er en torsdag, jf DS)
Så ved du hvor mandag uge(1) er (mellem 29/12 og 3/1).
med dateadd lægger du uge-tallet - 1 til den mandag, og så har du mandag i uge(x), og du kan returnere denne og de næste 6 datoer.

Har selv fundet løsningen:

function findMandag(uge,aar,ugedag)
    Dim d
    d = DateSerial(aar, 1, 1)    ' 1/1/i år
    'find mandag i uge 1
    If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
          While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
            d = DateAdd("d", -1, d)
          WEnd
    Else
          While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
            d = DateAdd("d", 1, d)
        WEnd
    End If
    findMandag = DateAdd("d", 7*(uge-1), d)+ugedag-1 'juster til ugenummer, ugedag(mandag,tirsdag osv.)
end function


findmandag(23,2010,1) 'mandag
findmandag(23,2010,2) 'tirsdag
osv.

lukket