Datum verkrijgen uit een weeknummer

[harolda1980]

Ik ben opzoek hoe ik de dag kan krijgen uit een week nummer..
Bijvoorbeeld dat ik uit week 20 de woensdag wil hebben. En eigenlijk gaat het erom dat ik standaard de eerste dag krijg(maandag).

Ik vind juist wel de omgekeerde variant.

 

[HSV]

Weeknummer in A1 invullen; code laten lopen; uitkomst in A2.

Sub hsv()
 Range("A2") = Evaluate("Date(Year(Now()),1,1+7*" & Range("A1") & "-Weekday(Date(Year(Now()),1,1),2)-6)+7")
End Sub

 

[snb]

als UDF

Function ISOdag(jaar As Integer, week As Integer, dag As Integer) As Long
  ISOdag = 7 * (week - 1) + DateSerial(jaar, 1, 4) - Weekday(DateSerial(jaar, 1, 4), 2) + dag
End Function