Date hantering

3 svar · 183 visningar · startad av Jaar 8 mars 2002

JaarMedlem sedan juli 2001434 inlägg

Trådstart8 mars 2002 13:15#1

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?

doggelitoMedlem sedan juni 20003 076 inlägg

8 mars 2002 13:44#2

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

JaarMedlem sedan juli 2001434 inlägg

8 mars 2002 13:51#3

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 ?

LarsGMedlem sedan dec. 200012 464 inlägg

8 mars 2002 16:38#4

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