Frågan#1 Är det jätteavancerat att spalta upp alla dagar i en månad på rad?
Efter denna "mall"
1 2 3 4 5 6 7
Alltså att lördag och söndag markeras.
Man skall sedan kunna trycka på "Nästa månad" så skall den spalta upp den osv.
MVH
------------------
Valentino Rossi | 2001 World GP500 Champion
[Redigerat av Rossifumi den 20 okt 2001]
IicaaqMedlem sedan okt. 20005 273 inlägg det borde väl bara vara att använda:
weekday(date, [firstdayofweek])
och om det är 6 så blir den blå, 7 så blir den röd.
men hur man spaltar upp en månads dagar vet jag inte så här på rak arm :)
------------------
Icaaq, mannen med korven. (!)
Inte jag heller ;)
Nej, allvarligt talat så borde det inte vara så svårt...
------------------
Valentino Rossi | 2001 World GP500 Champion
IicaaqMedlem sedan okt. 20005 273 inlägg jag hittade den här.. http://cgi.webforum.nu/wf/Forum11/HTML/002080.html#5
det kanske är något som man kan använda ;)
------------------
Icaaq, mannen med korven. (!)
Så här skulle jag skriva..
<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)
Response.Write daysInMonth
%>
..eller om man vill komprimera det lite..
<%
Response.Write DateDiff("d", Year(Now) & "-" & Month(Now) & "-01", Year(Now) & "-" & Month(DateAdd("m", 1, Now)) & "-01")
%>
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
Komplett..
<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)
Dim i, dayInWeek, cssClass
For i = 1 To daysInMonth
dayInWeek = WeekDay(Year(d) & "-" & Month(d) & "-" & i, 2)
cssClass = "other"
Select Case dayInWeek
Case 6
cssClass = "saturday"
Case 7
cssClass = "sunday"
End Select
Response.Write "<span class=""" & cssClass & """>" & dayInWeek & "</span> "
Next 'i
%>
Går kanske att skriva lite smidigare på vissa ställen, men vill du använda det så får du göra det själv. :)
Redigering: Case istället för If. :e
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 20 okt 2001]
Nu kanske jag inte hade ett så bra exempel, men den skriver:
1234567 1234567 1234567 1234567
Jag menade att den skulle visa:
1 2 3 4 5 6 7 8 9 10 11 12 13 osv.
Någon som fattar?
------------------
Valentino Rossi | 2001 World GP500 Champion
Skall dock passa på att tacka ERIK & ISAAQ :)
TACK :)
------------------
Valentino Rossi | 2001 World GP500 Champion
IicaaqMedlem sedan okt. 20005 273 inlägg en liten modifikation:
<%
Dim d, firstDayThisMonth, firstDayNextMonth, daysInMonth
d = Now
firstDayThisMonth = Year(d) & "-" & Month(d) & "-01"
firstDayNextMonth = Year(d) & "-" & Month(DateAdd("m", 1, d)) & "-01"
daysInMonth = DateDiff("d", firstDayThisMonth, firstDayNextMonth)
Dim i, dayInWeek, cssClass
For i = 1 To daysInMonth
dayInWeek = WeekDay(Year(d) & "-" & Month(d) & "-" & i, 2)
cssClass = "other"
Select Case dayInWeek
Case 6
cssClass = "saturday"
Case 7
cssClass = "sunday"
End Select
Response.Write "<span class=""" & cssClass & """>" & i & "</span> "
Next 'i
%>
------------------
Icaaq, mannen med korven. (!)
TACK!
------------------
Valentino Rossi | 2001 World GP500 Champion
:)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
