Hur får man fram veckonummer för ett viss datum?

En spark i rätt riktning. :)

Ännu en spark i rätt riktning. :)

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

intWeekNumber = DatePart("ww", CDate(varStartDate))

Mvh

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..

 

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)

yupp! :bire

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?

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....

Skippa loopen i koden nedan bara (för att bara skriva ut startdatumet).
http://www.webforum.nu/showthread.php?s=&postid=442427#post442427

[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]

Och Palle får det altenativa nobelpriset av Mattias Nordin!!!!!

mattiasnordin skrev:

Och Palle får det altenativa nobelpriset av Mattias Nordin!!!!!

  :D :birp

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]

;)

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. ;)

Mjo. Men man ska ändå alltid deklarera sina variabler. :)
Och det förbättrar ju prestandan och allt. :)

ja

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. ;)

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