---
title: "Datum på måndag om jag vet år och veckonr?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/177182-datum-på-måndag-om-jag-vet-år-och-veckonr"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "HammerBoy"
published: "2009-02-25T20:27:11.000Z"
updated: "2009-02-25T21:12:55.000Z"
replies: 5
views: 492
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/177182-datum-på-måndag-om-jag-vet-år-och-veckonr"
---

# Datum på måndag om jag vet år och veckonr?

## #1 — HammerBoy, 2009-02-25T20:27Z

Jag vet **år**.
Jag vet **veckonummer**.
Jag vill loopa ut veckans 7 datum från måndag till söndag.
Fångar jag bara måndagens datum så kan jag fixa resten själv.

**input:**
ar = 2009
vecka = 1

**Output:**
Måndag 2008-12-29
Tisdag 2008-12-30
Onsdag 2008-12-31
Torsdag 2009-01-01
Fredag 2009-01-02
Lördag 2009-01-03
Söndag 2009-01-04

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

## #2 — Peter S, 2009-02-25T20:43Z

Översatt från <http://dotnetslackers.com/Community/blogs/xun/archive/2008/06/26/get-the-monday-date-of-a-given-week-in-a-given-year.aspx>:

```
function f(y, w)
  dim d, m
  d = cdate("1/1/" & y)
  m = dateadd("d", 1 - datepart("w", d, 2, 2), d)
  f = dateadd("d", (w - 1) * 7, m)
end function

response.write f(2009, 1)
```

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

## #3 — yohpops, 2009-02-25T20:46Z

Eller såhär:
Knackade ihop det med en hand.

```
function getWeekDate(y,ww)
d=cdate("1900-01-01")
msgbox d
d=DateAdd("yyyy",y-1900,d)
msgbox d
d=DateAdd("ww",ww-1,d)
getWeekDate=d
end function
function getMonday(in_date)
getMonday=(weekday(in_date,3))*-1
end function
wd=getWeekDate(2009,7)
dmon=DateAdd("d", getMonday(wd),wd)
msgbox dmon
```

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

## #4 — HammerBoy, 2009-02-25T20:54Z

> **[Peter S skrev:](https://www.webforum.nu/p/1458086)**
>
> Översatt från <http://dotnetslackers.com/Community/blogs/xun/archive/2008/06/26/get-the-monday-date-of-a-given-week-in-a-given-year.aspx:>
> 
>
>
> ```
> function f(y, w)
>   dim d, m
>   d = cdate("1/1/" & y)
>   m = dateadd("d", 1 - datepart("w", d, 2, 2), d)
>   f = dateadd("d", (w - 1) * 7, m)
> end function
> 
> response.write f(2009, 1)
> ```

Precis! Perfekt! Lysande! Works like a charm  :birp
Tack och bock  :)

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

## #5 — HammerBoy, 2009-02-25T20:59Z

> **[yohpops skrev:](https://www.webforum.nu/p/1458088)**
>
> Eller såhär:
> Knackade ihop det med en hand.
>
>
> ```
> function getWeekDate(y,ww)
> d=cdate("1900-01-01")
> msgbox d
> d=DateAdd("yyyy",y-1900,d)
> msgbox d
> d=DateAdd("ww",ww-1,d)
> getWeekDate=d
> end function
> function getMonday(in_date)
> getMonday=(weekday(in_date,3))*-1
> end function
> wd=getWeekDate(2009,7)
> dmon=DateAdd("d", getMonday(wd),wd)
> msgbox dmon
> ```

Kunde inte låta bli att testa även din kod och även den fungerar perfekt! Peter S "vinner" på färre kodrader men tack ändå  :)

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

## #6 — yohpops, 2009-02-25T21:12Z

Fixade lite:

```
function getMonday(y,ww)
d=DateAdd("ww",ww-1,cdate(y&"-01-01"))
getMonday=DateAdd("d", (weekday(d,3))*-1,d)
end function
response.write getMonday(2009,7)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/177182-datum-på-måndag-om-jag-vet-år-och-veckonr