'Returns ANSI
character code corresponding to first letter in a string
Dim val
val="hyderabad"
val=Asc(val)
msgbox val
2) Chr
Function
'Returns the
character associated with the specified ANSI character code.
Dim val
val=65
val=Chr(val)
msgbox val
'Output: A
3) Date
Function
It returns
current system Date
Dim myDate
myDate=Date
msgbox myDate
4) Abs
Function
It returns
obsolute value of the given number.
Dim num
num=157.56
num=Abs(num)
msgbox num
'Output: 157.56
num=-157.56
num=Abs(num)
msgbox num
'Output: 157.56
Note: It
provide positive value
5) Array
Function
We can enter
list of values using this function
Ex:
Dim var
'List of
strings
var=Array("Hyderabad","Chennai",
"Nellore")
msgbox var(0)
'output: Hyderabad
msgbox var(1)
'output: Chennai
msgbox var(2)
'output: Nellore
'List of
numeric values
var=Array(100,200,
300)
msgbox var(0)
'output: 100
msgbox var(1)
'output: 200
msgbox var(2)
'output: 300
'List of
mixed values
var=Array(100,"India",
#01-05-2010#)
msgbox var(0)
'output: 100
msgbox var(1)
'output: India
msgbox var(2)
'output: 01/05/2010
6) IsArray
Function
It checks
weather the given variable is an Array or not
Dim var1,
var2,x
'List of
strings
var1=Array("Hyderabad","Chennai",
"Nellore")
x=isArray(var1)
'It returns True/False like Result
msgbox x
x=isArray(var2)
msgbox x
7) IsDate
It checks
weather the given value is Date type data or not
Examples:
Dim myDate,x
myDate=100
x=IsDate(myDate)
msgbox x
'Output: False
myDate="India"
x=IsDate(myDate)
msgbox x
'Output: False
myDate=#10/05/2010#
x=IsDate(myDate)
msgbox x
'Output: True
myDate=#10-05-2010#
x=IsDate(myDate)
msgbox x
'Output: True
myDate=#10-05-10#
x=IsDate(myDate)
msgbox x
'Output: True
myDate=10-05-2010
x=IsDate(myDate)
msgbox x
'Output: False
8) DateDiff
Function
It provides
difference between two dates, based on interval (day/month)
Dim Date1,
Date2,x
Date1=#10-10-2008#
Date2=#10-09-2010#
x=DateDiff("d",
date1,date2) 'd for day
msgbox x' It
subtracts date1 from date2
x=DateDiff("m",
date1,date2)' m for month
msgbox x' It
subtracts date1 from date2
x=DateDiff("y",
date1,date2) 'it considers days only
msgbox x' It
subtracts date1 from date2
Note: through
this function, we can day or month wise diffrence only.
9) IsNumeric
It checks
weather the given value is numeric or not and It provides True/False like
Result
Example:
Dim val,x
val="100"
x=Isnumeric(val)
msgbox x
'Output: True
val=100
x=Isnumeric(val)
msgbox x
'Output: True
x=Isnumeric(500)
msgbox x
'Output: True
x=Isnumeric("India")
msgbox x
'Output: False
10) Len
Function
It finds
legngh of the String
Example:
Dim val,x
val="Hyderabad"
x=Len(val)
msgbox x
'Output: 9
val=100
x=Len(val)
msgbox x
'Output: 3
val="Hydera100"
x=Len(val)
msgbox x
'Output: 9
val="hy$@*de"
x=Len(val)
msgbox x
'Output: 7
val="100"
x=Len(val)
msgbox x
'Output: 3
val=#10-10-2010#
x=Len(val)
msgbox x
'Output: 10
x=Len("Krishna")
msgbox x
'Output: 7
x=Len(Krishna)
msgbox x
'Output: 0
x=Len()
msgbox x
'Output: Error
11) Left
Function
Returns a
specified number of charectors of a given string from left side
Syntax:
variable=Left(string,Lengh)
Example:
Dim val,x
val="Hyderabad"
x=Left(val,3)
msgbox x '
Output: Hyd
val="9247837478"
x=Left(val,1)
msgbox x '
Output: 9
val="H92yderabad"
x=Left(val,3)
msgbox x '
Output: H92
x=Left(9247837478,5)
msgbox x '
Output: 92478
val=#10-10-10#
x=Left(val,3)
msgbox x '
Output: 10/
12) Right
Function
Returns a
specified number of charectors of a given string from Right side
Example:
Dim val,x
val="Hyderabad"
x=Right(val,3)
msgbox x '
Output: bad
val="9247837478"
x=Right(val,1)
msgbox x '
Output: 8
val="H92yderabad"
x=Right(val,3)
msgbox x '
Output: bad
x=Right(9247837478,5)
msgbox x '
Output: 37478
val=#10-10-10#
x=Right(val,5)
msgbox x '
Output: /2010
13) Mid
function
Returns a
specified number of characters of a given string
Example:
Dim val,x
val="Hyderabad"
x=Mid(Val,5,3)
msgbox x '
Output: rab
val="Hyderabad"
x=Mid(Val,5)
msgbox x '
Output: rabad
val="9247837478"
x=Mid(val,6,5)
msgbox x '
Output: 37478
val="H92yderabad"
x=Mid(val,1)
msgbox x '
Output: H92yderabad
x=Mid(9247837478,5)
msgbox x '
Output: 837478
val=#10-10-10#
x=Mid(val,5)
msgbox x '
Output: 0/2010
14)
StrReverse
retuns
reverse value of a string
Example:
Dim val,x
val="Hyderabad"
x=StrReverse(val)
msgbox x
'Output dabaredyH
val="001"
x=StrReverse(val)
msgbox x
'Output: 100
val=1002
x=StrReverse(val)
msgbox x
'Output: 2001
val=#10-10-10#
x=StrReverse(val)
msgbox x
'Output: 0102/01/01
x=StrReverse("Hyderabad")
msgbox x
'Output: dabaredyH
x=StrReverse(100)
msgbox x
'Output: 001
15) StrComp
Function
It compares
two string (Binary and textual)
If
a) Both are
equal, returns 0(zero)
b) String 1
greater than string 2, returns 1(one)
b) String 2
greater than string 1, returns -1
Example:
Dim
str1,str2,x
str1="India"
str2="India"
x=StrComp(str1,str2,1)
msgbox x
'Output 0
str1="india"
str2="INDIA"
x=StrComp(str1,str2,1)
msgbox x
'Output 0
str1="India"
str2="Indian"
x=StrComp(str1,str2,1)
msgbox x
'Output -1
str1="Indian"
str2="Ndia"
x=StrComp(str1,str2,1)
msgbox x
'Output -1
str1="Indian"
str2="India"
x=StrComp(str1,str2,1)
msgbox x
'Output 1
str1=100
str2=100
x=StrComp(str1,str2,1)
msgbox x
'Output 0
str1=100
str2=101
x=StrComp(str1,str2,1)
msgbox x
'Output -1
16) Lcase
function
Coverts Upper
case values into Lower case
Dim val,x
val="HYDERABAD"
x=Lcase(val)
msgbox x
'Output hyderabad
val="Hyderabad"
x=Lcase(val)
msgbox x
'Output hyderabad
val="HederabaD"
x=Lcase(val)
msgbox x
'Output hyderabad
val="hyderabad"
x=Lcase(val)
msgbox x
'Output hyderabad
x=Lcase("HYDERABAD")
msgbox x
'Output hyderabad
17) Ucase
function
Coverts Lower
case values into Upper case
Example:
Dim val,x
val="HYDERABAD"
x=Ucase(val)
msgbox x
'Output HYDERABAD
val="Hyderabad"
x=Ucase(val)
msgbox x
'Output HYDERABAD
val="HederabaD"
x=Ucase(val)
msgbox x
'Output HYDERABAD
val="hyderabad"
x=Ucase(val)
msgbox x
'Output HYDERABAD
x=Ucase("HYDERABAD")
msgbox x
'Output HYDERABAD
18) Round
Function
Returns the
round value of a given value
if value
decimal point above .5 it returns, next nearest value, below
.5 returns
before integer value.
Example:
Dim num,x
num=14.49
x=Round(num)
msgbox x
'Output: 14
num=14.59
x=Round(num)
msgbox x
'Output: 15
num="14.49"
x=Round(num)
msgbox x
'Output: 14
num="Hyd"
x=Round(num)
msgbox x
'Output: Error
19) Trim
Function
Returns a
copy of string without leading spaces
Dim val
val=" VB Script"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" 100"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^"
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=Trim(val)
msgbox x
x=Len(x)
msgbox x
20) Ltrim
Function
It removes
spaces from left side of a string
Dim val
val=" VB Script"
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val="100 "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^ "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
val= 100
x=LTrim(val)
msgbox x
x=Len(x)
msgbox x
21) Rtrim
It removes
spaces from right side of a string
Dim val
val="VB
Script "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 100 "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" 2#$%^ "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val=" VB Script "
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
val= 100
x=RTrim(val)
msgbox x
x=Len(x)
msgbox x
22) Split
function
Returns a
zero-based, one-dimensional array containing a specified number of substrings
Example:
Dim a,b,x
b="VB
Script is a Powerful scripting Language"
a=Split(b,"
")
x=IsArray(b)
msgbox x
'Output: False
x=IsArray(a)
msgbox x
'Output: True
msgbox a(6)
'Output: Language
b="VB,Script,is,a,Powerful,scripting,Language"
a=Split(b,",")
msgbox a(5)
'Output: Scripting
b="VB
Script is a Powerful scripting Language"
a=Split(b)
msgbox a(5)
'Output: Scripting
b="VB@Script@is@a@Powerful@scripting@Language"
a=Split(b,"@")
msgbox a(5)
'Output: Scripting
b="VBScriptisaPowerfulscriptingLanguage"
a=Split(b)
msgbox a(5)
'Output: Error
