En enkel funktion...

4 svar · 232 visningar · startad av skyman 3 apr. 2002

skymanMedlem sedan juli 20012 450 inlägg

Frågan3 apr. 2002 06:51#1

Jag får "type mismatch" på return. Vad är fel?

Function veckodag(datum1,datum2)
	dim arrVeckodag(8),dag
	arrVeckodag(1)="Sunday"
	arrVeckodag(2)="Monday"
	arrVeckodag(3)="Tuesday"
	arrVeckodag(4)="Wednesday"
	arrVeckodag(5)="Thursday"
	arrVeckodag(6)="Friday"
	arrVeckodag(7)="Saturday"
	dag1=arrVeckodag(weekday(datum1))
	dag2=arrVeckodag(weekday(datum2))
	if dag1="Friday" then
		if dag2<>"Monday" then
			return false
		else
			return true
		end if
	end if
end function

Koden kollar om datum1 var en fredag så måste datum2 vara en måndag.

@ndersMedlem sedan juni 200032 967 inlägg

3 apr. 2002 06:55#2

Return används inte i VBScript.

	if dag1="Friday" then
		if dag2<>"Monday" then
			veckodag = false
		else
			veckodag = true
		end if
	end if

Mvh,

skymanMedlem sedan juli 20012 450 inlägg

3 apr. 2002 07:03#3

Ok.
om jag sedan vill hämta det värdet på veckodag?

if not veckodag(2002-04-02,2002-04-05) then
  fel=true
end if

@ndersMedlem sedan juni 200032 967 inlägg

3 apr. 2002 07:06#4

Ja, det borde väl fungera?

skymanMedlem sedan juli 20012 450 inlägg

3 apr. 2002 07:15#5

Ja det är klart det gjorde :)
Jag såg bara inte det...