---
title: "Date hantering"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39261-date-hantering"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jaar"
published: "2002-03-08T13:15:41.000Z"
updated: "2002-03-08T16:38:56.000Z"
replies: 3
views: 183
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/39261-date-hantering"
---

# Date hantering

## #1 — Jaar, 2002-03-08T13:15Z

Jag har en sida som man väljer vecka på. för att ta ut aktiv vecka så skapar jag bara en Date som jag formaterar
Year(MyDate)
DatePart("ww", MyDate)

Nu är det så att när jag laddat om sidan behöver jag ta ut dagen först i den veckan, jag vill alltså skapa ett nytt date objekt baserat på **året** och **veckan**

Hur gör jag detta?

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

## #2 — doggelito, 2002-03-08T13:44Z

nånting i stil med denna borde funka, den här tar ut första dagen i denna vecka.
du borde kunna byta ut date mot din variant.

```
firstday = date - weekday(date,vbMonday) + 1
```

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

## #3 — Jaar, 2002-03-08T13:51Z

Men hur får jag ett Date objekt av min vecka och mitt år?
Jag har en sträng "2002" och en vecka "12", hur får jag det att bli ett date object?

Alternativt: Hur drar jag av/lägger till veckor på ett dateobject **eller** ändrar ett dateobjekt till ett annat datum ?

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

## #4 — LarsG, 2002-03-08T16:38Z

```
option explicit
function getDateFromWeek(yearNo,weekNo)
dim firstDayOfYear,firstDayInFirstWeek,firstWeek,weeksToAdd

firstDayOfYear = cdate(cstr(yearNo) & "-01-01")
firstDayInFirstWeek = firstDayOfYear - weekday(firstDayOfYear,vbMonday) + 1
firstWeek = datepart("ww",firstDayOfyear,vbMonday,vbFirstFourDays)
if  firstWeek = 1 then
    weeksToAdd = weekNo - 1 
else
    weeksToAdd = weekno
end if

getDateFromWeek = dateAdd("ww",weeksToadd,firstDayInFirstWeek)
end function

dim firstDate,lastDate,yearNo,weekNo
yearNo = 2002
weekNo = 11
 
firstDate = cdate(getDateFromWeek(2002,11))
lastDate = firstDate + 6

response.write "Vecka nummer " & weekNo & " börjar " & firstDate & " och slutar " & lastDate
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39261-date-hantering