Visual Basic's Function: Syntax Abs (Number)
Visual Basic's Function: Syntax Abs (Number)
Array
Returns a Variant containing an array.
Syntax
Array(arglist)
The required arglist 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.
Remarks
The notation used to refer to an element of an array consists of the variable name followed by
parentheses containing an index number indicating the desired element. In the following example,
the first statement creates a variable named A. The second statement assigns an array to variable
A. The last statement assigns the value contained in the second array element to another variable.
Dim A
A = Array(10,20,20)
B = A(2)
Note A variable that is not declared as an array can still contain an array. Although a Variant
variable containing an array is conceptually different from an array variable containing Variant
elements, the array elements are accessed in the same way.
Array Function Example
This example uses the Array function to return a Variant containing an array.
Dim MyWeek, MyDay
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
MyDay = MyWeek(2)
' MyDay contains "Tue".
MyDay = MyWeek(4)
' MyDay contains "Thu".
fd 56904 - daspro/winpro - 2 of 40
Asc
Returns an Integer representing the character code corresponding to the first letter in a string.
Syntax
Asc(string)
The required string argument is any valid string expression. If the string contains no characters, a
run-time error occurs.
Remarks
The range for returns is 0 255 on non-DBCS systems, but 32768 32767 on DBCS systems.
Note The AscB function is used with byte data contained in a string. Instead of returning the
character code for the first character, AscB returns the first byte. The AscW function returns the
Unicode character code except on platforms where Unicode is not supported, in which case, the
behavior is identical to the Asc function.
Asc Function Example
This example uses the Asc function to return a character code corresponding to the first letter in
the string.
Dim MyNumber
MyNumber = Asc("A")
MyNumber = Asc("a")
MyNumber = Asc("Apple")
Atn
Returns a Double specifying the arctangent of a number.
Syntax
Atn(number)
The required number argument is a Double or any valid numeric expression.
Remarks
The Atn function takes the ratio of two sides of a right triangle (number) and returns the
corresponding angle in radians. The ratio is the length of the side opposite the angle divided by
the length of the side adjacent to the angle.
The range of the result is - pi/2 to pi/2 radians.
To convert degrees to radians, multiply degrees by pi/180. To convert radians to degrees, multiply
radians by 180/pi.
Note Atn is the inverse trigonometric function of Tan, which takes an angle as its argument and
returns the ratio of two sides of a right triangle. Do not confuse Atn with the cotangent, which is
the simple inverse of a tangent (1/tangent).
Atn Function Example
This example uses the Atn function to calculate the value of pi.
Dim pi
pi = 4 * Atn(1)
CBool
Returns an expression that has been converted to a Variant of subtype Boolean.
Syntax
CBool(expression)
The expression argument is any valid expression.
fd 56904 - daspro/winpro - 3 of 40
Remarks
If expression is zero, False is returned; otherwise, True is returned. If expression can't be
interpreted as a numeric value, a run-time error occurs.
CBool Function Example
This example uses the CBool function to convert an expression to a Boolean. If the expression
evaluates to a nonzero value, CBool returns True; otherwise, it returns False.
Dim A, B, Check
A = 5: B = 5
' Initialize variables.
Check = CBool(A = B)
' Check contains True.
A = 0
' Define variable.
Check = CBool(A)
' Check contains False.
CByte
Returns an expression that has been converted to a Variant of subtype Byte.
Syntax
CByte(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the subtype conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CByte to force byte arithmetic in cases where currency, single-precision,
double-precision, or integer arithmetic normally would occur.
Use the CByteto provide internationally aware conversions from any other data type to a Byte
subtype. For example, different decimal separators are properly recognized depending on the
locale setting of your system, as are different thousand separators.
If expression lies outside the acceptable range for the Byte subtype, an error occurs.
CByte Function Example
This example uses the CByte function to convert an expression to a Byte.
Dim MyDouble, MyByte
MyDouble = 125.5678
MyByte = CByte(MyDouble)
CCur
Returns an expression that has been converted to a Variant of subtype Currency.
Syntax
CCur(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the subtype conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CCur to force currency arithmetic in cases where integer arithmetic
normally would occur.
You should use the CCurto provide internationally aware conversions from any other data type to
a Currency subtype. For example, different decimal separators and thousands separators are
properly recognized depending on the locale setting of your system.
fd 56904 - daspro/winpro - 4 of 40
'
'
'
'
MyDouble is a Double.
Convert result of MyDouble * 2
(1086.429176) to a
Currency (1086.4292).
CDate
Returns an expression that has been converted to a Variant of subtype Date.
Syntax
CDate(date)
The date argument is any valid date expression.
Remarks
Use the IsDateto determine if date can be converted to a date or time. CDate recognizes date
literals and time literals as well as some numbers that fall within the range of acceptable dates.
When converting a number to a date, the whole number portion is converted to a date. Any
fractional part of the number is converted to a time of day, starting at midnight.
CDate recognizes date formats according to the locale setting of your system. The correct order of
day, month, and year may not be determined if it is provided in a format other than one of the
recognized date settings. In addition, a long date format is not recognized if it also contains the
day-of-the-week string.
CDate Function Example
This example uses the CDate function to convert a string to a Date. In general, hard-coding dates
and times as strings (as shown in this example) is not recommended. Use date literals and time
literals, such as #2/12/1969# and #4:45:23 PM#, instead.
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"
' Define date.
MyShortDate = CDate(MyDate)
' Convert to Date data type.
MyTime = "4:35:47 PM"
MyShortTime = CDate(MyTime)
CDbl
Returns an expression that has been converted to a Variant of subtype Double.
Syntax
CDbl(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the subtype conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CDbl or CSng to force double-precision or single-precision arithmetic in
cases where currency or integer arithmetic normally would occur.
Use the CDblto provide internationally aware conversions from any other data type to a Double
subtype. For example, different decimal separators and thousands separators are properly
recognized depending on the locale setting of your system.
fd 56904 - daspro/winpro - 5 of 40
Chr
Returns the character associated with the specified ANSI character code.
Syntax
Chr(charcode)
The charcode argument is a number that identifies a character.
Remarks
Numbers from 0 to 31 are the same as standard, nonprintable ASCII codes. For example, Chr(10)
returns a linefeed character.
Note The ChrBis used with byte data contained in a string. Instead of returning a character, which
may be one or two bytes, ChrB always returns a single byte. ChrW is provided for 32-bit platforms
that use Unicode characters. Its argument is a Unicode (wide) character code, thereby avoiding
the conversion from ANSI to Unicode.
Chr Function Example
This example uses the Chr function to return the character associated with the specified character
code.
Dim MyChar
MyChar = Chr(65)
MyChar = Chr(97)
MyChar = Chr(62)
MyChar = Chr(37)
'
'
'
'
Returns
Returns
Returns
Returns
A.
a.
>.
%.
CInt
Returns an expression that has been converted to a Variant of subtype Integer.
Syntax
CInt(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the subtype conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CInt or CLng to force integer arithmetic in cases where currency, singleprecision, or double-precision arithmetic normally would occur.
Use the CIntto provide internationally aware conversions from any other data type to an Integer
subtype. For example, different decimal separators are properly recognized depending on the
locale setting of your system, as are different thousand separators.
If expression lies outside the acceptable range for the Integer subtype, an error occurs.
Note CInt differs from the Fix and Int functions, which truncate, rather than round, the fractional
part of a number. When the fractional part is exactly 0.5, the CIntalways rounds it to the nearest
even number. For example, 0.5 rounds to 0, and 1.5 rounds to 2.
CInt Function Example
This example uses the CInt function to convert a value to an Integer.
Dim MyDouble, MyInt
MyDouble = 2345.5678
MyInt = CInt(MyDouble)
fd 56904 - daspro/winpro - 6 of 40
CLng
Returns an expression that has been converted to a Variant of subtype Long.
Syntax
CLng(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the subtype conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CInt or CLng to force integer arithmetic in cases where currency, singleprecision, or double-precision arithmetic normally would occur.
Use the CLngto provide internationally aware conversions from any other data type to a Long
subtype. For example, different decimal separators are properly recognized depending on the
locale setting of your system, as are different thousand separators.
If expression lies outside the acceptable range for the Long subtype, an error occurs.
Note CLng differs from the Fix and Int functions, which truncate, rather than round, the fractional
part of a number. When the fractional part is exactly 0.5, the CLngalways rounds it to the nearest
even number. For example, 0.5 rounds to 0, and 1.5 rounds to 2.
CLng Function Example
This example uses the CLng function to convert a value to a Long.
Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55
MyLong1 = CLng(MyVal1)
MyLong2 = CLng(MyVal2)
Cos
Returns the cosine of an angle.
Syntax
Cos(number)
The number argument can be any valid numeric expression that expresses an angle in radians.
Remarks
The Costakes an angle and returns the ratio of two sides of a right triangle. The ratio is the length
of the side adjacent to the angle divided by the length of the hypotenuse.
The result lies in the range -1 to 1.
To convert degrees to radians, multiply degrees by pi/180. To convert radians to degrees, multiply
radians by 180/pi.
Cos Function Example
This example uses the Cos function to return the cosine of an angle.
Dim MyAngle, MySecant
MyAngle = 1.3
MySecant = 1 / Cos(MyAngle)
CSng
Returns an expression that has been converted to a Variant of subtype Single.
Syntax
CSng(expression)
The expression argument is any valid expression.
fd 56904 - daspro/winpro - 7 of 40
Remarks
In general, you can document your code using the data type conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CDbl or CSng to force double-precision or single-precision arithmetic in
cases where currency or integer arithmetic normally would occur.
Use the CSngto provide internationally aware conversions from any other data type to a Single
subtype. For example, different decimal separators are properly recognized depending on the
locale setting of your system, as are different thousand separators.
If expression lies outside the acceptable range for the Single subtype, an error occurs.
CSng Function Example
This example uses the CSng function to convert a value to a Single.
Dim MyDouble1, MyDouble2, MySingle1, MySingle2
' MyDouble1, MyDouble2 are Doubles.
MyDouble1 = 75.3421115
MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1)
' MySingle1 contains 75.34211.
MySingle2 = CSng(MyDouble2)
' MySingle2 contains 75.34216.
CStr
Returns an expression that has been converted to a Variant of subtype String.
Syntax
CStr(expression)
The expression argument is any valid expression.
Remarks
In general, you can document your code using the data type conversion functions to show that the
result of some operation should be expressed as a particular data type rather than the default data
type. For example, use CStr to force the result to be expressed as a String.
You should use the CStrinstead of Str to provide internationally aware conversions from any other
data type to a String subtype. For example, different decimal separators are properly recognized
depending on the locale setting of your system.
The data in expression determines what is returned according to the following table:
If expression is
CStr returns
boolean
date
null
empty
error
other numeric
fd 56904 - daspro/winpro - 8 of 40
Date
Returns the current system date.
Syntax
Date
Date Function Example
This example uses the Date function to return the current system date.
Dim MyDate
MyDate = Date
DateAdd
Returns a date to which a specified time interval has been added.
Syntax
DateAdd(interval, number, date)
The DataAdd syntax has these parts:
Part
Description
interval
Required. String expression that is the interval you want to add. See
Settings section for values.
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.
Required. Variant or literal representing the date to which interval is
added.
number
date
Settings
The interval argument can have the following values:
Setting
Description
yyyy
q
m
y
d
w
ww
h
m
s
Year
Quarter
Month
Day of year
Day
Weekday
Week of year
Hour
Minute
Second
Remarks
You can use the DateAddto add or subtract a specified time interval from a date. For example, you
can use DateAdd to calculate a date 30 days from today or a time 45 minutes from now. To add
days to date, you can use Day of Year ("y"), Day ("d"), or Weekday ("w").
The DateAddwon't return an invalid date. The following example adds one month to January 31:
NewDate = DateAdd("m", 1, "31-Jan-95")
In this case, DateAdd returns 28-Feb-95, not 31-Feb-95. If date is 31-Jan-96, it returns 29-Feb-96
because 1996 is a leap year.
If the calculated date would precede the year 100, an error occurs.
If number isn't a Long value, it is rounded to the nearest whole number before being evaluated.
fd 56904 - daspro/winpro - 9 of 40
DateDiff
Returns the number of intervals between two dates.
Syntax
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
The DateDiff syntax has these parts:
Part
Description
interval
date1, date2
firstdayofweek
firstweekofyear
Settings
The interval argument can have the following values:
Setting
Description
yyyy
q
m
y
d
w
ww
h
m
s
Year
Quarter
Month
Day of year
Day
Weekday
Week of year
Hour
Minute
Second
Value
vbUseSystem
vbSunday
vbMonday
1
2
Description
Use National Language Support (NLS) API
setting.
Sunday (default)
Monday
fd 56904 - daspro/winpro - 10 of 40
vbTuesday
vbWednesday
vbThursday
vbFriday
vbSaturday
3
4
5
6
7
Tuesday
Wednesday
Thursday
Friday
Saturday
Value
vbUseSystem
vbFirstJan1
0
1
vbFirstFourDays
vbFirstFullWeek
Description
Use National Language Support (NLS) API setting.
Start with the week in which January 1 occurs
(default).
Start with the week that has at least four days in the
new year.
Start with the first full weekof the new year.
Remarks
You can use the DateDiff to determine how many specified time intervals exist between two dates.
For example, you might use DateDiff to calculate the number of days between two dates, or the
number of weeks between today and the end of the year.
To calculate the number of days between date1 and date2, you can use either Day of year ("y") or
Day ("d"). When interval is Weekday ("w"), DateDiff returns the number of weeks between the two
dates. If date1 falls on a Monday, DateDiff counts the number of Mondays until date2. It counts
date2 but not date1. If interval is Week ("ww"), however, the DateDiff returns the number of
calendar weeks between the two dates. It counts the number of Sundays between date1 and
date2. DateDiff counts date2 if it falls on a Sunday; but it doesn't count date1, even if it does fall
on a Sunday.
If date1 refers to a later point in time than date2, the DateDiff returns a negative number.
The firstdayofweek argument affects calculations that use the "w" and "ww" interval symbols.
If date1 or date2 is a date literal, the specified year becomes a permanent part of that date.
However, if date1 or date2 is enclosed in quotation marks (" ") and you omit the year, the current
year is inserted in your code each time the date1 or date2 expression is evaluated. This makes it
possible to write code that can be used in different years.
When comparing December 31 to January 1 of the immediately succeeding year, DateDiff for
Year ("yyyy") returns 1 even though only a day has elapsed.
DateDiff Function Example
This example uses the DateDiff function to display the number of days between a given date and
today.
Dim TheDate As Date
' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
fd 56904 - daspro/winpro - 11 of 40
DatePart
Returns the specified part of a given date.
Syntax
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
The DatePart syntax has these parts:
Part
Description
interval
date
firstdayof week
firstweekofyear
Settings
The interval argument can have the following values:
Setting
Description
yyyy
q
m
y
d
w
ww
h
m
s
Year
Quarter
Month
Day of year
Day
Weekday
Week of year
Hour
Minute
Second
Value
vbUseSystem
vbSunday
vbMonday
vbTuesday
vbWednesday
vbThursday
vbFriday
vbSaturday
1
2
3
4
5
6
7
Description
Use National Language Support (NLS) API
setting.
Sunday (default)
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Value
vbUseSystem
vbFirstJan1
Description
Use National Language Support (NLS) API
setting.
Start with the week in which January 1 occurs
fd 56904 - daspro/winpro - 12 of 40
vbFirstFourDays
vbFirstFullWeek
(default).
Start with the week that has at least four days in
the new year.
Start with the first full weekof the new year.
Remarks
You can use the DatePart to evaluate a date and return a specific interval of time. For example,
you might use DatePart to calculate the day of the week or the current hour.
The firstdayofweek argument affects calculations that use the "w" and "ww" interval symbols.
If date is a date literal, the specified year becomes a permanent part of that date. However, if date
is enclosed in quotation marks (" "), and you omit the year, the current year is inserted in your
code each time the date expression is evaluated. This makes it possible to write code that can be
used in different years.
DatePart Function Example
This example takes a date and, using the DatePart function, displays the quarter of the year in
which it occurs.
Dim TheDate As Date
' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg
DateSerial
Returns a Variant of subtype Date for a specified year, month, and day.
Syntax
DateSerial(year, month, day)
The DateSerial syntax has these arguments:
Part
Description
year
month
day
Remarks
To specify a date, such as December 31, 1991, the range of numbers for each DateSerial
argument should be in the accepted range for the unit; that is, 131 for days and 112 for months.
However, you can also specify relative dates for each argument using any numeric expression
that represents some number of days, months, or years before or after a certain date.
The following example uses numeric expressions instead of absolute date numbers. Here the
DateSerial returns a date that is the day before the first day (1 1) of two months before August
(8 2) of 10 years before 1990 (1990 10); in other words, May 31, 1980.
DateSerial(1990 - 10, 8 - 2, 1 - 1)
For the year argument, values between 0 and 99, inclusive, are interpreted as the years 1900
1999. For all other year arguments, use a complete four-digit year (for example, 1800).
When any argument exceeds the accepted range for that argument, it increments to the next
larger unit as appropriate. For example, if you specify 35 days, it is evaluated as one month and
some number of days, depending on where in the year it is applied. However, if any single
argument is outside the range -32,768 to 32,767, or if the date specified by the three arguments,
either directly or by expression, falls outside the acceptable range of dates, an error occurs.
fd 56904 - daspro/winpro - 13 of 40
DateValue
Returns a Variant of subtype Date.
Syntax
DateValue(date)
The date argument is normally a string expression representing a date from January 1, 100
through December 31, 9999. However, date can also be any expression that can represent a date,
a time, or both a date and time, in that range.
Remarks
If the date argument includes time information, DateValue doesn't return it. However, if date
includes invalid time information (such as "89:98"), an error occurs.
If date is a string that includes only numbers separated by valid date separators, DateValue
recognizes the order for month, day, and year according to the short date format you specified for
your system. DateValue also recognizes unambiguous dates that contain month names, either in
long or abbreviated form. For example, in addition to recognizing 12/30/1991 and 12/30/91,
DateValue also recognizes December 30, 1991 and Dec 30, 1991.
If the year part of date is omitted, DateValue uses the current year from your computer's system
date.
DateValue Function Example
This example uses the DateValue function to convert a string to a date. You can also use date
literals to directly assign a date to a Variant or Date variable, for example, MyDate = #2/12/69#.
Dim MyDate
MyDate = DateValue("February 12, 1969")
Day
Description
Returns a whole number between 1 and 31, inclusive, representing the day of the month.
Syntax
Day(date)
The date argument is any expression that can represent a date. If date contains Null, Null is
returned.
Day Function Example
This example uses the Day function to obtain the day of the month from a specified date. In the
development environment, the date literal is displayed in short format using the locale settings of
your code.
Dim MyDate, MyDay
MyDate = #February 12, 1969#
MyDay = Day(MyDate)
fd 56904 - daspro/winpro - 14 of 40
Exp
Returns e (the base of natural logarithms) raised to a power.
Syntax
Exp(number)
The number argument can be any valid numeric expression.
Remarks
If the value of number exceeds 709.782712893, an error occurs. The constant e is approximately
2.718282.
Note The Exp complements the action of the Log and is sometimes referred to as the
antilogarithm.
Exp Function Example
This example uses the Exp function to return e raised to a power.
Dim MyAngle, MyHSin
' Define angle in radians.
MyAngle = 1.3
' Calculate hyperbolic sine.
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2
Format
Returns a Variant (String) containing an expression formatted according to instructions contained
in a format expression.
Syntax
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
The Format function syntax has these parts:
Part
Description
expression
format
firstdayofweek
firstweekofyear
Settings
The firstdayofweek argument has these settings:
Constant
Value
Description
vbUseSystem
VbSunday
Sunday (default)
vbMonday
Monday
vbTuesday
Tuesday
vbWednesday
Wednesday
vbThursday
Thursday
vbFriday
Friday
vbSaturday
Saturday
fd 56904 - daspro/winpro - 15 of 40
Value
Description
vbUseSystem
vbFirstJan1
vbFirstFourDays
Start with the first week that has at least four days
in the year.
vbFirstFullWeek
Remarks
To Format
Do This
Numbers
Strings
If you try to format a number without specifying format, Format provides functionality similar to the
Str function, although it is internationally aware. However, positive numbers formatted as strings
using Format dont include a leading space reserved for the sign of the value; those converted
using Str retain the leading space.
Format Function Example
This example shows various uses of the Format function to format values using both named
formats and user-defined formats. For the date separator (/), time separator (:), and AM/ PM
literal, the actual formatted output displayed by your system depends on the locale settings on
which the code is running. When times and dates are displayed in the development environment,
the short time format and short date format of the code locale are used. When displayed by
running code, the short time format and short date format of the system locale are used, which
may differ from the code locale. For this example, English/U.S. is assumed.
MyTime and MyDate are displayed in the development environment using current system short
time setting and short date setting.
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")
' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")
' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")
' Returns "Wednesday,
' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)
' Returns "23".
fd 56904 - daspro/winpro - 16 of 40
'
'
'
'
'
Returns
Returns
Returns
Returns
Returns
"5,459.40".
"334.90".
"500.00%".
"hello".
"THIS IS IT".
Hex
Returns a string representing the hexadecimal value of a number.
Syntax
Hex(number)
The number argument is any valid expression.
Remarks
If number is not already a whole number, it is rounded to the nearest whole number before being
evaluated.
If number is
Hex returns
Null
Empty
Any other number
Null.
Zero (0).
Up to eight hexadecimal characters.
You can represent hexadecimal numbers directly by preceding numbers in the proper range with
&H. For example, &H10 represents decimal 16 in hexadecimal notation.
Hex Function Example
This example uses the Hex function to return the hexadecimal value of a number.
Dim MyHex
MyHex = Hex(5)
MyHex = Hex(10)
MyHex = Hex(459)
' Returns 5.
' Returns A.
' Returns 1CB.
Hour
Description
Returns a whole number between 0 and 23, inclusive, representing the hour of the day.
Syntax
Hour(time)
The time argument is any expression that can represent a time. If time contains Null, Null is
returned.
Hour Function Example
This example uses the Hour function to obtain the hour from a specified time. In the development
environment, the time literal is displayed in short time format using the locale settings of your
code.
Dim MyTime, MyHour
MyTime = #4:35:17 PM#
MyHour = Hour(MyTime)
fd 56904 - daspro/winpro - 17 of 40
InputBox
Description
Displays a prompt in a dialog box, waits for the user to input text or click a button, and returns the
contents of the text box.
Syntax
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
The InputBox syntax has these arguments:
Part
Description
prompt
title
default
xpos
ypos
helpfile
context
Remarks
If the user clicks OK or presses ENTER, the InputBoxreturns whatever is in the text box. If the
user clicks Cancel, thereturns a zero-length string ("").
InputBox Function Example
This example shows various ways to use the InputBox function to prompt the user to enter a
value. If the x and y positions are omitted, the dialog box is automatically centered for the
respective axes. The variable MyValue contains the value entered by the user if the user clicks
OK or presses the ENTER key . If the user clicks Cancel, a zero-length string is returned.
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"
' Set prompt.
Title = "InputBox Demo"
' Set title.
Default = "1"
' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
' Use Helpfile and context. The Help button is added automatically.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)
fd 56904 - daspro/winpro - 18 of 40
InStr
Description
Returns the position of the first occurrence of one string within another.
Syntax
InStr([Start, ]string1, string2[, compare])
The InStr yntax has these arguments:
Part
Description
Start
string1
string2
compare
Optional. Numeric expression that sets the Starting position for each
search. If omitted, search begins at the first character position. If Start
contains Null, an error occurs. The Start argument is required if
compare is specified.
Required. String expression being searched.
Required. String expression searched for.
Optional. Numeric value indicating the kind of comparison to use when
evaluating substrings. See Settings section for values. If omitted, a
binary comparison is performed.
Settings
The compare argument can have the following values:
Constant
vbBinaryCompare
vbTextCompare
vbDatabaseCompare
Value
Description
0
1
2
Return Values
The Instr returns the following values:
If
InStr returns
string1 is zero-length
string1 is Null
string2 is zero-length
string2 is Null
string2 is not found
string2 is found within
string1
Start > Len(string2)
0
Null
Start
Null
0
Position at which match is found
0
Note The InStrBis used with byte data contained in a string. Instead of returning the character
position of the first occurrence of one string within another, InStrB returns the byte position.
InStr Function Example
This example uses the InStr function to return the position of the first occurrence of one string
within another.
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"
SearchChar = "P"
fd 56904 - daspro/winpro - 19 of 40
' Returns 0.
Int, Fix
Returns the integer portion of a number.
Syntax
Int(number)
Fix(number)
The number argument can be any valid numeric expression. If number contains Null, Null is
returned.
Remarks
Both Int and Fix remove the fractional part of number and return the resulting integer value.
The difference between Int and Fix is that if number is negative, Int returns the first negative
integer less than or equal to number, whereas Fix returns the first negative integer greater than or
equal to number. For example, Int converts -8.4 to -9, and Fix converts -8.4 to -8.
Fix(number) is equivalent to:
Sgn(number) * Int(Abs(number)Int)
Int Function, Fix Function Example
This example illustrates how the Int and Fix functions return integer portions of numbers. In the
case of a negative number argument, the Int function returns the first negative integer less than or
equal to the number; the Fix function returns the first negative integer greater than or equal to the
number.
Dim MyNumber
MyNumber = Int(99.8)
MyNumber = Fix(99.2)
MyNumber = Int(-99.8)
MyNumber = Fix(-99.8)
MyNumber = Int(-99.2)
MyNumber = Fix(-99.2)
IsArray
Returns a Boolean value indicating whether a variable is an array.
Syntax
IsArray(varname)
The varname argument can be any variable.
Remarks
IsArray returns True if the variable is an array; otherwise, it returns False. IsArray is especially
useful with variants containing arrays.
IsArray Function Example
This example uses the IsArray function to check if a variable is an array.
fd 56904 - daspro/winpro - 20 of 40
'
'
'
'
IsDate
Returns a Boolean value indicating whether an expression can be converted to a date.
Syntax
IsDate(expression)
The expression argument can be any date expression or string expression recognizable as a date
or time.
Remarks
IsDate returns True if the expression is a date or can be converted to a valid date; otherwise, it
returns False. In Microsoft Windows, the range of valid dates is January 1, 100 A.D. through
December 31, 9999 A.D.; the ranges vary among operating systems.
IsDate Function Example
This example uses the IsDate function to determine if an expression can be converted to a date.
Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "February 12, 1969": YourDate
MyCheck = IsDate(MyDate)
' Returns
MyCheck = IsDate(YourDate)
' Returns
MyCheck = IsDate(NoDate)
' Returns
IsEmpty
Description
Returns a Boolean value indicating whether a variable has been initialized.
Syntax
IsEmpty(expression)
The expression argument can be any expression. However, because IsEmpty is used to
determine if individual variables are initialized, the expression argument is most often a single
variable name.
Remarks
IsEmpty returns True if the variable is uninitialized, or is explicitly set to Empty; otherwise, it
returns False. False is always returned if expression contains more than one variable.
IsEmpty Function Example
This example uses the IsEmpty function to determine whether a variable has been initialized.
Dim MyVar, MyCheck
MyCheck = IsEmpty(MyVar)
MyVar = Null
' Assign Null.
MyCheck = IsEmpty(MyVar)
' Returns False.
MyVar = Empty
' Assign Empty.
MyCheck = IsEmpty(MyVar)
' Returns True.
fd 56904 - daspro/winpro - 21 of 40
IsNull
Returns a Boolean value that indicates whether an expression contains no valid data (Null).
Syntax
IsNull(expression)
The expression argument can be any expression.
Remarks
IsNull returns True if expression is Null, that is, it contains no valid data; otherwise, IsNull returns
False. If expression consists of more than one variable, Null in any constituent variable causes
True to be returned for the entire expression.
The Null value indicates that the variable contains no valid data. Null is not the same as Empty,
which indicates that a variable has not yet been initialized. It is also not the same as a zero-length
string (""), which is sometimes referred to as a null string.
Important Use the IsNullto determine whether an expression contains a Null value. Expressions
that you might expect to evaluate to True under some circumstances, such as If Var = Null and If
Var <> Null, are always False. This is because any expression containing a Null is itself Null, and
therefore, False.
IsNull Function Example
This example uses the IsNull function to determine if a variable contains a Null.
Dim MyVar, MyCheck
MyCheck = IsNull(MyVar)
MyVar = ""
MyCheck = IsNull(MyVar)
MyVar = Null
MyCheck = IsNull(MyVar)
IsNumeric
Returns a Boolean value indicating whether an expression can be evaluated as a number.
Syntax
IsNumeric(expression)
The expression argument can be any expression.
Remarks
IsNumeric returns True if the entire expression is recognized as a number; otherwise, it returns
False.
IsNumeric returns False if expression is a date expression.
IsNumeric Function Example
This example uses the IsNumeric function to determine if a variable can be evaluated as a
number.
Dim MyVar, MyCheck
MyVar = "53"
MyCheck = IsNumeric(MyVar)
MyVar = "459.95"
MyCheck = IsNumeric(MyVar)
fd 56904 - daspro/winpro - 22 of 40
IsObject
Returns a Boolean value indicating whether an expression references a valid Automation object.
Syntax
IsObject(expression)
The expression argument can be any expression.
Remarks
IsObject returns True if expression is a variable of Object subtype or a user-defined object;
otherwise, it returns False.
IsObject Function Example
This example uses the IsObject function to determine if an identifier represents an object variable.
MyObject and YourObject are object variables of the same type. They are generic names used for
illustration purposes only.
Dim MyInt As Integer, YourObject, MyCheck
Dim MyObject As Object
Set YourObject = MyObject
MyCheck = IsObject(YourObject)
MyCheck = IsObject(MyInt)
Join
Returns a string created by joining a number of substrings contained in an array.
Syntax
Join(list[, delimiter])
The Join syntax has these parts:
Part
Description
list
delimiter
LBound
Returns the smallest available subscript for the indicated dimension of an array.
Syntax
LBound(arrayname[, dimension])
The Lbound syntax has these parts:
Part
Description
arrayname
dimension
Remarks
The LBoundis used with the UBoundto determine the size of an array. Use the UBoundto find the
upper limit of an array dimension.
The default lower bound for any dimension is always 0.
fd 56904 - daspro/winpro - 23 of 40
Returns
Returns
Returns
setting
1.
10.
0 or 1, depending on
of Option Base.
LCase
Description
Returns a string that has been converted to lowercase.
Syntax
LCase(string)
The string argument is any valid string expression. If string contains Null, Null is returned.
Remarks
Only uppercase letters are converted to lowercase; all lowercase letters and nonletter characters
remain unchanged.
LCase Function Example
This example uses the LCase function to return a lowercase version of a string.
Dim UpperCase, LowerCase
Uppercase = "Hello World 1234"
Lowercase = Lcase(UpperCase)
Left
Description
Returns a specified number of characters from the left side of a string.
Syntax
Left(string, length)
The Left syntax has these arguments:
Part
Description
string
String expression from which the leftmost characters are returned. If string
contains Null, Null is returned.
Numeric expression indicating how many characters to return. If 0, a zerolength string("") is returned. If greater than or equal to the number of characters
in string, the entire string is returned.
length
Remarks
To determine the number of characters in string, use the Len function.
Note The LeftB is used with byte data contained in a string. Instead of specifying the number of
characters to return, length specifies the number of bytes.
Left Function Example
This example uses the Left function to return a specified number of characters from the left side of
a string.
fd 56904 - daspro/winpro - 24 of 40
'
'
'
'
Define string.
Returns "H".
Returns "Hello W".
Returns "Hello World".
Len
Description
Returns the number of characters in a string or the number of bytes required to store a variable.
Syntax
Len(string | varname)
The Lens yntax has these parts:
Part
Description
string
varname
Note The LenB s used with byte data contained in a string. Instead of returning the number of
characters in a string, LenB returns the number of bytes used to represent that string.
Len Function Example
The first example uses Len to return the number of characters in a string or the number of bytes
required to store a variable. The Type...End Type block defining CustomerRecord must be
preceded by the keyword Private if it appears in a class module. In a standard module, a Type
statement can be Public.
Type CustomerRecord
' Define user-defined type.
ID As Integer
' Place this definition in a
Name As String * 10
' standard module.
Address As String * 30
End Type
Dim Customer As CustomerRecord
' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World"
' Initialize variable.
MyLen = Len(MyInt)
' Returns 2.
MyLen = Len(Customer)
' Returns 42.
MyLen = Len(MyString)
' Returns 11.
MyLen = Len(MyCur)
' Returns 8.
The second example uses LenB and a user-defined function (LenMbcs) to return the number of
byte characters in a string if ANSI is used to represent the string.
Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.
fd 56904 - daspro/winpro - 25 of 40
Log
Returns the natural logarithm of a number.
Syntax
Log(number)
The number argument can be any valid numeric expression greater than 0.
Remarks
The natural logarithm is the logarithm to the base e. The constant e is approximately 2.718282.
You can calculate base-n logarithms for any number x by dividing the natural logarithm of x by the
natural logarithm of n as follows:
Logn(x) = Log(x) / Log(n)
The following example illustrates a custom function that calculates base-10 logarithms:
Function Log10(X)
Log10 = Log(X) / Log(10)
End Function
LTrim, RTrim,Trim
Returns a copy of a string without leading spaces (LTrim), trailing spaces (RTrim), or both leading
and trailing spaces (Trim).
Syntax
LTrim(string)
RTrim(string)
Trim(string)
The string argument is any valid string expression. If string contains Null, Null is returned.
LTrim, RTrim, and Trim Functions Example
This example uses the LTrim function to strip leading spaces and the RTrim function to strip
trailing spaces from a string variable. It uses the Trim function to strip both types of spaces.
Dim MyString, TrimString
MyString = " <-Trim-> "
' Initialize string.
TrimString = LTrim(MyString)
' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString)
' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString))
' TrimString = "<-Trim->".
' Using the Trim function alone achieves the same result.
TrimString = Trim(MyString)
' TrimString = "<-Trim->".
Mid
Returns a specified number of characters from a string.
Syntax
Mid(string, Start[, length])
The Mid syntax has these arguments:
Part
Description
string
String expression from which characters are returned. If string contains Null,
Null is returned.
fd 56904 - daspro/winpro - 26 of 40
Start
length
Remarks
To determine the number of characters in string, use the Len function.
Note The MidB is used with byte data contained in a string. Instead of specifying the number of
characters, the arguments specify numbers of bytes.
Mid Function Example
The first example uses the Mid function to return a specified number of characters from a string.
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"
' Create text string.
FirstWord = Mid(MyString, 1, 3)
' Returns "Mid".
LastWord = Mid(MyString, 14, 4)
' Returns "Demo".
MidWords = Mid(MyString, 5)
' Returns "Function Demo".
The second example use MidB and a user-defined function (MidMbcs) to also return characters
from string. The difference here is that the input string is ANSI and the length is in bytes.
Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length),
vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"
Minute
Returns a whole number between 0 and 59, inclusive, representing the minute of the hour.
Syntax
Minute(time)
The time argument is any expression that can represent a time. If time contains Null, Null is
returned.
Minute Function Example
This example uses the Minute function to obtain the minute of the hour from a specified time. In
the development environment, the time literal is displayed in short time format using the locale
settings of your code.
Dim MyTime, MyMinute
MyTime = #4:35:17 PM#
' Assign a time.
MyMinute = Minute(MyTime)
' MyMinute contains 35.
fd 56904 - daspro/winpro - 27 of 40
Month
Returns a whole number between 1 and 12, inclusive, representing the month of the year.
Syntax
Month(date)
The date argument is any expression that can represent a date. If date contains Null, Null is
returned.
Month Function Example
This example uses the Month function to obtain the month from a specified date. In the
development environment, the date literal is displayed in short date format using the locale
settings of your code.
Dim MyDate, MyMonth
MyDate = #February 12, 1969#
MyMonth = Month(MyDate)
MonthName
Returns a string indicating the specified month.
Syntax
MonthName(month[, abbreviate])
The MonthName syntax has these parts:
Part
Description
month
abbreviate
MsgBox
Displays a message in a dialog box, waits for the user to click a button, and returns a value
indicating which button the user clicked.
Syntax
MsgBox(prompt[, buttons][, title][, helpfile, context])
The MsgBox syntax has these arguments:
Part
Description
prompt
buttons
title
helpfile
context
String expression displayed as the message in the dialog box. The maximum
length of prompt is approximately 1024 characters, depending on the width of
the characters used. If prompt consists of more than one line, you can
separate the lines using a carriage return character (Chr(13)), a linefeed
character (Chr(10)), or carriage returnlinefeed character combination
(Chr(13) & Chr(10)) between each line.
Numeric expression that is the sum of values specifying the number and type
of buttons to display, the icon style to use, the identity of the default button,
and the modality of the message box. See Settings section for values. If
omitted, the default value for buttons is 0.
String expression displayed in the title bar of the dialog box. If you omit title,
the application name is placed in the title bar.
Not supported.
Not supported.
fd 56904 - daspro/winpro - 28 of 40
Settings
The buttons argument settings are:
Constant
Value
vbOKOnly
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbYesNo
vbRetryCancel
vbCritical
vbQuestion
vbExclamation
vbInformation
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbDefaultButton4
vbApplicationModal
0
1
2
3
4
5
16
32
48
64
0
256
512
768
0
vbSystemModal
4096
Description
Display OK button only.
Display OK and Cancel buttons.
Display Abort, Retry, and Ignore buttons.
Display Yes, No, and Cancel buttons.
Display Yes and No buttons.
Display Retry and Cancel buttons.
Display Critical Message icon.
Display Warning Query icon.
Display Warning Message icon.
Display Information Message icon.
First button is default.
Second button is default.
Third button is default.
Fourth button is default.
Application modal; the user must respond to the
message box before continuing work in the current
application.
System modal; all applications are suspended until
the user responds to the message box.
The first group of values (05) describes the number and type of buttons displayed in the dialog
box; the second group (16, 32, 48, 64) describes the icon style; the third group (0, 256, 512, 768)
determines which button is the default; and the fourth group (0, 4096) determines the modality of
the message box. When adding numbers to create a final value for the argument buttons, use only
one number from each group.
Return Values
The MsgBoxhas the following return values:
Constant
Value
Button
vbOK
vbCancel
vbAbort
vbRetry
vbIgnore
vbYes
vbNo
1
2
3
4
5
6
7
OK
Cancel
Abort
Retry
Ignore
Yes
No
Remarks
If the dialog box displays a Cancel button, pressing the ESC key has the same effect as clicking
Cancel.
MsgBox Function Example
This example uses the MsgBox function to display a critical-error message in a dialog box with
Yes and No buttons. The No button is specified as the default response. The value returned by the
MsgBox function depends on the button chosen by the user. This example assumes that
DEMO.HLP is a Help file that contains a topic with a Help context number equal to 1000.
fd 56904 - daspro/winpro - 29 of 40
Now
Description
Returns the current date and time according to the setting of your computer's system date and
time.
Syntax
Now
Now Function Example
This example uses the Now function to return the current system date and time.
Dim Today
Today = Now
Oct
Returns a string representing the octal value of a number.
Syntax
Oct(number)
The number argument is any valid expression.
Remarks
If number is not already a whole number, it is rounded to the nearest whole number before being
evaluated.
If number is
Oct returns
Null.
Null
Empty
Zero (0).
Any other number
Up to 11 octal characters,
You can represent octal numbers directly by preceding numbers in the proper range with &O. For
example, &O10 is the octal notation for decimal 8.
Oct Function Example
This example uses the Oct function to return the octal value of a number.
Dim MyOct
MyOct = Oct(4)
' Returns 4.
MyOct = Oct(8)
' Returns 10.
MyOct = Oct(459)
' Returns 713.
fd 56904 - daspro/winpro - 30 of 40
Replace
Returns a string in which a specified substring has been replaced with another substring a
specified number of times.
Syntax
Replace(expression, find, replacewith[, Start[, count[, compare]]])
The Replace syntax has these parts:
Part
Description
expression
find
replacewith
Start
count
compare
Settings
The compare argument can have the following values:
Constant
Value
vbBinaryCompare
vbTextCompare
vbDatabaseCompare
0
1
2
Description
Perform a binary comparison.
Perform a textual comparison.
Perform a comparison based on information contained in
the database where the comparison is to be performed.
Return Values
Replace returns the following values:
If
Replace returns
expression is zero-length
expression is Null
find is zero-length
replacewith is zero-length
Start > Len(expression)
count is 0
Remarks
The return value of the Replace is a string, with substitutions made, that begins at the position
specified by Start and and concludes at the end of the expression string. It is not a copy of the
original string from Start to finish.
Right
Returns a specified number of characters from the right side of a string.
Syntax
Right(string, length)
The Rightsyntax has these arguments:
Part
Description
string
String expression from which the rightmost characters are returned. If string
fd 56904 - daspro/winpro - 31 of 40
length
Remarks
To determine the number of characters in string, use the Len function.
Note The RightB is used with byte data contained in a string. Instead of specifying the number of
characters to return, length specifies the number of bytes.
Right Function Example
This example uses the Right function to return a specified number of characters from the right
side of a string.
Dim AnyString, MyStr
AnyString = "Hello World"
MyStr = Right(AnyString, 1)
MyStr = Right(AnyString, 6)
MyStr = Right(AnyString, 20)
'
'
'
'
Define string.
Returns "d".
Returns " World".
Returns "Hello World".
Rnd
Returns a random number.
Syntax
Rnd[(number)]
The number argument can be any valid numeric expression.
Remarks
The Rndreturns a value less than 1 but greater than or equal to 0.
The value of number determines how Rnd generates a random number:
If number is
Rnd generates
Less than zero
Greater than zero
Equal to zero
Not supplied
For any given initial seed, the same number sequence is generated because each successive call
to the Rnduses the previous number as a seed for the next number in the sequence.
Before calling Rnd, use the Randomize statement without an argument to initialize the randomnumber generator with a seed based on the system timer.
To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the
range.
Note To repeat sequences of random numbers, call Rnd with a negative argument immediately
before using Randomize with a numeric argument. Using Randomize with the same value for
number does not repeat the previous sequence.
Rnd Function Example
This example uses the Rnd function to generate a random integer value from 1 to 6.
Dim MyValue
MyValue = Int((6 * Rnd) + 1)
fd 56904 - daspro/winpro - 32 of 40
Round
Returns a number rounded to a specified number of decimal places.
Syntax
Round(expression[, numdecimalplaces])
The Round syntax has these parts:
Part
Description
expression
Required. Numeric expression being rounded.
numdecimalplaces
Optional. Number indicating how many places to the right of the
decimal are included in the rounding. If omitted, integers are returned
by the Round function.
Second
Returns a whole number between 0 and 59, inclusive, representing the second of the minute.
Syntax
Second(time)
The time argument is any expression that can represent a time. If time contains Null, Null is
returned.
Second Function Example
This example uses the Second function to obtain the second of the minute from a specified time.
In the development environment, the time literal is displayed in short time format using the locale
settings of your code.
Dim MyTime, MySecond
MyTime = #4:35:17 PM#
MySecond = Second(MyTime)
Sgn
Returns an integer indicating the sign of a number.
Syntax
Sgn(number)
The number argument can be any valid numeric expression.
Return Values
The Sgnhas the following return values:
If number is
Sgn returns
1
0
-1
Remarks
The sign of the number argument determines the return value of the Sgn function.
Sgn Function Example
This example uses the Sgn function to determine the sign of a number.
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1)
' Returns 1.
MySign = Sgn(MyVar2)
' Returns -1.
fd 56904 - daspro/winpro - 33 of 40
MySign = Sgn(MyVar3)
' Returns 0.
Sin
Returns the sine of an angle.
Syntax
Sin(number)
The number argument can be any valid numeric expression that expresses an angle in radians.
Remarks
The Sin takes an angle and returns the ratio of two sides of a right triangle. The ratio is the length
of the side opposite the angle divided by the length of the hypotenuse. The result lies in the range
-1 to 1.
To convert degrees to radians, multiply degrees by pi/180. To convert radians to degrees, multiply
radians by 180/pi.
Sin Function Example
This example uses the Sin function to return the sine of an angle.
Dim MyAngle, MyCosecant
MyAngle = 1.3
MyCosecant = 1 / Sin(MyAngle)
Space
Returns a string consisting of the specified number of spaces.
Syntax
Space(number)
The number argument is the number of spaces you want in the string.
Space Function Example
This example uses the Space function to return a string consisting of a specified number of
spaces.
Dim MyString
' Returns a string with 10 spaces.
MyString = Space(10)
' Insert 10 spaces between two strings.
MyString = "Hello" & Space(10) & "World"
Split
Returns a zero-based, one-dimensional array containing a specified number of substrings.
Syntax
Split(expression[, delimiter[, count[, compare]]])
The Split syntax has these parts:
Part
Description
expression
delimiter
fd 56904 - daspro/winpro - 34 of 40
count
compare
is returned.
Optional. Number of substrings to be returned; -1 indicates that all
substrings are returned.
Optional. Numeric value indicating the kind of comparison to use when
evaluating substrings. See Settings section for values.
Settings
The compare argument can have the following values:
Constant
Value
vbBinaryCompare
vbTextCompare
vbDatabaseCompare
Description
0
1
2
Sqr
Returns the square root of a number.
Syntax
Sqr(number)
The number argument can be any valid numeric expression greater than or equal to 0.
Sqr Function Example
This example uses the Sqr function to calculate the square root of a number.
Dim MySqr
MySqr = Sqr(4)
MySqr = Sqr(23)
MySqr = Sqr(0)
MySqr = Sqr(-4)
'
'
'
'
Returns 2.
Returns 4.79583152331272.
Returns 0.
Generates a run-time error.
StrComp
Returns a value indicating the result of a string comparison.
Syntax
StrComp(string1, string2[, compare])
The StrCompsyntax has these arguments:
Part
Description
string1
Required. Any valid string expression.
string2
Required. Any valid string expression.
compare
Optional. Numeric value indicating the kind of comparison to use when
evaluating strings. If omitted, a binary comparison is performed. See
Settings section for values.
Settings
The compare argument can have the following values:
Constant
Value
Description
vbBinaryCompare
vbTextCompare
vbDatabaseCompare
0
1
2
fd 56904 - daspro/winpro - 35 of 40
Return Values
The StrComphas the following return values:
If
StrComp returns
-1
0
1
Null
'
'
'
'
Define variables.
Returns 0.
Returns -1.
Returns 1.
String
Returns a repeating character string of the length specified.
Syntax
String(number, character)
The Stringsyntax has these arguments:
Part
Description
number
character
Remarks
If you specify a number for character greater than 255, String converts the number to a valid
character code using the formula:
character Mod 256
String Function Example
This example uses the String function to return repeating character strings of the length specified.
Dim MyString
MyString = String(5, "*")
MyString = String(5, 42)
MyString = String(10, "ABC")
Tan
Returns the tangent of an angle.
Syntax
Tan(number)
The number argument can be any valid numeric expression that expresses an angle in radians.
Remarks
fd 56904 - daspro/winpro - 36 of 40
Tan takes an angle and returns the ratio of two sides of a right triangle. The ratio is the length of
the side opposite the angle divided by the length of the side adjacent to the angle.
To convert degrees to radians, multiply degrees by pi/180. To convert radians to degrees, multiply
radians by 180/pi.
Tan Function Example
This example uses the Tan function to return the tangent of an angle.
Dim MyAngle, MyCotangent
MyAngle = 1.3
MyCotangent = 1 / Tan(MyAngle)
Time
Returns a Variant of subtype Date indicating the current system time.
Syntax
Time
Time Function Example
This example uses the Time function to return the current system time.
Dim MyTime
MyTime = Time
TimeValue
Returns a Variant of subtype Date containing the time.
Syntax
TimeValue(time)
The time argument 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.
Remarks
You can enter valid times using a 12-hour or 24-hour clock. For example, "2:24PM" and "14:24"
are both valid time arguments.
If the time argument contains date information, TimeValue doesn't return the date information.
However, if time includes invalid date information, an error occurs.
TimeValue Function Example
This example uses the TimeValue function to convert a string to a time. You can also use date
literals to directly assign a time to a Variant or Date variable, for example, MyTime = #4:35:17
PM#.
Dim MyTime
MyTime = TimeValue("4:35:17 PM")
UBound
Returns the largest available subscript for the indicated dimension of an array.
Syntax
UBound(arrayname[, dimension])
The Ubound syntax has these parts:
Part
Description
arrayname
fd 56904 - daspro/winpro - 37 of 40
conventions.
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.
dimension
Remarks
The Ubound is used with the Lbound to determine the size of an array. Use the LBoundto find the
lower limit of an array dimension.
The default lower bound for any dimension is always 0. As a result, UBound returns the following
values for an array with these dimensions:
Dim A(100,3,4)
Statement
Return Value
UBound(A,1)
UBound(A,2)
UBound(A,3)
99
2
3
UCase
Returns a string that has been converted to uppercase.
Syntax
UCase(string)
The string argument is any valid string expression. If string contains Null, Null is returned.
Remarks
Only lowercase letters are converted to uppercase; all uppercase letters and nonletter characters
remain unchanged.
UCase Function Example
This example uses the UCase function to return an uppercase version of a string.
Dim LowerCase, UpperCase
LowerCase = "Hello World 1234"
UpperCase = UCase(LowerCase)
VarType
Description
Returns a value indicating the subtype of a variable.
Syntax
VarType(varname)
The varname argument can be any variable.
Return Values
The VarType returns the following values:
fd 56904 - daspro/winpro - 38 of 40
Constant
Value
Description
vbEmpty
vbNull
vbInteger
vbLong
vbSingle
vbDouble
vbCurrency
vbDate
vbString
vbObject
vbError
vbBoolean
vbVariant
vbDataObject
vbByte
vbArray
0
1
2
3
4
5
6
7
8
9
10
11
12
13
17
8192
Empty (uninitialized)
Null (no valid data)
Integer
Long integer
Single-precision floating-point number
Double-precision floating-point number
Currency
Date
String
Automation object
Error
Boolean
Variant (used only with arrays of Variants)
A data-access object
Byte
Array
Note These constants are specified by Visual Basic for Windows CE run time. As a result, the
names can be used anywhere in your code in place of the actual values.
Remarks
The VarTypenever returns the value for Array by itself. It is always added to some other value to
indicate an array of a particular type. The value for Variant is only returned when it has been
added to the value for Array to indicate that the argument to the VarType is an array. For example,
the value returned for an array of integers is calculated as 2 + 8192, or 8194. If an object has a
default property, VarType (object) returns the type of its default property.
VarType Function Example
This example uses the VarType function to determine the subtype of a variable.
Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69#
MyCheck = VarType(IntVar)
' Returns 2.
MyCheck = VarType(DateVar)
' Returns 7.
MyCheck = VarType(StrVar)
' Returns 8.
Weekday
Returns a whole number representing the day of the week.
Syntax
Weekday(date, [firstdayofweek])
The Weekday syntax has these arguments:
Part
Description
date
Any expression that can represent a date. If date contains Null, Null is
returned.
A constant that specifies the first day of the week. If omitted, vbSunday is
assumed.
firstdayofweek
fd 56904 - daspro/winpro - 39 of 40
Settings
The firstdayofweek argument has these settings:
Constant
Value
Description
vbUseSystem
vbSunday
vbMonday
vbTuesday
vbWednesday
vbThursday
vbFriday
vbSaturday
1
2
3
4
5
6
7
Return Values
The Weekday can return any of these values:
Constant
vbSunday
vbMonday
vbTuesday
vbWednesday
vbThursday
vbFriday
vbSaturday
Value
Description
1
2
3
4
5
6
7
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
WeekDayName
Returns a string indicating the specified day of the week.
Syntax
WeekDayName(weekday, abbreviate, firstdayofweek)
The WeekDayName syntax has these parts:
Part
Description
weekday
abbreviate
firstdayofweek
Required. The numeric designation for the day of the week. Numeric value
of each day depends on setting of the firstdayofweek setting.
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.
Optional. Numeric value indicating the first day of the week. See Settings
section for values.
fd 56904 - daspro/winpro - 40 of 40
Settings
The firstdayofweek argument can have the following values:
Constant
vbUseSystem
vbSunday
vbMonday
vbTuesday
vbWednesday
vbThursday
vbFriday
vbSaturday
Value
0
1
2
3
4
5
6
7
Description
Use National Language Support (NLS) API setting.
Sunday (default)
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Year
Returns a whole number representing the year.
Syntax
Year(date)
The date argument is any expression that can represent a date. If date contains Null, Null is
returned.
Year Function Example
This example uses the Year function to obtain the year from a specified date. In the development
environment, the date literal is displayed in short date format using the locale settings of your
code.
Dim MyDate, MyYear
MyDate = #February 12, 1969#
MyYear = Year(MyDate)
source
composed by
date
for
:
:
:
: