7 svar · 137 visningar · startad av Eclipse
Jag har försökt skapa en funktion med två värden men jag får felmeddelande när jag anropar funktionen, doSomething(1,3).
Värdet är siffor. Det fungerar om man bara her en siffra men inte två.
Microsoft VBScript compilation error '800a0414'
Cannot use parentheses when calling a Sub
/index.asp, line 74
doSomething(3,5)
--------------^
skriv ut hela kåden så man ser inte bara felmedelandet ...
Det verkar inte som att din funktion returnerar något? Prova att ta bort parenterserna runt värdet, då.
doSomething 1, 3
Suck... Typiskt! Jag orkar egentligen inte förklara... men okej. Det är en datumfunktion som automatiskt genererar ett datum under två rubriker. "Material från kund" och "Material från producent."
Defaultinställningen ska vara (till exempel) 3 arbetsdagar på första värdet och 5 dagar på det andra. Men man måste ta hänsyn till helger....
<%
FUNCTION getMyDate(CInt(days1), CInt(days2))
' ## WILL RETURN A DATE, JUST WORKDAYS, NO WEEKENDS.
' ## WEEKENDS WILL BE MONDAYS.
mydate = dateAdd("d", days1, date)
' ## MAKE WEEKENDS AS MONDAYS
SELECT Case weekDay(myDate)
Case 7 myDate = dateAdd("d", 2, myDate) ' saturday
Case 1 myDate = dateAdd("d", 1, myDate) ' sunday
END SELECT
IF days2 <> "" THEN
response.write myDate
ELSE
differ = days2 - days1
mydate = dateAdd("d", differ, myDate)
' ## MAKE WEEKENDS AS MONDAYS
SELECT Case weekDay(myDate)
Case 7 myDate = dateAdd("d", 2, myDate) ' saturday
Case 1 myDate = dateAdd("d", 1, myDate) ' sunday
END SELECT
response.write myDate
END IF
'response.write myDate & " " & weekday(myDate, 2) & " " & weekDayName(weekDay(myDate, 2), False, 2) & "<BR>"
END FUNCTION
%>
du har svaret i felmeddelandet!
En sub returnerar ALDRIG ett värde det är det bara funktioner som gör.
cya,
PatrikB
En funktion bör aldrig innehålla response.write eftersom funktionen ska returnera ett värde.
En sub däremot returnerar aldrig ett värde utan "printar" ut det man vill ska visas/hända.
cya,
PatrikB
vide har förklarat det mycket bra och enkelt
http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_14.asp