---
title: "Sortera efter vecka."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94425-sortera-efter-vecka"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Inferis"
published: "2004-01-09T21:26:13.000Z"
updated: "2004-01-10T14:53:16.000Z"
replies: 2
views: 260
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/94425-sortera-efter-vecka"
---

# Sortera efter vecka.

## #1 — Inferis, 2004-01-09T21:26Z

Jag försöker få mitt script att sortera efter vilken vecka som vald queystring är.
Det funkar med denna veckan, men sen kom jag inte vidare. Vet inte hur man listar ut startdatum för vald vecka.

```
if request.querystring("vecka") = "" Then
dateNextMonday = date + (5 - weekday(date,2))
vecka = dateNextMonday-5
else
vecka = request.querystring("vecka")-5
end if
sql = "SELECT * FROM Matsedel WHERE datum BETWEEN #" & dateNextMonday & "# AND #"& vecka & "#  order by Datum"
```

Permalänk: https://www.webforum.nu/p/94425

## #2 — SB, 2004-01-10T14:29Z

Här är en funktion som reda på datumet för önskad veckodag i önskat veckonummer. Funktionen som tar emot tre argument varav det sista är ordningsnumret för veckodagen:

```
Function WeekNrToDate(varWeekNr, varYear, varDayNr)
    varWeekNrThisYear = DatePart("ww", CDate(varYear & "-01-01"), 2, 2)
If varWeekNrThisYear = 1 Then
    varDayAdd = 0 - (DatePart("w", CDate(varYear & "-01-01"), 2, 2) - 1)
Else
    varDayAdd = 8 - DatePart("w", CDate(varYear & "-01-01"), 2, 2)
End If
    varDayAdd = (7 * (varWeekNr - 1)) + varDayAdd + (varDayNr - 1)
WeekNrToDate = DateAdd("d", varDayAdd, CDate((varYear & "-01-01")))
End Function
```

Permalänk: https://www.webforum.nu/p/1246839

## #3 — Inferis, 2004-01-10T14:53Z

Tack!
Löste det på detta sättet. Kanske inte snyggt, men det funkar.

```
if request.querystring("vecka") = "" Then
dateNextMonday = date + (5 - weekday(date,2))
vecka = dateNextMonday-5
else

weekno = request.querystring("vecka")
y = Year(now())
'y = 2004
firstday = y & "-01-01"
fweek = datepart("ww", firstday)
if fweek > 1 then
   startday = dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
   startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end if
startday = dateadd("ww",weekno,startday)
endday = dateadd("d",6,startday)

dateNextMonday = startday

vecka = endday
end if
sql = "SELECT * FROM Matsedel WHERE datum BETWEEN #" & dateNextMonday & "# AND #"& vecka & "#  order by Datum"
Set RecSet_matsedel = Connect.Execute(sql)
```

Permalänk: https://www.webforum.nu/p/1246846

---

Tråden på webben: https://www.webforum.nu/amne/asp/94425-sortera-efter-vecka