Computer Programming Concepts and Visual Basic David I. Schneider

62 Computer Programming Concepts and Visual Basic
last = Right(nom, Len(nom) - n)
picResults.Print “Your first name is ”; first
picResults.Print “Your last name has”; Len(last); “letters.”
End Sub
[Run, type John Doe into the text box, and then click the command button.]
■ FORMAT FUNCTIONS
The Format functions are used to display numbers and dates in familiar forms and to right-justify
numbers. Here are some examples of how numbers are converted to strings with Format
functions.
Function String Value
FormatNumber(12345.628, 1) 12,345.6
FormatCurrency(12345.628, 2) $12,345.63
FormatPercent(.185, 2) 18.50%
The value of FormatNumber(n, r) is the string containing the number n rounded to r decimal
places and displayed with commas every three digits to the left of the decimal point. The
value of FormatCurrency(n, r) is the string consisting of a dollar sign followed by the value
of FormatNumber(n, r). FormatCurrency uses the accountant’s convention of using surrounding
parentheses to denote negative amounts. The value of FormatPercent(n, r) is the
string consisting of the number n displayed as a percent and rounded to r decimal places.
With all three functions, r can be omitted. If so, the number is rounded to 2 decimal
places. Strings corresponding to numbers less than 1 in magnitude have a zero to the left of
the decimal point. Also, n can be a either a number, a numeric expression, or even a string
corresponding to a number.
Function String Value
FormatNumber(1 + Sqr(2), 3) 2.414
FormatCurrency(-1000) ($1,000.00)
FormatPercent(“.005”) 0.50%
If dateString represents a date in a form such as “7-4-1999”, “7-4-99”, or “7/4/99”, then
the value of FormatDateTime(dateString, vbLongDate) is a string giving the date as Sunday,
July 04, 1999.
Function String Value
FormatDateTime(“9-15-99”, vbLongDate) Wednesday, September 15, 1999
FormatDateTime(“10-23-00”, vbLongDate) Monday, October 23, 2000
The value of Format(expr, “@@ . . . @”), where “@@ . . . @” is a string of n “at” symbols,
is the string consisting of the value of expr right-justified in a field of n spaces. This
function is used with fixed-width fonts, such as Courier or Terminal, to display columns of
numbers so that the decimal points and commas are lined up or to display right-justified lists
of words. The following examples use a string of 10 “at” symbols.
Function String Value
Format(1234567890, “@@@@@@@@@@”) 1234567890
Format(FormatNumber(1234.5), “@@@@@@@@@@”) 1,234.50
Format(FormatNumber(12345.67), “@@@@@@@@@@”) 12,345.67
Format(FormatCurrency(13580.17), “@@@@@@@@@@”) $13,580.17