---
title: "Visa alla dagar i en månad"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12213-visa-alla-dagar-i-en-månad"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rossifumi"
published: "2001-10-20T19:14:00.000Z"
updated: "2001-10-21T22:50:00.000Z"
replies: 10
views: 266
page: 1
pages: 1
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/12213-visa-alla-dagar-i-en-månad"
---

# Visa alla dagar i en månad

## #1 — Rossifumi, 2001-10-20T19:14Z

Ä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

Permalänk: https://www.webforum.nu/p/12213

## #2 — icaaq, 2001-10-20T19:32Z

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 :)

Permalänk: https://www.webforum.nu/p/292578

## #3 — Rossifumi, 2001-10-20T19:39Z

Inte jag heller ;)

Nej, allvarligt talat så borde det inte vara så svårt...

Permalänk: https://www.webforum.nu/p/292579

## #4 — icaaq, 2001-10-20T19:55Z

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

Permalänk: https://www.webforum.nu/p/292580

## #5 — Erik Juhlin, 2001-10-20T21:14Z

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")
%>
```

Permalänk: https://www.webforum.nu/p/292581

## #6 — Erik Juhlin, 2001-10-20T21:29Z

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

Permalänk: https://www.webforum.nu/p/292582

## #7 — Rossifumi, 2001-10-21T05:26Z

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?

Permalänk: https://www.webforum.nu/p/292583

## #8 — Rossifumi, 2001-10-21T05:28Z

Skall dock passa på att tacka ERIK & ISAAQ :)

TACK :)

Permalänk: https://www.webforum.nu/p/292584

## #9 — icaaq, 2001-10-21T10:28Z

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
%>
```

Permalänk: https://www.webforum.nu/p/292585

## #10 — Rossifumi, 2001-10-21T18:58Z

TACK!

Permalänk: https://www.webforum.nu/p/292586

## #11 — Erik Juhlin, 2001-10-21T22:50Z

:)

Permalänk: https://www.webforum.nu/p/292587

---

Tråden på webben: https://www.webforum.nu/amne/asp/12213-visa-alla-dagar-i-en-månad