---
title: "Veckonummer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/79343-veckonummer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "martinpartin"
published: "2003-06-10T14:29:49.000Z"
updated: "2003-06-11T11:20:29.000Z"
replies: 8
views: 289
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/79343-veckonummer"
---

# Veckonummer

## #1 — martinpartin, 2003-06-10T14:29Z

Hej,

Hur kan jag lista ut samtliga datum ur en vecka som kommer från ett nummer typ 24 sedan om möjlig plocka ut första dagen i den veckan... 

Mvh
Martin

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

## #2 — LarsG, 2003-06-10T17:47Z

```
weekno = 24
y = 2003

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)
```

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

## #3 — martinpartin, 2003-06-11T07:02Z

Tack så mkt !!

  ;) 

Mvh
Martin

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

## #4 — martinpartin, 2003-06-11T07:31Z

Kan någon se vad som är fel. 

```

str_date = "2003-06-25"

weekno = DatePart("ww", str_date)
 
y = DatePart("yyyy", str_date)

firstday = y & Right(str_date, 6)

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",4,startday)
```

 

startday blir 2003-12-29
endday blir 2004-01-02

Mvh
Martin

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

## #5 — Engine^, 2003-06-11T08:12Z

Har du alltid ett helt datum är det enklare att göra så här:

```
dteStart = DateAdd("d", 1 - WeekDay([i]datumet[/i], 2), [i]datumet[/i])

dteStop = DateAdd("d", 6, dteStart)
```

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

## #6 — martinpartin, 2003-06-11T10:09Z

Lite bättre blev det men inte 100 dock. ?

```

str_date = "2003-06-25"

weekno = DatePart("ww", str_date)
 
y = DatePart("yyyy", str_date)

firstday = y & Right(str_date, 6)

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("d", 1 - WeekDay(startday, 2), startday)
endday = DateAdd("d", 6, startday)
```

 

startday blir
2003-06-30
endday blir
2003-07-06

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

## #7 — martinpartin, 2003-06-11T10:15Z

Löste det:

```
weekno = DatePart("ww", str_date)
 
y = DatePart("yyyy", str_date)

firstday = y & Right(str_date, 6)

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("d", -5, startday)

startday = DateAdd("d", 1 - WeekDay(startday, 2), startday)
endday = DateAdd("d", 4, startday)
```

 

Tack

Martin

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

## #8 — Peeer, 2003-06-11T10:19Z

Men varför krångla till det så? Om du jämt har ett datum så funkar ju Engine^s kod ypperligt.

```
datumet = "2003-06-25"
dteStart = DateAdd("d", 1 - WeekDay(datumet, 2), datumet)
dteStop = DateAdd("d", 6, dteStart)
response.write "Start: " & dteStart
response.write "<br>Stopp: "& dteStop
```

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

## #9 — martinpartin, 2003-06-11T11:20Z

Ahaja nu fattar jag..  trodde engine bara byggde på Lars G kod...
Det blev lite mindre kod  :) 

tackar så mkt !

Mvh
Martin

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/79343-veckonummer