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