Mån-Sön Veckobläddring

6 svar · 294 visningar · startad av ironhead 29 dec. 2004

ironheadMedlem sedan mars 20011 346 inlägg

Frågan29 dec. 2004 08:01#1

Hej!

Nu håller jag på att trassla till det igen :-/
Jag vill kunna visa en matsedel Måndag-Söndag som tar med datum i formatet mån-dag (12-01), såhär ser det ut nu:

If Request.Querystring("date")<>"" Then
  dtmDate = Request.Querystring("date")
 Else
  dtmDate = Date()
End	IF

weekno = DatePart("WW",	dtmDate, 2,	2)
y =	DatePart("YYYY", dtmDate)

firstday = y & "-01-01"
fweek =	DatePart("ww", firstday, vbMonday, vbFirstFourDays)

if fweek > 1 then
   startday	= dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
   startday	= dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end	if

startday = dateadd("ww",weekno,startday)
endday = dateadd("d",6,startday)

Arr1 = ("Måndag,Tisdag,Onsdag,Torsdag,Fredag,Lördag,Söndag")
ArrDay = Split(Arr1,",")

for i =	0 to UBound(ArrDay)

response.write ArrDay(i) & " "
response.write mid(dateadd("d",i,startday),6) &	" |	"

next

backpg = DateAdd("d",-8,endday)
nextpg = DateAdd("d",+1,endday)

%><br><br>
<a href="weektest.asp?date=<%=backpg%>">« Föregånde Vecka </a>&nbsp;
<a href="weektest.asp?date=<%=nextpg%>"> Nästa Vecka »</a>

Jag vill ju kunna bläddra mellan veckorna....finns det nån vänlig själ som har ett bättre/enklare sätt att göra detta på...?

@ndersMedlem sedan juni 200032 967 inlägg

29 dec. 2004 08:05#2

Vad är det för fel på det där sättet? Fungerar det inte?

ironheadMedlem sedan mars 20011 346 inlägg

29 dec. 2004 09:04#3

Jag får inte vecko-bläddringen att fungera....då vissa månader inte börjar (01) på en Måndag, så går det inte att bläddra tillbaka och bläddrar man framåt till 2005, så börjar den bläddra 2 veckor framåt åt gången.

Kan man bestämma att bläddra på veckor istället?

ironheadMedlem sedan mars 20011 346 inlägg

29 dec. 2004 11:39#4

Jag fixade nåt bättre istället:

dtmDate = Request.QueryString("dtmDate")

if dtmDate="" Then
 dtmDate = date()
end if	

weekno = DatePart("WW",	dtmDate, 2,2)
y =	DatePart("YYYY", dtmDate)

startdate= y & "-01-01"
Do Until DatePart("ww", startdate, 2, 2) = weekno
	startdate = DateAdd("d", 1, startdate)
Loop

if weekday(startdate, vbMonday) > 1 then  startdate = dateadd("d", -(weekday(startdate)-2), startdate)

Response.write "<b>v." & weekno & "</b><br>"
response.write "------------------------------------<br>"
For d = startdate To DateAdd("d", 6, startdate)

Response.write day(d) & " " & weekdayname(weekday(d)) & "<br>"
	response.write "------------------------------------<br>"
startdate = DateAdd("d", 1, startdate)
next

pw = DateAdd("d", -8, startdate)

Response.Write "<a href=?dtmDate=" & pw & ">« Föregånde Vecka</a>"
Response.Write "&nbsp;&nbsp;"
Response.Write "<a href=?dtmDate=" & startdate & ">Nästa Vecka »</a>"

Fråga:
Vad är det man kan skriva istället för

if Month(d)<10 Then
sMonth = "0" & Month(d)
else
sMonth = Month(d)
end if

...nåt typ sMonth = Left("0", Month(d)),2

Jesper TMedlem sedan nov. 20017 144 inlägg

29 dec. 2004 11:43#5

...nåt typ sMonth = Left("0", Month(d)),2

Japp, så skulle jag gjort.

Jesper TMedlem sedan nov. 20017 144 inlägg

29 dec. 2004 11:51#6

Du kan ändra:

if dtmDate="" Then
 dtmDate = date()
end if

'Till:

if not isdate(dtmDate) Then dtmDate = date()

Då kommer det även blir rätt om du skickar in något annat i querystringen.

ironheadMedlem sedan mars 20011 346 inlägg

29 dec. 2004 12:15#7

Jesper T skrev:

Du kan ändra:
if dtmDate="" Then
 dtmDate = date()
end if

'Till:

if not isdate(dtmDate) Then dtmDate = date()
Då kommer det även blir rätt om du skickar in något annat i querystringen.

>> ah! Lysande. Tack!

Hade skrivit lite fel, skall vara:

sMonth = Left("0" & Month(d),2)