--- title: "Hur får man fram veckonummer för ett viss datum?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "mattiasnordin" published: "2003-05-05T12:14:40.000Z" updated: "2003-05-22T09:08:45.000Z" replies: 20 views: 668 page: 1 pages: 2 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/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum" --- # Hur får man fram veckonummer för ett viss datum? _Sida 1 av 2._ ## #1 — mattiasnordin, 2003-05-05T12:14Z Labbar med datum och behöver få fram vilken vecka ett visst datum tillhör. Är det någon som kan hjälpa mig på rätt spår? Permalänk: https://www.webforum.nu/p/75918 ## #2 — Peeer, 2003-05-05T12:17Z En [spark](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctdatepart.asp) i rätt riktning. :) Permalänk: https://www.webforum.nu/p/1035159 ## #3 — Palle, 2003-05-05T12:24Z Ännu en [spark](http://www.flws.com.au/showusyourcode/codeLib/code/anyDate.asp?catID=1) i rätt riktning. :) Permalänk: https://www.webforum.nu/p/1035165 ## #4 — mattiasnordin, 2003-05-05T12:30Z Tack,,,, jag är dock lite trött på alla datum som jag har trollat med. Hur får jag ut veckan för ett visst datum med hjälp av "palles" exempel? ``` varStartDate = "2003-06-01" Dim firstDayOfYear firstDayOfYear = DateSerial(Year(today), 1, 1) WeekOfTheYear = CInt(DateDiff("ww", firstDayOfYear, today, 1, firstDayOfYear) + 1) ``` Vill altså ha ut vilken vecka varStartDate är. MVh Mattias Permalänk: https://www.webforum.nu/p/1035173 ## #5 — @nders, 2003-05-05T12:34Z ``` intWeekNumber = DatePart("ww", CDate(varStartDate)) ``` Mvh Permalänk: https://www.webforum.nu/p/1035179 ## #6 — Palle, 2003-05-05T12:37Z Jag brukar använda denna: ``` [red] strDate = "2003-06-01" intWeek = DatePart("ww", CDate(strDate), 2)[/red] ```   Crap! Snabeldraken är het på gröten idag..   Permalänk: https://www.webforum.nu/p/1035185 ## #7 — mattiasnordin, 2003-05-05T12:37Z Tack, anders... Misstänkte att det var så enkelt. Borde gå och göra något annat nu... Kanske ska gå ut i det fina vädret (solen skiner i uppsala) Permalänk: https://www.webforum.nu/p/1035189 ## #8 — cyprys, 2003-05-05T12:46Z yupp! :bire Permalänk: https://www.webforum.nu/p/1035197 ## #9 — mattiasnordin, 2003-05-05T13:17Z Palle, du kan fortfarande vara FÖRST! :-) Jag behöver hjälp att konvertera en vecka till ett datum. Behöver få fram första datumet i en vecka. Man väljer ett datum och jag vill ha fram det första datumet i den veckan man har valt. ha ha... Är det någon som förstår vad jag är ute efter? Permalänk: https://www.webforum.nu/p/1035229 ## #10 — mattiasnordin, 2003-05-05T13:23Z varStartDate = 2003-06-12 varStartDate är då vecka 24. varWeekStartDate variabeln ska bli 2003-06-09 oberoende på vilket datum som varStartDate är så länge datumet är inom samma vecka.... Permalänk: https://www.webforum.nu/p/1035235 ## #11 — Peeer, 2003-05-05T13:28Z Skippa loopen i koden nedan bara (för att bara skriva ut startdatumet). Permalänk: https://www.webforum.nu/p/1035236 ## #12 — Palle, 2003-05-05T13:37Z ``` [red]<% Function getDateByWeek(strDate) intWeek = DatePart("ww",strDate,vbMonday,vbFirstFourDays) strYear = Year(strDate) strDate = strYear &"-01-01" Do Until DatePart("ww", strDate, 2, 2) = intWeek strDate = DateAdd("d", 1, strDate) Loop getDateByWeek = "v"& intWeek &" börjar med: "& strDate End Function Response.Write getDateByWeek("2003-06-12") %>[/red] ``` Permalänk: https://www.webforum.nu/p/1035243 ## #13 — mattiasnordin, 2003-05-05T13:52Z Och Palle får det altenativa nobelpriset av Mattias Nordin!!!!! Permalänk: https://www.webforum.nu/p/1035253 ## #14 — Palle, 2003-05-05T13:55Z > **mattiasnordin skrev:** > > Och Palle får det altenativa nobelpriset av Mattias Nordin!!!!!   :D :birp Permalänk: https://www.webforum.nu/p/1035259 ## #15 — m_soderlund, 2003-05-05T14:28Z Palle, Palle. Alla, t.o.m. Palle vet om att man ska deklarera sina variabler. (Och använda Option Explicit..) ``` [red]<% [b]Dim intWeek, strYear, strDate[/b] Function getDateByWeek(strDate) intWeek = DatePart("ww",strDate,vbMonday,vbFirstFourDays) strYear = Year(strDate) strDate = strYear &"-01-01" Do Until DatePart("ww", strDate, 2, 2) = intWeek strDate = DateAdd("d", 1, strDate) Loop getDateByWeek = "v"& intWeek &" börjar med: "& strDate End Function Response.Write getDateByWeek("2003-06-12") %>[/red] ``` ;) Permalänk: https://www.webforum.nu/p/1035290 ## #16 — Jesper T, 2003-05-05T14:52Z > **m_soderlund skrev:** > > Palle, Palle. Alla, t.o.m. Palle vet om att man ska deklarera sina variabler. (Och använda Option Explicit..) Om nu "alla" vet det, så behöver du ju inte påminna om det.... Palle förutsatte nog att den som skulle använda koden, själv dimmar sina variabler. ;) Permalänk: https://www.webforum.nu/p/1035306 ## #17 — m_soderlund, 2003-05-05T14:56Z Mjo. Men man ska ändå alltid deklarera sina variabler. :) Och det förbättrar ju prestandan och allt. :) Permalänk: https://www.webforum.nu/p/1035311 ## #18 — Jesper T, 2003-05-05T15:10Z ja Permalänk: https://www.webforum.nu/p/1035322 ## #19 — Palle, 2003-05-05T15:56Z > **Jesper T skrev:** > > Om nu "alla" vet det, så behöver du ju inte påminna om det.... > Palle förutsatte nog att den som skulle använda koden, själv dimmar sina variabler. ;) Stämmer bra. :bire Man kan inte sitta och optimerings-nöta på all kod som man skickar ut här i forumet, det skulle ta alldeles för lång tid. Lite får man allt hoppas att trådskapare kan fnula ihop själv, annars får det bli en ny topic för optimeringen. ;) Permalänk: https://www.webforum.nu/p/1035363 ## #20 — nkrantz, 2003-05-21T17:29Z Okej grabbar, ni verkar ju kunna detta. Så om jag vill ha vilket datum följande är, hur gör jag då? ÅR-VECKA-VECKODAGSNUMMER\[1-7\] (mån=1) Tackar på förhand Permalänk: https://www.webforum.nu/p/1057726 --- Tråden på webben: https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum Nästa sida: https://www.webforum.nu/amne/asp/75918-hur-får-man-fram-veckonummer-för-ett-viss-datum/page2.md