---
title: "Kalendern vill inte börja med första dagen i månden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78853-kalendern-vill-inte-börja-med-första-dagen-i-månden/page5"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-06-04T08:15:35.000Z"
updated: "2003-07-03T14:28:33.000Z"
replies: 86
views: 1722
page: 5
pages: 5
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/78853-kalendern-vill-inte-börja-med-första-dagen-i-månden"
---

# Kalendern vill inte börja med första dagen i månden

_Sida 5 av 5._

## #81 — plelkes, 2003-07-02T06:14Z

Fortfarande samma fel!!

```
<%@LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>wf</TITLE>
</HEAD>

<BODY>
<%
Session.LCID = 1053
Dim intFirstDayIndex, dagensdat, iDayMonth, iDag, aKalender(42), strDate, dteDate

strDate = Request.Form("year") & "-" & Request.Form("month") & "-01"
dteDate = CDate(strDate)
'intFirstDayIndex = WeekDay(dteCurrentDate, 1), 2) - 1
'intLastDayIndex = IntFirstDayIndex - 1 + DatePart("d", (DateAdd("m", 1, dteCurrentDate) - 1))
'dteCurrentDate = DateSerial(Request.Form("year"), Request.Form("month"), 1)

intFirstDayIndex = WeekDay(dteDate, 2) - 1  
iDayMonth = DatePart("d", DateSerial(Request.Form("year"), Request.Form("month") + 1, 0)) 
intLastDayIndex = intFirstDayIndex  + iDayMonth - 1 
iDag = 1
For i = intFirstDayIndex to intLastDayIndex 

    aKalender(i) = iDag
	iDag = iDag + 1

Next
Response.Write "<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% HEIGHT=75% >"
Response.Write "<TH COLSPAN=7> <FONT SIZE=+2>"
Response.Write MonthName(Month(dteDate))
   Response.Write ", " & Year(dteDate)

  Response.Write "</FONT> </TH>"
  Response.Write "<TR><TD><CENTER><B>"
  Response.Write "Måndag"  
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Tisdag"
  Response.Write "</B></CENTER></TD> <TD><CENTER><B>"
  Response.Write "Onsdag" 
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Torsdag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Fredag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Lördag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Söndag"
  Response.Write "</B></CENTER></TD></TR>"
For i = 0 to 41
If i mod 7 = 0 Then Response.Write "<TR>"  

Do Until i > intLastDayIndex And i mod 7 = 0
  If aKalender(i) < 1 Then
    Response.Write "<TD BGCOLOR=""#000000""> _</TD>"
  Else
    Response.Write "<TD ALIGN=""CENTER"" VALIGN=""MIDDLE""><CENTER><FONT COLOR=""#330099"">"
    Response.Write aKalender(i) & " " 
    Response.Write "</FONT></CENTER></TD>"
  End If

  If i mod 7 = 0 Then Response.Write("</tr><tr>")

  i = i + 1
Loop

Response.Write "</TR></TABLE></BODY></HTML>"
%>
```

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

## #82 — solbulle, 2003-07-02T06:56Z

Kolla hur många rader du behöver o ändra loopen efter det:

```
If intLastDayIndex =< 34 then
	loopslut = 34
	Else
	loopslut = 41
End If

For i = 0 to loopslut
```

Ska fungera på [denna](http://www.webforum.nu/showthread.php?s=&postid=666321#post666321) kod. (Med ändringen i inlägget nedanför.

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

## #83 — plelkes, 2003-07-02T07:12Z

Av ngn anledning så kan jag ej komma in på på just den sida hos brinkster men menar du så här på slutet?:

```
For i = 0 to 41
If i mod 7 = 0 Then Response.Write "<TR>"  
If aKalender(i) < 1 Then
Response.Write "<TD BGCOLOR=""#000000"">"
Response.Write " _" & "</TD>"
Else
Response.Write "<TD ALIGN=""CENTER"" VALIGN=""MIDDLE""><CENTER><FONT COLOR=""#330099"">"
Response.Write aKalender(i) & " " 
Response.Write "</FONT></CENTER></TD>"
End If
Next
If i mod 6 = 0 And i <> 0 Then 
Response.Write "</TR>"
End If
If intLastDayIndex =< 34 then
	loopslut = 34
	Else
	loopslut = 41
End If
For i = 0 to loopslut 

Response.Write "</TABLE></BODY></HTML>"
%>
```

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

## #84 — plelkes, 2003-07-02T07:14Z

Min  [val-sida](http://www31.brinkster.com/plelkesprojekt/list.html)

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

## #85 — plelkes, 2003-07-02T10:00Z

Ngn som ser felet och har lösningen?
Andra asp-sidor på brinkster funkar bra!

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

## #86 — solbulle, 2003-07-02T15:20Z

Nepp, så menar jag inte.

```
<%@LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>wf</TITLE>
</HEAD>
<BODY>
<%
Session.LCID = 1053

Dim intFirstDayIndex, dagensdat, iDayMonth, iDag, aKalender(42), strDate, dteDate

strDate = Request.Form("year") & "-" & Request.Form("month") & "-01"
dteDate = CDate(strDate)

intFirstDayIndex = WeekDay(dteDate, 2) - 1  
'iDayMonth  = DatePart("d", DateSerial(Year(Request.Form("year")), Month(Request.Form("month"))+1, 0)) 
iDayMonth = DatePart("d", DateSerial(Year(dteDate), Month(dteDate)+1, 0))

intLastDayIndex = intFirstDayIndex  + iDayMonth - 1 
iDag = 1
For i = intFirstDayIndex to intLastDayIndex 

    aKalender(i) = iDag
	iDag = iDag + 1

Next

Response.Write "<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=1 WIDTH=75% HEIGHT=75% >"
Response.Write "<TH COLSPAN=7> <FONT SIZE=+2>"

  Response.Write MonthName(Month(dteDate))  
  Response.Write ", " & Year(dteDate)

  Response.Write "</FONT> </TH>"
  Response.Write "<TR><TD><CENTER><B>"
  Response.Write "Måndag"  
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Tisdag"
  Response.Write "</B></CENTER></TD> <TD><CENTER><B>"
  Response.Write "Onsdag" 
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Torsdag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Fredag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Lördag"
  Response.Write "</B></CENTER></TD><TD><CENTER><B>"
  Response.Write "Söndag"
  Response.Write "</B></CENTER></TD></TR>"

If intLastDayIndex =< 34 then
	loopslut = 34
	Else
	loopslut = 41
End If

For i = 0 to loopslut 
	If i mod 7 = 0 Then Response.Write "<TR>"  

	If aKalender(i) < 1 Then
		Response.Write "<TD BGCOLOR=""#000000""> _</TD>"
	Else
		Response.Write "<TD ALIGN=""CENTER"" VALIGN=""MIDDLE""><CENTER><FONT COLOR=""#330099"">"
		Response.Write aKalender(i)
		Response.Write " </FONT></CENTER></TD>"
	End If
Next

If i mod 6 = 0 And i <> 0 Then 
	Response.Write "</TR>"
End If

Response.Write "</TABLE></BODY></HTML>"
%>
```

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

## #87 — plelkes, 2003-07-03T14:28Z

Tack, nu fungerar det som jag vill - äntligen!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78853-kalendern-vill-inte-börja-med-första-dagen-i-månden/page5  
Föregående sida: https://www.webforum.nu/amne/asp/78853-kalendern-vill-inte-börja-med-första-dagen-i-månden/page4.md