VB
Script Functions
Abs
Function
It
returns obsolete 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
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
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
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
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.
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
Len
Function
It
finds length 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
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/
Right
Function
Returns
a specified number of characters 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
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
StrReverse
Retunes
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
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
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
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
No comments:
Post a Comment