---
title: "DatePart problem!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12357-datepart-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "niclas.j"
published: "2001-10-28T22:23:00.000Z"
updated: "2001-10-30T21:31:00.000Z"
replies: 2
views: 230
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/12357-datepart-problem"
---

# DatePart problem!?

## #1 — niclas.j, 2001-10-28T22:23Z

Hejsan..
Nu har jag problem!
Jag har värden i en kolumn (datatyp varChar) som ser ut så här:
200137 (typ)
Jag ska sedan plocka ur 37 ur detta, så här:
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = RSVeckor("Vecka")
RegVecka = Right(RegVecka, Len(RegVecka) -4)

Sedan ska jag ta reda på startdatum för denna vecka så här:
IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop

Funkar inte ??? Sätter jag ett värde själv istället för RegVecka så funkar det! Vad saknas??? förutom min kompetens!! Det det larmar på är att den inte kör DatePart biten riktigt:
Invalid procedure call or argument: 'DateAdd'

//niclas

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

## #2 — niclas.j, 2001-10-29T13:12Z

Nä hä!
Om jag ställer frågan så här då:
Vad är skillnaden?

Den här:
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
RSVeckor("Vecka")="200137"
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = RSVeckor("Vecka")
RegVecka = Right(RegVecka, Len(RegVecka) -4)
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

Eller den här:
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
RSVeckor("Vecka")="200137"
RegYear = Left(RSVeckor("Vecka"),4)
RegVecka = 37
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
IntYear = RegYear &"-01-01"
Do Until DatePart("ww", IntYear, 2, 2) = RegVecka
StartDatum = DateAdd("d", 1, IntYear)
StopDatum = DateAdd("d", 6, IntYear)
Loop
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

//niclas

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

## #3 — LarsG, 2001-10-30T21:31Z

```
IntYear = RegYear &"-01-01"

fweek = datepart("ww", intYear,2,2)
if fweek > 1 then
   startday = dateadd("d",8-weekday(intYear,2),intYear)
else
   startday = dateadd("d",-6-weekday(intYear,2),intYear)
end if

startdatum = dateadd("ww",weekno,startday)
enddatum = dateadd("d",6,startday)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12357-datepart-problem