Finde startdato for en given uge
Jeg har en userform hvor der kan vælges et årstal og et ugenummer.Ud fra dette skal jeg så finde den første dato i den uge.
Det virker ikke helt efter hensigten med nedenstående da den godt nok returnerer en dato, men den er i efterfølgende uge
Dim Temp As Date
Temp = "1-1-" & Me.txtYear.Value
Me.txtDate.Value = Format((7 * Val(Me.txtWeek.Value)) + DateSerial(Me.txtYear.Value, 1, 1) - (Weekday(Temp, vbMonday)), "dd-mm-yyyy")