vbMonday vbTuesday 2 3 星期一 星期二 星期三 星期四 星期五 星期六 vbWednesday 4 vbThursday 5 vbFriday 6 vbSaturday 7 firstweekofyear 参数有下面设置： 常数 vbUseSystem vbFirstJan1 vbFirstFourDays VbFirstFullWeek 说明 格式化 数字 日期和时间 日期和时间序数 字符串 如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。
作法 使用预先定义的命名数值格式或创建用户自定义数值格式。 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。 使用日期和时间格式或数值格式。 创建自定义的字符串格式。 值 0 1 2 3 说明 使用 NLS API 设置。 从包含一月一日的那一周开始（缺省）。 从本年第一周开始，而此周至少有四天在本年中。 从本年第一周开始，而此周完全在本年中。 Format 函数示例
本示例显示用 Format 函数做格式化输出的不同用法。对于日期分隔号（/），时间分隔号（:），以及 AM/ PM 等文本而言，其真正的显示格式会因计算机上的国际标准不同而有所差异。在开发阶段，日期与时间是以短日期的格式，配合代码的国际标准来显示的。而在运行时，短日期则是根据系统的国际标准而定，而系统的国际标准和代码的国际标准可能并不相同。本示例中是假设国际标准为 English/United States。
MyTime 及 MyDate 在开发环境下，使用系统的短日期设置显示出来的。 Dim MyTime, MyDate, MyStr MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系统设置的长时间格式返回当前系统时间。 MyStr = Format(Time, \
' 以系统设置的长日期格式返回当前系统日期。 MyStr = Format(Date, \
MyStr = Format(MyTime, \返回 \。
MyStr = Format(MyTime, \返回 \。
MyStr = Format(MyDate, \返回 \1993\。
' 如果没有指定格式，则返回字符串。 MyStr = Format(23) ' 返回 \。
' 用户自定义的格式。
MyStr = Format(5459.4, \。00\返回 \。 MyStr = Format(334。9, \。00\返回 \。 MyStr = Format(5, \。00%\返回 \。 MyStr = Format(\返回 \。
MyStr = Format(\返回 \。
FormatCurrency函数
描述
返回一个货币值格式的表达式，它使用系统控制面板中定义的货币符号。 语法
FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatCurrency函数语法有如下几部分： 部分 描述 必需的。要格式化的表达式。 可选的。数字值，表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。 可选的。三态常数，表示小数点前是否显示一个零。关于其值，请参阅“设置值”部分。 可选的。三态常数，表示是否把负数值放在园括号内。关于其值，请参阅“设置值”部分。 可选的。三态常数，表示是否用组分隔符对数字进行分组，组分隔符由计算机的区域设置值指定。关于其值，请参阅“设置值”部分。 Expression NumDigitsAfterDecimal IncludeLeadingDigit UseParensForNegativeNumbers GroupDigits 设置值
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits参数的设置值如下： 常数 TristateTrue TristateFalse 值 –1 0 描述 True False 使用计算机区域设置中的设置值。 TristateUseDefault –2 说明
当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。 货币符号相对货币值的位置由计算机的区域设置值确定。
注意 除起始的零外，所有设置值信息都来自“区域设置”的“货币”选项卡，起始的零来自“数字”选项卡。
FormatDateTime函数
描述
返回一个日期或时间格式的表达式。 语法
FormatDateTime(Date[,NamedFormat]) FormatDateTime函数语法有如下几部分： 部分 描述 必需的。要被格式化的日期表达式。 可选的。数字值，表示日期/时间所使用的格式。如果忽略该值，则使用vbGeneralDate。 Date NamedFormat 设置值
NamedFormat参数的设置值如下： 常数 vbGeneralDate 值 0 描述 显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。 用计算机区域设置值中指定的长日期格式显示日期。 用计算机区域设置值中指定的短日期格式显示日期。 用计算机区域设置值中指定的时间格式显示时间。 用24小时格式（hh：mm）显示时间。 vbLongDate vbShortDate vbLongTime vbShortTime 1 2 3 4
FormatNumber函数
描述
返回一个数字格式的表达式。 语法
FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) FormatNumber函数语法有如下几部分： 部分 描述 必需的。要被格式化的表达式。 可选的。数字值，表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。 可选的。三态常数，表示是否把负数值放在圆括号内。关于其值，请参阅“设置值”部分。 可选的。的三态常数，表示是否用组分隔符对数字分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。 Expression NumDigitsAfterDecimal IncludeLeadingDigit UseParensForNegativeNumbers GroupDigits 设置值
IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下： 常数 TristateTrue TristateFalse 值 –1 0 描述 True False