orkar inte tänka... hoppas någon annan har löst detta. <code>Datum när man vet veckonummer...
Kanske finns någon bra funktion t.o.m..?
Om jag vet veckonumret samt vilket år det gäller... hur får jag fram vilket datum det är på måndagen i samma vecka?
//EDIT
Löste det själv...
Sidan i exemplet nedan anropas med <b>sida.asp?y=2004&w=39</b>
<code>
<%
Session.LCID = 3081 ' Australia
y = cInt(Request.QueryString("y"))
d = WeekDay(DateSerial(y,1,1))
m = 7-d+3
iDat = DateSerial(y,1,m)
w = DatePart("ww",iDat,0,0)
c = cInt(Request.QueryString("w"))
d = 7*(c-w)
' dMon = Date for Monday in current week
dMon = DateAdd("d",d,iDat)
' dSun = Date for Sunday in current week
dSun = DateAdd("d",6,dMon)
%>
</code>Som funktion:
Function mandagsDatum(veckoNr)
' Vecka anges som 200237 ex.vis i veckoNr
Dim Jan01
dim v
dim w
dim vd
dim d
Jan01 = DateSerial(veckoNr \ 100, 1, 1)
v = DatePart("ww", Jan01, vbMonday, vbFirstFourDays)
w = veckoNr Mod 100
If v = 1 Then w = w - 1
d = DateAdd("d", w * 7, Jan01)
vd = DatePart("w", d, vbMonday, vbFirstFourDays)
mandagsDatum = DateAdd("d", 1 - vd, d)
End Function
</code>