---
title: "Felaktigt matrisindex '[number: 0]'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89078-felaktigt-matrisindex-number-0"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LR^evil.sid"
published: "2003-10-21T13:56:56.000Z"
updated: "2003-10-21T16:09:33.000Z"
replies: 8
views: 476
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/89078-felaktigt-matrisindex-number-0"
---

# Felaktigt matrisindex '[number: 0]'

## #1 — LR^evil.sid, 2003-10-21T13:56Z

Nån som ser varför det blir fel?

MyDate = #2003-01-01#
CurDay = 1 - 31

```
	Function ConstSunday(MyDate, CurDay)
		Dim Sunday(4), ArrSunday, item, iitem
		ConstSunday = False
		Sunday(0)   = "1:1"		' ### Nyårsdagen
		Sunday(1)   = "1:6"		' ### Trettondedag Jul
		Sunday(2)   = Midsommar(CurDay)	' ### Midsommar
		Sunday(3)   = "12:25"		' ### Juldagen
		Sunday(4)   = "12:26"		' ### Annandag Jul
		For item = 0 To UBound(Sunday)
			ArrSunday = Split(Sunday(item), ":")
[red][b]line 103[/b]		If Int(Month(MyDate)) = Int(ArrSunday(0)) Then[/red]
				For iitem = CurDay To 31
					If Day(CurDay) = Day(ArrSunday(1)) Then
						ConstSunday = True
						Exit For
					End If
				Next
			End If
			If ConstSunday = True Then Exit For
		Next
	End Function
```

Med Felmeddelandet:

```
Felaktigt matrisindex: '[number: 0]'  
file: /calender/calender.asp  
line: « 103 »
```

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

## #2 — Engine^, 2003-10-21T14:03Z

ArrSunday är ingen array... måste du inte deklarera den som ArrSunday() när du dimmar den?

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

## #3 — LR^evil.sid, 2003-10-21T14:04Z

Det ger felmeddelandet "inkompatibla typer"

red: sedan har jag tidigare skrivit ut både ArrSunday(0) och ArrSunday(1) och båda har innehållit värden

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

## #4 — @nders, 2003-10-21T14:08Z

Returnerar funktionen Midsommar() något vettigt?

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

## #5 — LR^evil.sid, 2003-10-21T14:11Z

Jag vet inte : ) Det tänkte jag inte på.

```
Private Function Midsommar(CurDay)
	If Month(MyDate) = 6 Then
		If Int(CurDay) > 19 And Int(CurDay) < 27 Then
			For item = 20 To 27
				If WeekDay(CDate(Year(MyDate)&"-06"&item), vbMonday) = 6 Then
					Midsommar = "6:" & item
					Exit For
				End If
			Next
		End If
	End If
End Function
```

ska kolla det...

red: retunerar ingenting...

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

## #6 — LR^evil.sid, 2003-10-21T14:20Z

Hur kollar jag om ArrSunday = Split(Sunday(item), ":") blev en array då? Loopen tuffar bara på även fast jag satte dit IsArray() på ArrSunday

red: eller skall jag sätta ett värde på Midsommar() även fast det inte är juni?

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

## #7 — @nders, 2003-10-21T14:23Z

Börja med att se till att funktionen Midsommar returnerar något som är i det formatet den andra funktionen förväntar sig.

Mvh

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

## #8 — LR^evil.sid, 2003-10-21T14:29Z

Det löste sig när midsommar fick ett värde.

```
	Private Function ConstSunday(MyDate, CurDay)
		Dim Sunday(4), ArrSunday, item, iitem
		ConstSunday = False
		Sunday(0)   = "1:1"			' ### Nyårsdagen
		Sunday(1)   = "1:6"			' ### Trettondedag Jul
		Sunday(2)   = Midsommar(CurDay)	' ### Midsommar
		Sunday(3)   = "12:25"		' ### Juldagen
		Sunday(4)   = "12:26"		' ### Annandag Jul
		For item = 0 To UBound(Sunday)
			ArrSunday = Split(Sunday(item), ":")
			If Month(Month(MyDate)) = Month(ArrSunday(0)) Then
				For iitem = CurDay To 31
					If Day(CurDay) = Day(ArrSunday(1)) Then
						ConstSunday = True
						Exit For
					End If
				Next
			End If
			If ConstSunday = True Then Exit For
		Next
	End Function

	Private Function Midsommar(CurDay)
		Dim item
		For item = 20 To 27
			If WeekDay(CDate(Year(MyDate)&"-06-"&item), vbMonday) = 6 Then
				Midsommar = "6:" & item
				Exit For
			End If
		Next
	End Function
```

Tack @nders

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

## #9 — @nders, 2003-10-21T16:09Z

Med gamla Vide-ord:

Var sin ko. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/89078-felaktigt-matrisindex-number-0