weekend nr til dato

hvilken dag - det må være mandag ?

Som sådan er det lige hvilken dag i ugen jeg finder, jeg skal bare bruge en metode til hvordan jeg regner ud hvilket datoer der er i en uge. Om det så er mandagen eller søndagen er mig ligemeget :-)

Denne funktion kan nok hjælpe dig lidt:

function GetDateForWeekNumber(Weeknumber, Year)
  dim day
  dim firstweek
  dim newdate
 
  \' Find first monday in year
  for i = 1 to 7
    if (DatePart(\"w\", Year & \"/1/\" & i, 2, 2) = 1) then
        day = i
    end if
  next
 
  firstweek = DatePart(\"ww\", Year & \"/1/\" & day, 2, 2)
  newdate = DateAdd(\"ww\", WeekNumber-firstweek, Year & \"/1/\" & day)
 
  GetDateForWeekNumber = newdate
end function

Den kaldes f.eks. sådan:

  MsgBox GetDateForWeekNumber(22, 2001)

Funktionen antager at mandag er først dag i ugen og at den første uge i året er den med firedage, hvilket er standard i Danmark

torbenkoch : Tak for hjælpen, det virker lige som det skal.

Mvh
JGP