Dato

Okay, den var lidt tricky:

DateAdd("d", d, DateAdd("ww", ww, DateValue(y & "-01-01")))
hvor d=dagens nummer i ugen(1=søndag, 2=mandag ...)
ww er ugenummer
og y er årstal.

oops, kan du bruge dateadd funktionen i ASP?

Funktionen er valid i en SQL sætning mod access.

You will also need a Year or you cant!
I have maybe something!

hansk>Monday is ALWAYS th efirst day of the week!

den skal modificeres lidt for dagen:

DateAdd("d", d - Weekday(DateValue(y & "-01-01")), DateAdd("ww", ww, DateValue(y & "-01-01")))

Terry> access assumes sunday to be the first day of the week.

Yes I know and thats why you have to do something about it or you  MAY NOT get the correct date!

Men hvis man hellere vil have mandag som dag 1, så:

DateAdd("d", d + 1 - Weekday(DateValue(y & "-01-01")), DateAdd("ww", ww - 1, DateValue(y & "-01-01")))

Denne formel har mandag som dag 1, og ugen hvor 1. januar befinder sig er uge 1.
ww=20, d=4, y=2002 giver 16/5/2002 (idag). Pheew.

Now its OK :o)
hansk as I said Monday is always the first day of the week, I should have also said in DK, I think it is actually sunday in the USA!

That's right, yankees like to be a bit ahead of the rest of us.

Just a little correction to your code hansk, not that it deosnt work, I just think its more correct.

DateAdd("d", d - Weekday(DateValue(y & "-01-01"), vbMonday), DateAdd("ww", w - 1, DateValue(y & "-01-01")))

Okay, then let's wrap it in nicely in a general function:

Public Function GenerateDate(iYear As Integer, iWeek As Integer, iWeekday As Integer) As Date
    GenerateDate = DateAdd("d", iWeekday - Weekday(DateValue(iYear & "-01-01"), vbMonday), DateAdd("ww", iWeek - 1, DateValue(iYear & "-01-01")))
End Function

I have! also one to return a date from y and week number only (moday being first day of week):o)

'Return a date from a given year and week
Function yw2Date(y As Integer, w As Integer) As Date
'1 = monday (vbMonday = 2)
    yw2Date = ywd2Date(y, w, 1)

End Function

'Return a date from a given year week and day of week.
Function ywd2Date(y As Integer, w As Integer, d As Integer) As Date
    ywd2Date = DateAdd("d", d - Weekday(DateValue(y & "-01-01"), vbMonday), DateAdd("ww", w - 1, DateValue(y & "-01-01")))

End Function

Jeg har også en ;)

Function getDate(intUge As Integer, intAar As Integer, intDag As Integer) As Date
  Dim tempDato As Date

  tempDato = DateSerial(intAar, 1, 4) - WeekDay(DateSerial(intAar, 1, 4), vbMonday) + 1
  getDate = tempDato + (7 * (intUge - 1)) + intDag - 1
End Function

Niels

Den krævede lidt tilretning, men ellers så virker den...så mange tak, også til jer andre..:)

Takker selv.