DatePart problem!?

2 svar · 202 visningar · startad av niclas.j 28 okt. 2001

niclas.jMedlem sedan juni 2000120 inlägg

Frågan28 okt. 2001 22:23#1

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

------------------
ingenting är omöjligt det tar bara lite längre tid..

niclas.jMedlem sedan juni 2000120 inlägg

29 okt. 2001 13:12#2

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

------------------
ingenting är omöjligt det tar bara lite längre tid..

LarsGMedlem sedan dec. 200012 464 inlägg

30 okt. 2001 21:31#3

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)

------------------
essentitia preter non sans multiplicandum