Array Function
Returns a Variant containing an array.
Syntax
Array(arglist)
Arguments
arglist: (required) argument is a comma-delimited list of values that are assigned to the elements of an array contained with the
Variant. If no arguments are specified, an array of zero length is created.
Example
A = Array(10,20,30)
Msgbox A(0) 'Output --> 10
Msgbox A(1) 'Output --> 20
Msgbox A(2) 'Output -->30
'Single dimensional Array with five elements
Dim Num(5)
Num(0)=10
Num(1)=20
Num(2)=30
Num(3)=40
Num(4)=50
Msgbox Num(0) 'Output --> 10
Msgbox Num(1) 'Output --> 20
Msgbox Num(2) 'Output -->30
Msgbox Num(3) 'Output -->40
'multidimensional array
Dim DNum(3,2)
DNum(0,0)=10
DNum(0,1)=20
DNum(1,0)=30
DNum(1,1)=40
DNum(2,0)=50
DNum(2,1)=60
Msgbox DNum(0,0) 'Output --> 10
Msgbox DNum(0,1) 'Output --> 20
Msgbox DNum(1,0) 'Output -->30
Msgbox DNum(1,1) 'Output -->40
Msgbox DNum(2,0) 'Output -->50
Msgbox DNum(2,1) 'Output -->60
IsArray Function
Returns a Boolean value indicating whether a variable is an array.
Syntax
IsArray(varname)
Arguments
varname: Can be any variable.
Example
Dim Arr
Dim NArr
Arr = Array(10,20,30)
Msgbox IsArray(Arr) 'Output -->True
Msgbox IsArray(NArr) 'Output -->False
LBound Function
Returns the smallest available subscript for the indicated dimension of an array.
Syntax
LBound(arrayname[, dimension])
Arguments
arrayname: Name of the array variable; follows standard variable naming conventions.
dimension: Whole number indicating which dimension's lower bound is returned. Use 1 for the first dimension, 2 for the second, and so on. If dimension is omitted, 1 is assumed.
Example
Dim LArr
LArr = Array(10,20,30)
Msgbox Lbound(LArr,1) 'Output --> 0
''multidimensional array
Dim Lmarr(3,2)
Msgbox LBound(Lmarr,2) 'Output --> 0
UBound Function
Returns the largest available subscript for the indicated dimension of an array.
Syntax
UBound(arrayname[, dimension])
Arguments
arrayname: (Required) Name of the array variable; follows standard variable naming conventions.
dimension: (Optional) Whole number indicating which dimension's upper bound is returned. Use 1 for the first dimension, 2 for the second, and so on. If dimension is omitted, 1 is assumed.
Example
Dim UArr
UArr = Array(10,20,30)
Msgbox Ubound(UArr,1) 'Output --> 2
''multidimensional array
Dim Umarr(3,2,4)
Msgbox UBound(Umarr,1) 'Output --> 3
Msgbox UBound(Umarr,2) 'Output --> 2
Msgbox UBound(Umarr,3) 'Output --> 4
Date Function
Returns the current system date.
Syntax
Date
Example
Msgbox Date 'Output -->Displays the current system date.
Time Function
Time: Returns a Variant of subtype Date indicating the current system time.
Syntax
Time
Example
Msgbox Time
'Output --> Displays the current system time
DateAdd Function
Returns a date to which a specified time interval has been added.
Syntax
DateAdd(interval, number, date)
Arguments
interval: (Required) String expression that is the interval you want to add. See Settings section for values.
number: (Required) Numeric expression that is the number of interval you want to add. The numeric expression can either be positive, for dates in the future, or negative, for dates in the past.
date: (Required) Variant or literal representing the date to which interval is added.
Example
'DateAdd
Msgbox DateAdd("yyyy",1,"November 01, 2010")
'Output-->11/1/2011
DateDiff Function
Returns the number of intervals between two dates.
Syntax: DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
Arguments
interval: (Required) String expression that is the interval you want to use to calculate the differences between
date1 and date2.
date1, date2: (Required) Date expressions. Two dates you want to use in the calculation.
firstdayofweek: (Optional) Constant that specifies the day of the week. If not specified, Sunday is assumed.
firstweekofyear: (Optional) Constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs.
Example
'DateDiff Msgbox DateDiff("yyyy","November 01, 2008","November 01, 2009")
'Output--> 1
DatePart Function
Returns the specified part of a given date.
Syntax
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
Arguments
interval: (Required) String expression that is the interval of time you want to return.
date: (Required) Date expression you want to evaluate.
firstdayof week: (Optional) Constant that specifies the day of the week. If not specified, Sunday is assumed.
firstweekofyear: (Optional) Constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs.
Example
Msgbox DatePart("yyyy","November 01, 2008")
'Output--> 2008
Day Function
Day: Returns a whole number between 1 and 31, inclusive, representing the day of the month.
Syntax: Day(date)
date: expression represent a date. If date contains Null, Null is returned.
Example:
Msgbox Day("11-01-2010")
'Output -->1
Msgbox Day("11/1/2010")
'Output -->1
Msgbox Day("November 01, 2010")
'Output -->1
Month Function
Returns a whole number between 1 and 12, inclusive, representing the month of the year.
Syntax
Month(date)
date: expression represent a date. If date contains Null, Null is returned.
Example
'Month
Msgbox Month("11-01-2010")
'Output -->11
Msgbox Month("11/1/2010")
'Output -->11
Msgbox Month("November 01, 2010")
'Output -->11
MonthName Function
Returns a string indicating the specified month.
Syntax
MonthName(month[, abbreviate])
Arguments
month: (Required) The numeric designation of the month. For example, January is 1, February is 2, and so on.
abbreviate: (Optional) Boolean value that indicates if the month name is to be abbreviated. If omitted, the default is False, which means that the month name is not abbreviated.
Example
'MonthName
Msgbox MonthName(11,true)
'Output -->Nov
Msgbox MonthName(12,false)
'Output -->December
Msgbox MonthName(9)
'Output -->September
Weekday Function
Returns a whole number representing the day of the week.
Syntax
Weekday(date, [firstdayofweek])
Arguments
date: Any expression that can represent a date. If date contains Null, Null is returned.
firstdayofweek: A constant that specifies the first day of the week. If omitted, vbSunday is assumed.
Example
Msgbox Weekday("November 03, 2010")
'Output -->4 (which means its a Wednesday)
WeekdayName Function
Returns a string indicating the specified day of the week.
Syntax
WeekdayName(weekday, abbreviate, firstdayofweek)
Arguments
weekday: (Required) The numeric designation for the day of the week. Numeric value of each day depends on setting of the firstdayofweek setting.
abbreviate: (Optional) Boolean value that indicates if the weekday name is to be abbreviated. If omitted, the default is False, which means that the weekday name is not abbreviated.
firstdayofweek: (Optional) Numeric value indicating the first day of the week.
Example
'WeekdayName
Msgbox WeekdayName(4)
'Output -->Wednesday
Year Function
Returns a whole number representing the year.
Syntax
Year(date)
Arguments
date:Any expression that can represent a date. If date contains Null, Null is returned.
Example
Msgbox Year("11-01-2010")
'Output -->2010
Msgbox Year("11/1/2010")
'Output -->2010
Msgbox Year("November 01, 2010")
'Output -->2010
Hour Function
Returns a whole number between 0 and 23, inclusive, representing the hour of the day.
Syntax
Hour(time)
Arguments
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example
'Hour
Msgbox Hour(Now)
'Output -->Displays the current system hour.
Minute Function
Minute: Returns a whole number between 0 and 59, inclusive, representing the minute of the hour.
Syntax: Minute(time)
Arguments:
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example:
'Minute
Print Minute(Now)
'Output -->Displays the current system minute.
Second Function
Second: Returns a whole number between 0 and 59, inclusive, representing the second of the minute.
Syntax: Second(time)
Arguments
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example
'Second
Msgbox Second(Now)
'Output -->Displays the current system Second.
Now Function
Returns the current date and time according to the setting of your computer's system date and time.
Syntax
Now
Example
'Now
Msgbox Now
'Output -->Displays the current system date & time.
TimeSerial Function
Returns a Variant of subtype Date containing the time for a specific hour, minute, and second.
Syntax
TimeSerial(hour, minute, second)
Arguments
hour: Number between 0 (12:00 A.M.) and 23 (11:00 P.M.), inclusive, or a numeric expression.
minute: Any numeric expression.
second: Any numeric expression.
Example:
'TimeSerial
Msgbox Timeserial(13,30,00)
'Output -->1:30:00 PM
TimeValue Function
Returns a Variant of subtype Date containing the time.
Syntax
TimeValue(time)
Arguments
time: is usually a string expression representing a time from 0:00:00 (12:00:00 A.M.) to 23:59:59 (11:59:59 P.M.), inclusive. However, time can also be any expression that represents a time in that range. If time contains Null, Null is returned.
Example:
'TimeValue
Msgbox TimeValue("16:30:00")
'Output -->4:30:00 PM
Returns a Variant containing an array.
Syntax
Array(arglist)
Arguments
arglist: (required) argument is a comma-delimited list of values that are assigned to the elements of an array contained with the
Variant. If no arguments are specified, an array of zero length is created.
Example
A = Array(10,20,30)
Msgbox A(0) 'Output --> 10
Msgbox A(1) 'Output --> 20
Msgbox A(2) 'Output -->30
'Single dimensional Array with five elements
Dim Num(5)
Num(0)=10
Num(1)=20
Num(2)=30
Num(3)=40
Num(4)=50
Msgbox Num(0) 'Output --> 10
Msgbox Num(1) 'Output --> 20
Msgbox Num(2) 'Output -->30
Msgbox Num(3) 'Output -->40
'multidimensional array
Dim DNum(3,2)
DNum(0,0)=10
DNum(0,1)=20
DNum(1,0)=30
DNum(1,1)=40
DNum(2,0)=50
DNum(2,1)=60
Msgbox DNum(0,0) 'Output --> 10
Msgbox DNum(0,1) 'Output --> 20
Msgbox DNum(1,0) 'Output -->30
Msgbox DNum(1,1) 'Output -->40
Msgbox DNum(2,0) 'Output -->50
Msgbox DNum(2,1) 'Output -->60
IsArray Function
Returns a Boolean value indicating whether a variable is an array.
Syntax
IsArray(varname)
Arguments
varname: Can be any variable.
Example
Dim Arr
Dim NArr
Arr = Array(10,20,30)
Msgbox IsArray(Arr) 'Output -->True
Msgbox IsArray(NArr) 'Output -->False
LBound Function
Returns the smallest available subscript for the indicated dimension of an array.
Syntax
LBound(arrayname[, dimension])
Arguments
arrayname: Name of the array variable; follows standard variable naming conventions.
dimension: Whole number indicating which dimension's lower bound is returned. Use 1 for the first dimension, 2 for the second, and so on. If dimension is omitted, 1 is assumed.
Example
Dim LArr
LArr = Array(10,20,30)
Msgbox Lbound(LArr,1) 'Output --> 0
''multidimensional array
Dim Lmarr(3,2)
Msgbox LBound(Lmarr,2) 'Output --> 0
UBound Function
Returns the largest available subscript for the indicated dimension of an array.
Syntax
UBound(arrayname[, dimension])
Arguments
arrayname: (Required) Name of the array variable; follows standard variable naming conventions.
dimension: (Optional) Whole number indicating which dimension's upper bound is returned. Use 1 for the first dimension, 2 for the second, and so on. If dimension is omitted, 1 is assumed.
Example
Dim UArr
UArr = Array(10,20,30)
Msgbox Ubound(UArr,1) 'Output --> 2
''multidimensional array
Dim Umarr(3,2,4)
Msgbox UBound(Umarr,1) 'Output --> 3
Msgbox UBound(Umarr,2) 'Output --> 2
Msgbox UBound(Umarr,3) 'Output --> 4
Date Function
Returns the current system date.
Syntax
Date
Example
Msgbox Date 'Output -->Displays the current system date.
Time Function
Time: Returns a Variant of subtype Date indicating the current system time.
Syntax
Time
Example
Msgbox Time
'Output --> Displays the current system time
DateAdd Function
Returns a date to which a specified time interval has been added.
Syntax
DateAdd(interval, number, date)
Arguments
interval: (Required) String expression that is the interval you want to add. See Settings section for values.
number: (Required) Numeric expression that is the number of interval you want to add. The numeric expression can either be positive, for dates in the future, or negative, for dates in the past.
date: (Required) Variant or literal representing the date to which interval is added.
Example
'DateAdd
Msgbox DateAdd("yyyy",1,"November 01, 2010")
'Output-->11/1/2011
DateDiff Function
Returns the number of intervals between two dates.
Syntax: DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
Arguments
interval: (Required) String expression that is the interval you want to use to calculate the differences between
date1 and date2.
date1, date2: (Required) Date expressions. Two dates you want to use in the calculation.
firstdayofweek: (Optional) Constant that specifies the day of the week. If not specified, Sunday is assumed.
firstweekofyear: (Optional) Constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs.
Example
'DateDiff Msgbox DateDiff("yyyy","November 01, 2008","November 01, 2009")
'Output--> 1
DatePart Function
Returns the specified part of a given date.
Syntax
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
Arguments
interval: (Required) String expression that is the interval of time you want to return.
date: (Required) Date expression you want to evaluate.
firstdayof week: (Optional) Constant that specifies the day of the week. If not specified, Sunday is assumed.
firstweekofyear: (Optional) Constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs.
Example
Msgbox DatePart("yyyy","November 01, 2008")
'Output--> 2008
Day Function
Day: Returns a whole number between 1 and 31, inclusive, representing the day of the month.
Syntax: Day(date)
date: expression represent a date. If date contains Null, Null is returned.
Example:
Msgbox Day("11-01-2010")
'Output -->1
Msgbox Day("11/1/2010")
'Output -->1
Msgbox Day("November 01, 2010")
'Output -->1
Month Function
Returns a whole number between 1 and 12, inclusive, representing the month of the year.
Syntax
Month(date)
date: expression represent a date. If date contains Null, Null is returned.
Example
'Month
Msgbox Month("11-01-2010")
'Output -->11
Msgbox Month("11/1/2010")
'Output -->11
Msgbox Month("November 01, 2010")
'Output -->11
MonthName Function
Returns a string indicating the specified month.
Syntax
MonthName(month[, abbreviate])
Arguments
month: (Required) The numeric designation of the month. For example, January is 1, February is 2, and so on.
abbreviate: (Optional) Boolean value that indicates if the month name is to be abbreviated. If omitted, the default is False, which means that the month name is not abbreviated.
Example
'MonthName
Msgbox MonthName(11,true)
'Output -->Nov
Msgbox MonthName(12,false)
'Output -->December
Msgbox MonthName(9)
'Output -->September
Weekday Function
Returns a whole number representing the day of the week.
Syntax
Weekday(date, [firstdayofweek])
Arguments
date: Any expression that can represent a date. If date contains Null, Null is returned.
firstdayofweek: A constant that specifies the first day of the week. If omitted, vbSunday is assumed.
Example
Msgbox Weekday("November 03, 2010")
'Output -->4 (which means its a Wednesday)
WeekdayName Function
Returns a string indicating the specified day of the week.
Syntax
WeekdayName(weekday, abbreviate, firstdayofweek)
Arguments
weekday: (Required) The numeric designation for the day of the week. Numeric value of each day depends on setting of the firstdayofweek setting.
abbreviate: (Optional) Boolean value that indicates if the weekday name is to be abbreviated. If omitted, the default is False, which means that the weekday name is not abbreviated.
firstdayofweek: (Optional) Numeric value indicating the first day of the week.
Example
'WeekdayName
Msgbox WeekdayName(4)
'Output -->Wednesday
Year Function
Returns a whole number representing the year.
Syntax
Year(date)
Arguments
date:Any expression that can represent a date. If date contains Null, Null is returned.
Example
Msgbox Year("11-01-2010")
'Output -->2010
Msgbox Year("11/1/2010")
'Output -->2010
Msgbox Year("November 01, 2010")
'Output -->2010
Hour Function
Returns a whole number between 0 and 23, inclusive, representing the hour of the day.
Syntax
Hour(time)
Arguments
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example
'Hour
Msgbox Hour(Now)
'Output -->Displays the current system hour.
Minute Function
Minute: Returns a whole number between 0 and 59, inclusive, representing the minute of the hour.
Syntax: Minute(time)
Arguments:
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example:
'Minute
Print Minute(Now)
'Output -->Displays the current system minute.
Second Function
Second: Returns a whole number between 0 and 59, inclusive, representing the second of the minute.
Syntax: Second(time)
Arguments
time: is any expression that can represent a time. If time contains Null, Null is returned.
Example
'Second
Msgbox Second(Now)
'Output -->Displays the current system Second.
Now Function
Returns the current date and time according to the setting of your computer's system date and time.
Syntax
Now
Example
'Now
Msgbox Now
'Output -->Displays the current system date & time.
TimeSerial Function
Returns a Variant of subtype Date containing the time for a specific hour, minute, and second.
Syntax
TimeSerial(hour, minute, second)
Arguments
hour: Number between 0 (12:00 A.M.) and 23 (11:00 P.M.), inclusive, or a numeric expression.
minute: Any numeric expression.
second: Any numeric expression.
Example:
'TimeSerial
Msgbox Timeserial(13,30,00)
'Output -->1:30:00 PM
TimeValue Function
Returns a Variant of subtype Date containing the time.
Syntax
TimeValue(time)
Arguments
time: is usually a string expression representing a time from 0:00:00 (12:00:00 A.M.) to 23:59:59 (11:59:59 P.M.), inclusive. However, time can also be any expression that represents a time in that range. If time contains Null, Null is returned.
Example:
'TimeValue
Msgbox TimeValue("16:30:00")
'Output -->4:30:00 PM
No comments:
Post a Comment