VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Day
Description Returns a whole number between 1 and 31, inclusive, representing the day of the month
Usage intVal = Day(date)
Arguments date
The date argument is any valid date expression.
Return An integer value representing the day of the month (1-31).
Remarks A runtime error occurs if date is not a valid expression. If date contains Null, Null is returned
See Also Date, DateSerial, DateValue, Month, Now, TimeSerial, TimeValue, Weekday, Year
Example Dim MyDay
MyDay = Day (“October 19, 1962”) ‘ MyDay contains 19
Escape
Description Encodes a string so it contains only ASCII characters
Usage strChar = Escape(charString)
Arguments charString
Required. String expression to be encoded.
Remarks The Escape function returns a string (in ASCII format) that contains the contents of charString.
All spaces, punctuation, accented characters, and other non-ASCII characters are replaced with
%xx encoding, where xx is equivalent to the hexadecimal number representing the character.
Unicode characters that have a value greater than 255 are stored using the %uxxxx format
See Also UnEscape
Example Dim cs
cs = Escape(“aÖ”) ‘Returns “a%D6”
Eval
Description Evaluates an expression and returns the result
Usage boolVal = Eval(expression)
Arguments expression
Required. String containing any legal VBScript expression
Returns A boolean value
Remarks In VBScript, x = y can be interpreted two ways. The first is as an assignment statement, where
the value of y is assigned to x. The second interpretation is as an expression that tests if x and y
have the same value. If they do, the result is True; if they are not, the result is False. The Eval
method always uses the second interpretation, whereas the Execute statement always uses the
first
See Also Execute
Example Sub GuessANumber
Dim Guess, RndNum
RndNum = Int((100) * Rnd(1) + 1)
Guess = CInt(InputBox("Enter your guess:",,0))
Do
If Eval("Guess = RndNum") Then
MsgBox "Congratulations! You guessed it!"
Exit Sub
Else
Guess = CInt(InputBox("Sorry! Try again.",,0))
End If
Loop Until Guess = 0
End Sub
InduSoft, Ltd. 129