Hejsan,

Jag vill att användaren ska kunna mata in ett veckonummer och få ut de dagar som ingår i denna vecka. Finns det någon möjlighet att göra detta i VBS?

Mvh,
/Robert

Jag förutsätter att du använder svensk definiton av veckonummer. Vilket innebär att första veckan på ett år är den vecka som innehåller fyradagar av detta året.

Denna funktion retunerar måndagen i angiven vecka:
<%
Public Function DateFromWeek(Year, Week)
Dim FirstJan
Dim DayOfWeek
FirstJan = DateSerial(Year, 1, 1)
DayOfWeek = Weekday(FirstJan, vbMonday)

If DayOfWeek>4 Then
DateFromWeek = DateAdd("ww", Week, FirstJan) - (DayOfWeek - 1)
Else
DateFromWeek = DateAdd("ww", Week - 1, FirstJan) - (DayOfWeek - 1)
End If

End Function
%>

Listar alla veckodagar i veckan som angivits i querystring'en T.ex GetWeek.asp?Year=1999&Week=1.

<%
Dim FirstDate
Dim Index
FirstDate = DateFromWeek(Request.QueryString("Year") , Request.QueryString("Week"))
For Index = 1 to 7
Response.Write FirstDate+Index & "<BR>" & vbCrLf
Next
%>

Två Intressanta datum är:

'måndag den 29 dec 2003
?Format$(#2003-12-29#,"ww",vbMonday,vbFirstFourDays)
53

'tisdagen den 30 dec 2003
?Format$(#2003-12-30#,"ww",vbMonday,vbFirstFourDays)
1