VBScript Reference Manual for InduSoft Web Studio

InduSoft Web Studio VBScript Reference Manual
Byte, Integer & Long Variables
These three data subtypes are whole numbers that vary by the range of values that they can hold. Note
that the Byte data subtype has only a positive range (i.e. it is an unsigned value), while Integer and
Long are signed values. Byte is an 8-bit number, Integer a 16-bit number and Long a 32-bit number.
Subtype Range
Byte 0 to 255
Integer -32,768 to 32,767
Long -2,147,483,648 to 2,147,483,647
There are several types of operations that can be performed on these data subtypes, such as
arithmetic, comparison and logical operators. Also, many math functions can be used with these data
subtypes. Some examples are:
Dim MyByte, MyInt, MyHex
MyByte = $input_val – 5 ‘ read integer IWS tag input_val and subtract 5
If MyByte > 255 Then MyByte = 255 ‘ used in a condition statement. Make a byte value
MyInt = 459
MyHex = Hex(MyInt) ‘ returns 1CB
In addition to these functions, there are Byte versions of string operations that can be used with Byte
data contained in strings. For example, data from a serial port might be stored in a string. Remember
that strings can be essentially any length. The Mid function could be used to return a specified number
of characters from a string, but the MidB function will return a specified number of Bytes from the string.
Currency Variables
VBScript supports a currency data type. The valid range for currency is from -
922,337,203,685,477.5808 to 922,337,203,685,477.5807. You can perform most of the same
operations on the currency data type as you can perform on other numbers. The primary difference is
that the currency data subtype will contain the currency symbol, and is formatted using the
FormatCurrency function.
Currency Format Function
Function Description
FormatCurrency Returns an expression formatted as a currency value
Example1:
Dim val, f_val ‘ This example limits the number of decimal places
val = 123.456 ‘ assign a currency value to val
f_val = FormatCurrency(val, 2) ‘ 2 digits after decimal, result is f_val = $123.45
Example2:
Dim price ‘ This example changes the currency symbol
price = 123.456
SetLocale(1033) ' Set locale to United States, use $ currency symbol
curDollars = FormatCurrency(price, 2) ' curDollars set to $123.46
myLocale = SetLocale(2057) ' Set locale to UK, use £ currency symbol
curPounds = FormatCurrency(price, 2) ' curPounds set to £123.46
Note: To use the Euro € symbol for a country that uses the Euro, make sure the system’s Region
Settings is properly set, otherwise the pre-Euro symbol will be used.
InduSoft, Ltd. 69