VB函数手册

VB常用函数手册 版本1.0 Table of Contents TOC \o "1-3" \h \z \u Chr 函数 4 Abs 函数 4 InStr 函数 4 InStrRev函数 5 Replace函数 6 LCase 函数 8 UCase 函数 8 Len 函数 8 Left 函数 9 Mid 函数 10 Right 函数 10 LTrim、RTrim与 Trim 函数 11 Abs 函数 11 FormatNumber函数 11 FormatPercent函数 12 LBound 函数 13 UBound 函数 14 Rnd 函数 15 Round函数 16 Year 函数 16 Month 函数 16 Day 函数 17 Hour 函数 17 Minute 函数 17 Second 函数 18 Weekday 函数 18 WeekdayName函数 19 Date 函数 20 Time 函数 20 Now 函数 20 DateAdd 函数 20 DateDiff 函数 22 DatePart 函数 24 FormatDateTime函数 25 类型转换函数 26 Format 函数 28 IIf 函数 29 IsArray 函数 30 IsDate 函数 30 IsEmpty 函数 30 IsNull 函数 31 IsNumeric 函数 31 IsObject 函数 32 Split函数 32 Val 函数 33 InputBox 函数 34 MsgBox 函数 35 Chr 函数 返回 String，其中包含有与指定的字符代码相关的字符 。 语法 Chr(charcode) 必要的 charcode 参数是一个用来识别某字符的 Long。 说明 0 到 31 之间的数字与标准的非打印 ASCII 代码相同。例如，Chr(10) 可以返回换行字符。charcode 的正常范围为 0 – 255。然而，在 DBCS 系统，charcode 的实际范围为 -32768 到 65535。 注意   ChrB 函数作用于包含在 String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含 Unicode 的 String，若在不支持 Unicode 的平台上，则其功能与 Chr 函数相同。 Abs 函数 返回参数的绝对值，其类型和参数相同。 语法 Abs(number) 必要的 number 参数是任何有效的数值达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 说明 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 InStr 函数 返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。 语法 InStr([start, ]string1, string2[, compare]) InStr 函数的语法具有下面的参数： 部分 说明 start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。 string1 必要参数。接受搜索的字符串表达式。 string2 必要参数。被搜索的字符串表达式。 Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。 设置 compare 参数设置为： 常数 值 描述 vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。 vbBinaryCompare 0 执行一个二进制比较。 vbTextCompare 1 执行一个按照原文的比较。 vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。 返回值 如果 InStr返回 string1 为零长度 0 string1 为 Null Null string2 为零长度 Start string2 为 Null Null string2 找不到 0 在 string1 中找到string2 找到的位置 start > string2 0 说明 InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。 InStrRev函数 描述 返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。 语法 InstrRev(string1, string2[, start[, compare]]) InstrRev函数语法有如下几部分： 部分 描述 string1 必需的。要执行搜索的字符串表达式。 string2 必需的。要搜索的字符串表达式。 start 可选的。数值表达式，设置每次搜索的开始位置。如果忽略，则使用–1，它表示从上一个字符位置开始搜索。如果start包含 Null，则产生一个错误。 compare 可选的。数字值，指出在判断子字符串时所使用的比较方法。如果忽略，则执行二进制比较。关于其值，请参阅“设置值”部分。 设置值 compare参数值如下： 常数 值 描述 vbUseCompareOption –1 用Option Compare语句的设置值来执行比较。 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文字比较。 vbDatabaseCompare 2 只用于Microsoft Access。基于您的数据库信息执行比较。 返回值 InStrRev返回值如下： 如果 InStrRev返回 string1长度为零。 0 string1为Null。 Null string2长度为零 Start string2为Null Null string2没有找到。 0 string2在string1中找到。 找到匹配字符串的位置。 start > Len(string2) 0 说明 请注意，InstrRev函数的语法和Instr函数的语法不相同。 Replace函数 描述 返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。 语法 Replace(expression, find, replacewith[, start[, count[, compare]]]) Replace函数语法有如下几部分： 部分 描述 expression 必需的。字符串表达式，包含要替换的子字符串。 find 必需的。要搜索到的子字符串。 replacewith 必需的。用来替换的子字符串。 start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。 count 可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。 compare 可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。 设置值 compare参数的设置值如下： 常数 值 描述 vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文字比较。 vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 返回值 Replace的返回值如下： 如果 Replace返回值 expression长度为零 零长度字符串("")。 expression为Null 一个错误。 find长度为零 expression的复本。 replacewith长度为零 expression的复本，其中删除了所有出现的find 的字符串。 start > Len(expression) 长度为零的字符串。 count is 0 expression.的复本。 说明 Replace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。 LCase 函数 返回转成小写的 String。 语法 LCase(string) 必要的 string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。 说明 只有大写的字母会转成小写；所有小写字母和非字母字符保持不变。 UCase 函数 返回 Variant (String)，其中包含转成大写的字符串。 语法 UCase(string) 必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。 说明 只有小写的字母会转成大写；原本大写或非字母之字符保持不变。 Len 函数 返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。 语法 Len(string | varname) Len 函数的语法有下面这些部分： 部分 说明 string 任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。 Varname 任何有效的变量名称。如果 varname 包含 Null，会返回 Null。如果 varname 是 Variant，Len 会视其为 String 并且总是返回其包含的字符数。 说明 两个可能的参数必须有其一（而且只能有其一）。如为用户定义类型，Len 会返回其写至文件的大小。 注意   LenB 函数作用于字符串中的字节数据，如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。 注意 当在用户自定义数据类型中使用变长字符串时，Len 可能不能确定实际存储所需的字节数目。 Left 函数 返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。 语法 Left(string, length) Left 函数的语法有下面的命名参数： 部分 说明 string 必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。 length 必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。 说明 欲知 string 的字符数，使用 Len 函数。 注意 LeftB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是要返回的字符数。 Mid 函数 返回 Variant (String)，其中包含字符串中指定数量的字符。 语法 Mid(string, start[, length]) Mid 函数的语法具有下面的命名参数： 部分 说明 string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 说明 欲知 string 的字符数，可用 Len 函数。 注意   MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。 Right 函数 返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。 语法 Right(string, length) Right 函数的语法具有下面的命名参数： 部分 说明 string 必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。 length 必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。 说明 欲知 string 的字符数，用 Len 函数。 注意 RightB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是指定返回的字符数。 LTrim、RTrim与 Trim 函数 返回 Variant (String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。 语法 LTrim(string) RTrim(string) Trim(string) 必要的 string 参数可以是任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。 Abs 函数 返回参数的绝对值，其类型和参数相同。 语法 Abs(number) 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。 说明 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 FormatNumber函数 描述 返回一个数字格式的表达式。 语法 FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) FormatNumber函数语法有如下几部分： 部分 描述 Expression 必需的。要被格式化的表达式。 NumDigitsAfterDecimal 可选的。数字值，表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。 IncludeLeadingDigit 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。 UseParensForNegativeNumbers 可选的。三态常数，表示是否把负数值放在圆括号内。关于其值，请参阅“设置值”部分。 GroupDigits 可选的。的三态常数，表示是否用组分隔符对数字分组，组分隔符在计算机的区域设置值中指定。关于其值，请参阅“设置值”部分。 设置值 IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下： 常数 值 描述 TristateTrue –1 True TristateFalse 0 False TristateUseDefault –2 用计算机区域设置值中的设置值。 说明 当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。 注意   所有设置值信息都来自“区域设置”的“数字”选项卡。 FormatPercent函数 描述 返回一个百分比格式（乘以100）的表达式，后面有%符号。 语法 FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]) FormatPercent函数语法有如下几部分： 部分 描述 Expression 必需的。要格式化的表达式。 NumDigitsAfterDecimal 可选的。表示小数点右边的显示位数。缺省值为–1，表示使用计算机的区域设置值。 IncludeLeadingDigit 可选的。三态常数，表示小数点前是否显示零。关于其值，请参阅“设置值”部分。 UseParensForNegativeNumbers 可选的。三态常数，表示是否把负数放在圆括号内。关于其值，请参阅“设置值”部分。 GroupDigits 设置值 IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下： 常数 值 描述 TristateTrue –1 True TristateFalse 0 False TristateUseDefault –2 使用计算机区域设置值中的设置值。 说明 当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。 注意   所有的设置值信息都来自“区域设置”的“数字”选项卡。 LBound 函数 返回一个 Long 型数据，其值为指定数组维可用的最小下标。 语法 LBound(arrayname[, dimension]) LBound 函数的语法包含下面部分： 部分 描述 arrayname 必需的。数组变量的名称，遵循标准的变量命名约定。 dimension 可选的；Variant (Long)。指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略 dimension，就认为是 1。 说明 LBound 函数与 UBound 函数一起使用，用来确定一个数组的大小。UBound 用来确定数组某一维的上界。 对具有下述维数的数组而言，LBound 的返回值见下表： Dim A(1 To 100, 0 To 3, -3 To 4) 语句 返回值 LBound(A, 1) 1 LBound(A, 2) 0 LBound(A, 3) -3 所有维的缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。 对于那些在 Dim 中用 To 子句来设定维数的数组而言，Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。 UBound 函数 返回一个 Long 型数据，其值为指定的数组维可用的最大下标。 语法 UBound(arrayname[, dimension]) UBound 函数的语法包含下面部分： 部分 描述 arrayname dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。 说明 UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。 对具有下述维数的数组而言，UBound 的返回值见下表： Dim A(1 To 100, 0 To 3, -3 To 4) 语句 返回值 UBound(A, 1) 100 UBound(A, 2) 3 UBound(A, 3) 4 Rnd 函数 返回一个包含随机数值的 Single。 语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。 返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。 大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 说明 Rnd 函数返回小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的方式。 对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。 为了生成某个范围内的随机整数，可使用以下公式： Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。 Round函数 描述 返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 语法 Round(expression [,numdecimalplaces]) Round函数语法有如下几部分： 部分 描述 expression 必需的。要进行四舍五入运算的数值表达式。 numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。 Year 函数 返回 Variant (Integer)，包含表示年份的整数。 语法 Year(date) 必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 Month 函数 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。 语法 Month(date) 必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 Day 函数 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日。 语法 Day(date) 必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 Hour 函数 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。 语法 Hour(time) 必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。 Minute 函数 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。 语法 Minute(time) 必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。 Second 函数 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。 语法 Second(time) 必要的 time 参数，可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。 Weekday 函数 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。 语法 Weekday(date, [firstdayofweek]) Weekday 函数语法有下列的命名参数： 部分 描述 date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。 Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。 设置 firstdayofweek 参数有以下设定值： 常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 VbSunday 1 星期日（缺省值） vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 返回值 Weekday 函数可以返回以下诸值： 常数 值 描述 vbSunday 1 星期日 vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 WeekdayName函数 描述 返回一个字符串，表示一星期中的某天。 语法 WeekdayName(weekday, abbreviate, firstdayofweek) WeekdayName函数语法有如下几部分： 部分 描述 weekday 必需的。数字值，表示一星期中的某天。该数字值要依赖于firstdayofweek设置中的设置值来决定。 abbreviate 可选的。Boolean值，表示星期的名称是否被缩写。如果忽略该值，缺省值为False，表明星期的名称不能被缩写。 firstdayofweek 可选的。数字值，表示一星期中第一天。关于其值，请参阅“设置值”部分。 设置值 firstdayofweek参数值如下： 常数 值 描述 vbUseSystem 0 使用本国语言支持 (NLS) API设置值。 vbSunday 1 星期日（缺省）。 vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 Date 函数 返回包含系统日期的 Variant (Date)。 语法 Date 说明 为了设置系统日期，请使用 Date 语句。 Time 函数 返回一个指明当前系统时间的 Variant (Date)。 语法 Time 说明 为了设置系统时间，请使用 Time 语句。 Now 函数 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。 语法 Now DateAdd 函数 返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。 语法 DateAdd(interval, number, date) DateAdd 函数语法中有下列命名参数： 部分 描述 interval 必要。字符串表达式，是所要加上去的时间间隔。 number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。 设置 interval 参数具有以下设定值： 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 说明 可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。 为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。 DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月： DateAdd(m, 1, 31-Jan-95) 上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。 如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。 如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。 注意   DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。 DateDiff 函数 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。 语法 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) DateDiff 函数语法中有下列命名参数： 部分 描述 interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。 Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。 firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。 设置 interval 参数的设定值如下： 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 firstdayofweek 参数的设定值如下： 常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 vbSunday 1 星期日（缺省值） vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 常数 值 描述 vbUseSystem 0 用 NLS API 设置。 vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。 vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。 vbFirstFullWeek 3 从第一个无跨年度的星期开始。 说明 DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。 为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。 如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。 firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。 如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。 在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。 DatePart 函数 返回一个包含已知日期的指定时间部分的 Variant (Integer)。 语法 DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) DatePart 函数语法中有下列命名参数： 部分 描述 interval 必要。字符串表达式，是要返回的时间间隔。 date 必要。要计算的 Variant (Date) 值。 Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。 firstweekofyear 可选。指定一年第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。 设置 interval 参数的设定值如下： 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 firstdayofweek 参数的设定值如下： 常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 vbSunday 1 星期日（缺省值） vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 firstweekofyear 参数的设定值如下： 常数 值 描述 vbUseSystem 0 使用 NLS API 设置。 vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。 vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。 vbFirstFullWeek 3 从第一个无跨年度的星期开始。 说明 DatePart 函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。 firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。 如果 date 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date 用双引号 (" ") 括起来，且年份略而不提，则在每次计算 date 表达式时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。 FormatDateTime函数 描述 返回一个日期或时间格式的表达式。 语法 FormatDateTime(Date[,NamedFormat]) FormatDateTime函数语法有如下几部分： 部分 描述 Date 必需的。要被格式化的日期表达式。 NamedFormat 可选的。数字值，表示日期/时间所使用的格式。如果忽略该值，则使用vbGeneralDate。 设置值 NamedFormat参数的设置值如下： 常数 值 描述 vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。 vbLongDate 1 用计算机区域设置值中指定的长日期格式显示日期。 vbShortDate 2 用计算机区域设置值中指定的短日期格式显示日期。 vbLongTime 3 用计算机区域设置值中指定的时间格式显示时间。 vbShortTime 4 用24小时格式（hh：mm）显示时间。 类型转换函数 每个函数都可以强制将一个表达式转换成某种特定数据类型。 语法 CBool(expression) CByte(expression) CCur(expression) CDate(expression) CDbl(expression) CDec(expression) CInt(expression) CLng(expression) CSng(expression) CStr(expression) CVar(expression) CStr(expression) 必要的 expression 参数可以是任何字符串表达式或数值表达式。 返回类型 函数名称决定返回类型，如下所示： 函数 返回类型 expression 参数范围 CBool Boolean 任何有效的字符串或数值表达式。 CByte Byte 0 至 255。 CCur Currency -922,337,203,685,477.5808 至922,337,203,685,477.5807。 CDate Date 任何有效的日期表达式。 CDbl Double 负数从 -1.79769313486232E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至 1.79769313486232E308。 CDec Decimal 零变比数值，即无小数位数值，为 +/-79,228,162,514,264,337,593,543,950,335。对于 28 位小数的数值，范围则为 +/-7.9228162514264337593543950335；最小的可能非零值是 0.0000000000000000000000000001。 CInt Integer -32,768 至 32,767，小数部分四舍五入。 CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。 CSng Single 负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。 CStr String 依据 expression 参数返回 Cstr。 CVar Variant 若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。 说明 如果传递给函数的 expression 超过转换目标数据类型的范围，将发生错误。 通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用 CCur 来强制执行货币运算。 应该使用数据类型转换函数来代替 Val，以使国际版的数据转换可以从一种数据类型转换为另一种。例如，当使用 Ccur 时，不同的小数点分隔符、千分位分隔符和各种货币选项，依据系统的国别设置都会被妥善识别。 当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。Cint 和 CLng 函数不同于 Fix 和 Int 函数，Fix 和 Int 函数会将小数部分截断而不是四舍五入。并且 Fix 和 Int 函数总是返回与传入的数据类型相同的值。 使用 IsDate 函数，可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字，以及落入可接受的日期范围内的数值。当转换一个数字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。 CDate 依据系统上的国别设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。另外，长日期格式，若包含有星期的字符串，也不能被识别。 CVDate 函数也提供对早期 Visual Basic 版本的兼容性。CVDate 函数的语法与 CDate 函数是完全相同的，不过，CVDate 是返回一个 Variant，它的子类型是 Date，而不是实际的 Date 类型。因为现在已有真正的 Date 类型，所以 CVDate 也不再需要了。转换一个表达式成为 Date，再赋值给一个 Variant，也可以达到同样的效果。也可以使用这种技巧将其他真正的数据类型转换为对等的 Variant 子类型。 注意 CDec 函数不能返回独立的数据类型，而总是返回一个 Variant，它的值已经被转换为 Decimal 子类型。 Format 函数 返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。 语法 Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Format 函数的语法具有下面几个部分： 部分 说明 expression 必要参数。任何有效的表达式。 format 可选参数。有效的命名表达式或用户自定义格式表达式。 firstdayofweek 可选参数。常数，表示一星期的第一天。 firstweekofyear 可选参数。常数，表示一年的第一周。 设置值 firstdayofweek 参数有下面设置： 常数 值 说明 vbUseSystem 0 使用 NLS API 设置。 VbSunday 1 星期日（缺省） vbMonday 2 星期一 vbTuesday 3 星期二 vbWednesday 4 星期三 vbThursday 5 星期四 vbFriday 6 星期五 vbSaturday 7 星期六 firstweekofyear 参数有下面设置： 常数 值 说明 vbUseSystem 0 使用 NLS API 设置。 vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。 vbFirstFourDays 2 从本年第一周开始，而此周至少有四天在本年中。 VbFirstFullWeek 3 从本年第一周开始，而此周完全在本年中。 说明 格式化 作法 数字 使用预先定义的命名数值格式或创建用户自定义数值格式。 日期和时间 使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。 日期和时间序数 使用日期和时间格式或数值格式。 字符串 创建自定义的字符串格式。 如果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能，尽管它是国际化的。然而，以 Format 作用在正数上不会保留正负号空间，而以 Str 的话则会。 IIf 函数 根据表达式的值，来返回两部分中的其中一个。 语法 IIf(expr, truepart, falsepart) IIf 函数的语法含有下面这些命名参数： 部分 描述 expr 必要参数。用来判断真伪的表达式。 truepart 必要参数。如果 expr 为 True，则返回这部分的值或表达式。 falsepart 必要参数。如果 expr 为 False，则返回这部分的值或表达式。 说明 由于 IIf 会计算 truepart 和 falsepart，虽然它只返回其中的一个。因此要注意到这个副作用。例如，如果 falsepart 产生一个被零除错误，那么程序就会发生错误，即使 expr 为 True。 IsArray 函数 返回 Boolean 值，指出变量是否为一个数组。 语法 IsArray(varname) 必要的 varname 参数是一个指定变量的标识符。 说明 如果变量是数组，则 IsArray 返回 True；否则返回 False。对于包含数组的 variant 表达式来说，IsArray 尤为有用。 IsDate 函数 返回 Boolean 值，指出一个表达式是否可以转换成日期。 语法 IsDate(expression) 必要的 expression 参数是一个 Variant，包含日期表达式或字符串表达式，这里的字符串表达式是可以作为日期或时间来认定的。 说明 如果表达式是一个日期，或可以作为有效日期识别，则 IsDate 返回 True；否则返回 False。在 Microsoft Windows 中，有效日期的范围介于公元 100 年 1 月 1 日与公元 9999 年 12 月 31 日之间；其有效范围随操作系统不同而不同。 IsEmpty 函数 返回 Boolean 值，指出变量是否已经初始化。 语法 IsEmpty(expression) 必要的 expression 参数是一个 Variant，包含一个数值或字符串表达式。但是，因为 IsEmpty 被用来确定个别变量是否已初始化，所以 expression 参数通常是单一变量名。 说明 如果变量未初始化或已明确设置为 Empty，则 IsEmpty 返回 True；否则返回 False。如果 expression 含有多个变量，则 IsEmpty 总是返回 False。IsEmpty 只返回对 variant 表达式有意义的信息。 IsNull 函数 返回 Boolean 值，指出表达式是否不包含任何有效数据 (Null)。 语法 IsNull(expression) 必要的 expression 参数是一个 Variant，其中包含数值表达式或字符串表达式。 说明 如果 expression 为 Null，则 IsNull 返回 True；否则 IsNull 返回 False。如果 expression 由多个变量组成，则表达式的任何作为变量组成成分的 Null 都会使整个表达式返回 True。 Null 值指出 Variant 不包含有效数据。Null 与 Empty 不同，后者指出变量尚未初始化。Null 与长度为零的字符串 (““) 也不同，长度为零的字符串指的是空串。 重要 使用 IsNull 函数是为了确定表达式是否包含 Null 值的。在某些情况下，希望表达式取值为 True，比如希望 If Var = Null 和 If Var <> Null 取值为 True，而它们总取值为 False。这是因为任何包含 Null 的表达式本身就是 Null，所以为 False。 IsNumeric 函数 返回 Boolean 值，指出表达式的运算结果是否为数。 语法 IsNumeric(expression) 必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。 说明 如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。 如果 expression 是日期表达式，则 IsNumeric 返回 False。 IsObject 函数 返回 Boolean 值，指出标识符是否表示对象变量。 语法 IsObject(identifier) 必要的 identifier 参数是一个变量名。 说明 IsObject 只用于确定 Variant 是否属于 VarType vbObject。如果 Variant 实际引用（或曾经引用过）一个对象，或者如果 Variant 包含 Nothing，则可能出现这种情况。 如果 identifier 是 Object类型或任何有效的类类型，或者，如果 identifier 是 VarType vbObject 的 Variant 或用户自定义的对象，则 IsObject 返回 True；否则返回 False。即使变量已设置成 Nothing，IsObject 也仍返回 True。 使用错误捕获方法可以确认对象引用是否有效。 Split函数 描述 返回一个下标从零开始的一维数组，它包含指定数目的子字符串。 语法 Split(expression[, delimiter[, count[, compare]]]) Split函数语法有如下几部分： 部分 描述 expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 设置值 compare参数的设置值如下： 常数 值