一、算术函数
算术函数完成数学计算功能。主要包括以下算术函数：
1.绝对值函数：Abs （） 返回数值表达式的绝对值。如 Abs（-3） =3
2.向下取整函数：Int （） 返回数值表达式的向下取整数的结果， 参数为负值时返回小于等 于参数值的第一负数。
3.取整函数：Fix （） 返回数位表达式的整数部分， 参数为负值时返回大于等于参数值 的第一负数。 Int 和 Fix 函数当参数为正值时，结果相同；当参数为负时结果 可能不同。Int 返回小于等于参数值的第一个负数，而 Fix 返回大于 等于参数值的第一负数。 例如： （3.25） Int =3， （3.25） 但 Int -3.25） -4， （-3.25） Fix =3 （ = Fix = -3
4.四舍五入函数：Round （[，]） 按照指定的小数位数进入四舍五入运算的结果。[]是进 入四舍五入运算小数点右边应保留的位数。 例如： Round （3.255， = 3.3； 1） Round .255， ； （3 2） Round （3.754， 1）= 3. 28；Round （3. 754，2）= 3.75；Round （3.754，0）= 4
5.开平方函数：Sqr （）
计算数值表达式的平方根。例如：Sqr （9）= 3
6. 产生随机数函数：Rnd （） 产生一个 0-1 之间的随机数，为单精度类型。 数值表达式参数为随机数种子，决定产生随机数的方式。如果数 值表达式值小于 0，每次产生相同的随机数；如果数值表达式值大于 0。每次产生新的随机数；如果数值表达式值等于 0，产生最近生成 的随机数，且生成的随机数序列相同；如果省略数值表达式参数，则 默认参数位大于 0。 实际操作时， 先要使用无参数的 Randomize 语句初始化随机数生 成器。以产生不同的随机数序列。 例如：Int （100 * Rnd） Int（101 * Rnd） Int（100，Rnd+l） Int（100+200 * Rnd） Int（100 +201*Rnd） ’产生[0，99]的随机整数 ’产生[0,100]的随机整数 ’产生[i,l00]的随机整数 ’产生[100, 299]的随机整数 ’产生[100 , 300]的随机整数
二、字符串函数
1. 字符串检索函数：InStr （[Start，] ， [，Compare]） 检索子字符申 Str2 在字符串 Strl 中最早出现的位置， 返回一整型 数。
Start 为可选参数，为数值式，设置检索的起始位置。如省略，从第一个字符开始检索；如包含 Null 值，发生错误。
Compare 也为可 选参数，指定字符串比较的方法。值可以为 1、2 和 0（缺省） 。指定 0（缺省）做二进制比较，指定 1 做不区分大小写的文本比较，指定 2 来做基于数据库中包含信息的比较。如值为 Null，会发生错误。
如 指定了 Compare 参数，则一定要有 Start 参数。
注意， 如果 Strl 的申长度为零， Str2 表示的申检索不到， InStr 或 则 返回 0；如果 Str2 的串长度为零，InStr 返回 Start 的值。 例如：strl =“98765” str2 =“65” s = InStr（strl ,str2） ’返回 4
s = InStr （ 3，“aSsiAB ”，“a ”，1） ’返回 5。从字符 s 开始，检 索出字符 A
2. 字符串长度检测函数：Len （或） 返回字符串所含字符数。注意，定长字符，其长度是定义时的长 度，和字符串实际值无关。 例
如：Dim str As String * 10 Dim i str = “123” i = 12 lenl = Len（“12345”） len2 = Len （12） len3 = Len （i ） ’返回 5 ’出错 ’返回 2
len4 = Len（“考试中心”） len4 = Len（str ）’返回 4 ’返回 10
3. 字符串截取函数
Left （，） ：字符串左边起截取 N 个字符。 Right（，） ：字符串右边起截取 N 个字符。 Mid（，，[N2]） ：从字符申左边第 N1 个 字符起截取 N2 个字符。 注意，对于 Left 函数和 Right 函数，如果 N 值为 0，返回零长度 字符串；如果大于等于字符串的字符数，则返回整个字符串。对于 Mid 函数，如果 N1 值大于字符申的字符数，返回零长度字符串；如 果省略 N2，返回字符串中左边起 N1 个字符开始的所有字符。
例如：strl =“opqrst ” str2 =“计算机等级考试” str = Left（ strl，
3） str = Left（ str2，4） ’返回“opq ” ’返回“计算机等”
str = Right（ strl，2） ’返回“st ” str = Right（ str2，2） ’返回“考试” str = Mid（ strl，4，2） ’返回“rs ” str = Mid（ str2，1，
3） ’返回“计算机” str = Mid（str2， 4， ’返回“等级考试” ） 4.生成空格字符函数：Space （）
返回数值表达式的值指定的空格字符数。 例如：strl = Space(3） 5.大小写转换函数 Ucase ） 将字符串中小写字母转换成大写字母。 （ ： Lcase （） :将字符串中大写字母转换成小写字毋。 例如：strl = Ucase（“fHkrYt ”） str2 = Lcase（“fHKrYt ”） 6.删除空格函数 Ltrim（） ：删除字符串的开始空格。 Rtrim（） ：删除字符串的尾部空格。 Trim（） ：删除字符串的开始和尾部空格。 例如：str = “ab cde” str1 = Ltrim（str ） str2 = Rtrim（str ） str3 = Trim （str ） ’返回“ab cde ” ’返回“ab cde ” ’返回“ab cde ” ’返回“FHKRYT ” ’返回“fhkryt ” ’返回 3 个空格字符
三、日期/时间函数 日期 时间函数
日期/时间函数的功能是处理日期和时间。主要包括以下函数：
1.获取系统日期和时间函数 Date（）：返回当前系统日期。 Time（）：返回当前系统时间。
Now（）：返回当前系统日期和时间。 例如：D = Date （） T = Time （） DT = Now （） 45：00
2.截取日期分量函数 Year（）： 返回日期表达式年份的整数。 Month （）：返回日期表达式月份的整数。 Day（）：返回日期表达式日期的整数。 Weekday （[.W]）：返回 1-7 的整数，表示星期几。 Weekday 函数中，返回的星期值见表 8.5 所示。 ’返回系统气气，如 2008-08-08 ’返回系统时间，如 9：45：00 ’返回系统日期和时间， 2008-08-08 9： 如
例如：D = #2008-8-8# YY = Year（ D） MM = Month（D ） ’返回 2008 ’返回 8
DD = Day（ D） WD = Weekday（D ）
3.截取时间分量函数
’返回 8 ’返回 6，因 2008-8-8 为星期五
Hour（）：返回时间表达式的小时数（0-23）。 Minute（）：返回时间表达式的分钟数（0-58） Second（）：返回时间表达式的秒数（0-59）。 例如：T = #10：40：11# HH = Hours （T ） MM = Minute （T ） SS = Second（T ） ’返回 10 ’返回 40 ’返回 11
4.日期/时间增加或减少一个时间间隔 DateAdd（，，）：对表达式表示 的日期按照间隔类型上或减去指定的时间间隔值。 注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见 表 8.6 所示；间隔值参数表示时间间隔的数目，数值可以为正数（得 到未来的日期）或负数（得到过去的日期）。
例如：D = #2004-2-29 10：40：11# D1 = DateAdd （＂YYYY ＂，3，D ） 11#，日期加 3 年 D2 = DateAdd （＂q ＂，1，D ） 日期加 1 季度 D3 = DateAdd （＂m ＂，-2，D ） 11#,日期减 2 月 D4 = DateAdd （＂d ＂，3 ，D ） 日期加 3 日 D5 = DateAdd （＂ww ＂，2 ，D ） ’返回#20Q4-3-14 10：40： 11 #, 日期加 2 周 D6 = DateAdd （＂n ＂，-150，D ） ’返回#2004-2-29 8：10：11#， 日期减 150 分钟 ’返回#2004-3-3 10：40：11#, ’返回#2003-12-29 10：40： ’返回#2004-5-29 10：40：11#， ’返回#2007-2-28 l0：40：
5.计算两个日期的间隔值函数 DateDiff（，，[，W1][,W2]）:返 回日期 1 和日期 2 之间按照间隔类型所指定的时间间隔数目。 注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见 表 8.6 所示。参数 W1 为可选项，是一个指定一星期的第一天是星期 几的常数，如省略，默认为 vbSunday，即周日返回 1、周一返回 2， 以此类推，其参数设定值见表 8.5 所示。参数 W2 也为可选项，是一 个指定一年的第一周的常数，如省略，默认值为 vhFirstJan 1 ，即包 含 1 月 1 日的星期一为第一周，其参数设定值见表 8.7 所示。
例如：D1 = #2003-5-28 20：8：36# D2 = #2004-2-29 10：40：11# n1 = DateDiff （＂yyyy ＂，D1，D2） n2 = DateDiff （＂q ＂，D1，D2） n3 = DateDiff （＂m ＂，D2，D1） n4 = DateDiff （＂ww ＂，D1，D2） n5 = DateDiff ＂n ＂， D2） （ D1， ， 分钟
6.返回日期指定时间部分函数 ’返回 1，间隔 1 年 ’返回 3，间隔 3 季度 ’返回-9，间隔 9 月 ’返回 40，间隔 40 周 ’返回 398312， 间隔 398312 DatePart（，，[，W1][,W2]）:返回 日期中按照间隔类型 所指定的时间部分值。 注意，间隔类型参数表示时间间隔，为一个字符串。其设定值见 表 8.6 所示。参数 W1 为可选项，是一个指定一星期的第一天是星期 几的常数，如省略，默认为 vbSunday,即周日返回 1、周一返回 2，以 此类推，其参数设定值见表 8.5 所示。参数 W2 也为可选项，是一个 指定一年的第一周的常数，如省略，默认值为，vbFirstJan1，即包含 1 月 1 日的星期为第一周，其参数设定值见表 8.7 所示。 例如：D = #2004-2-29 10：40：11# n1 = DatePart （＂yyyy ＂，D ） n2 = DatePart （＂d ＂，D ） n3 = DatePart （＂ww ＂，D ）
7.返回包含指定年月日的日期函数 DateSerial（表达式 1，表达式 2，表达式 3）：返回由表达式 1 值为年、表达式 2 值为月、表达式 3 值为日而组成的日期值。 注意，每个参数的取值范围应该是可接受的；即日的取值范围应 在 1-31 之间，而月的取值范围应在 1-12 之间。此外，当任何一个参 数的取值超出可接受的范围时， 它会适时进位到下一个较大的时间单 位。例如，如果指定
了 35 天，则这个天数被解释成一个月加上多出 来的日数，多出来的日数将由其年份与月份来决定。 ’返回 2004 ’返回 29 ’返回 10
例如：D = DateSerial （2008，2，29），返回#2008-2-29# D = DateSerial （ 2008-l，8 -2，0），返回##2008-5-31# 四、类型转换函数
类型转换函数的功能是将数据类型转换成指定数据类型。例如， 窗体文本框中显示的数值数据为字符串型， 要想作为数值处理就应进 行数据类型转换。
8.8 中已经列出了“C-”开头的一些类型转换函数。 表 下面再介绍另外一些类型转换函数。
1.字符串转换字符代码函数：Asc （） 返回字符申首字符的 ASCII 值。例如：s = Asc（＂abcdef ＂） ， 返回 97
2.字符代码转换字符函数：Chr （） 返回与字符代码相关的字符。 例如： = Chr 70） 返回 f； = Chr s （ ， s （13） ，返回回车符
3.数字转换成字符串函数：Str （） 将数值表达式值转换成字符串。注意，当一数字转成字符串时， 总会在前头保留一空格来表示正负。表达式值为正，返回的字符串包 含一前导空格表示有一正好。 例如：s = Str （99） s = Str（-6） ’返回“99”，有一前导空格 ’返回“-6”
4.字符串转换成数字函数：Val （） 将数字字符串转换成数值型数字。注意，数字串转换时可自动将
字符串中的空格、制表符和换行符去掉，当遇到它不能识别为数字的 第一个字符时，停止读入字符串。 例如：s = Val （＂＂） s = Val （＂＂） s = Val （＂＂） ’返回 16 ’返回 345 ’返回 76
5.字符串转换日期函数：DateValue （） 将字符串转换为日期值。例如：D = DateValue（＂February 29， 2004＂） ，返回#2004- 2-29#
6.Nz 函数：Nz （表达式或字段属性值[，规定值」 ） 当一个表达式或字段属性值为 Null 时，函数可返回 0、零长度字 符申（＂＂）或其他指定位。例如，可以使用该函数将 Null 值转换 为其他值。 当省略“规定值”参数时，如果“表达式或字段属性值”为数值型且 值为 Null, Nz 函数返回 0；如果“表达式或字段属性值”为字符型且值 为 Null, Nz 函数返回空字符申（＂＂） 。当“规定值”参数存在时，该 参数能够返回一个除 0 或零长度字符申以外的其他值。 程序流程 Choose 根据第一参数，返回后面字符串组的 值,Choose(1,"a","b","c")返回 a,将 1 改成 2 后，返回 b,改成 3 后，返 回 c(第一个参数也可以是某个字段) IIF 根据表达式返回特定的值 IIF("3>1","OK","False")，返回 OK (4) Switch()函数
该函数可用于多条件选择操作。 调用格式为： Switch (条件式 1,表达式 1[, 条件式 2, 表达式 2]„[, 条件式 n, 表达式 n]) 功能：函数分别根据“条件式 1”、 “条件式 2”直至 “条件式 n” 的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回 第一个条件式为 True 的对应“表达式”的值。 若函数中条件式与表达式不配对，则发生运行错误；若有多 个条件式为真(True)，函数返回为真的第一个条件式后的“表达式”的 值。 例如: y=switch(x0,sqr(x)) (7) DCount()函数 Dcount 函数用于返回指定记录集中的记录数。 语法格式为： DCount(表达式, 记录集
[, 条件式]) 参数说明： 表达式：用于标识要统计其记录数的字段。 记录集：字符串表达式，可以是表的名称或查询的名 称。 条件式：可选的字符串表达式，用于限制 DCount 函 数执行的数据范围。等价于 SQL 表达式中的 WHERE 子句，
只是
不含 WHERE 关键字。如果忽略条件式，DCount 函数在整个记录 集内计算。
(8) DAvg()函数 DAvg 函数用于计算指定记录集中某个字段列数据的平均 值。可以在 VBA 代码、宏、查询表达式或计算控件中使用。 语法格式为： DAvg(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●包含 Null 值的记录不能在平均值的计算中使用。 ●在查询的“准则”行中可以使用 DAvg 函数来指定准 则。 (9) DSum()函数 DSum 函数用于计算指定记录集中某个字段列数据的总和。 语法格式为： DSum(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●如果没有记录满足“条件式”参数或者记录集中不包 含任何记录，DSum 函数将返回 Null。 ●在查询的“准则”行、查询中的计算字段表达式中或 更新查询的“更新到”行中均可以使用 DSum 函数指定准则。
●可以在总计查询的计算字段表达式中使用 DSum 或 Sum 函数。 (10) DLookup()函数 DLookup 函数用于从指定记录集检索特定字段的值。 语法格式为： DLookup(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●DLookup 函数将基于表达式中指定的信息返回单 个字段的值。 ●如果没有满足条件的记录， 或者记录集中没有记录， DLookup 函数将返回 Null。 ●如果有多个字段满足条件式， DLookup 函数将返回 第一个匹配字段所对应的检索字段值。
1
一、算术函数
算术函数完成数学计算功能。主要包括以下算术函数：
1.绝对值函数：Abs （） 返回数值表达式的绝对值。如 Abs（-3） =3
2.向下取整函数：Int （） 返回数值表达式的向下取整数的结果， 参数为负值时返回小于等 于参数值的第一负数。
3.取整函数：Fix （） 返回数位表达式的整数部分， 参数为负值时返回大于等于参数值 的第一负数。 Int 和 Fix 函数当参数为正值时，结果相同；当参数为负时结果 可能不同。Int 返回小于等于参数值的第一个负数，而 Fix 返回大于 等于参数值的第一负数。 例如： （3.25） Int =3， （3.25） 但 Int -3.25） -4， （-3.25） Fix =3 （ = Fix = -3
4.四舍五入函数：Round （[，]） 按照指定的小数位数进入四舍五入运算的结果。[]是进 入四舍五入运算小数点右边应保留的位数。 例如： Round （3.255， = 3.3； 1） Round .255， ； （3 2） Round （3.754， 1）= 3. 28；Round （3. 754，2）= 3.75；Round （3.754，0）= 4
5.开平方函数：Sqr （）
计算数值表达式的平方根。例如：Sqr （9）= 3
6. 产生随机数函数：Rnd （） 产生一个 0-1 之间的随机数，为单精度类型。 数值表达式参数为随机数种子，决定产生随机数的方式。如果数 值表达式值小于 0，每次产生相同的随机数；如果数值表达式值大于 0。每次产生新的随机数；如果数值表达式值等于 0，产生最近生成 的随机数，且生成的随机数序列相同；如果省略数值表达式参数，则 默认参数位大于 0。 实际操作时， 先要使用无参数的 Randomize 语句初始化随机数生 成器。以产生不同的随机数序列。 例如：Int （100 * Rnd） Int（101 * Rnd） Int（100，Rnd+l） Int（100+200 * Rnd） Int（100 +201*Rnd） ’产生[0，99]的随机整数 ’产生[0,100]的随机整数 ’产生[i,l00]的随机整数 ’产生[100, 299]的随机整数 ’产生[100 , 300]的随机整数
二、字符串函数
1. 字符串检索函数：InStr （[Start，] ， [，Compare]） 检索子字符申 Str2 在字符串 Strl 中最早出现的位置， 返回一整型 数。
Start 为可选参数，为数值式，设置检索的起始位置。如省略，从第一个字符开始检索；如包含 Null 值，发生错误。
Compare 也为可 选参数，指定字符串比较的方法。值可以为 1、2 和 0（缺省） 。指定 0（缺省）做二进制比较，指定 1 做不区分大小写的文本比较，指定 2 来做基于数据库中包含信息的比较。如值为 Null，会发生错误。
如 指定了 Compare 参数，则一定要有 Start 参数。
注意， 如果 Strl 的申长度为零， Str2 表示的申检索不到， InStr 或 则 返回 0；如果 Str2 的串长度为零，InStr 返回 Start 的值。 例如：strl =“98765” str2 =“65” s = InStr（strl ,str2） ’返回 4
s = InStr （ 3，“aSsiAB ”，“a ”，1） ’返回 5。从字符 s 开始，检 索出字符 A
2. 字符串长度检测函数：Len （或） 返回字符串所含字符数。注意，定长字符，其长度是定义时的长 度，和字符串实际值无关。 例
如：Dim str As String * 10 Dim i str = “123” i = 12 lenl = Len（“12345”） len2 = Len （12） len3 = Len （i ） ’返回 5 ’出错 ’返回 2
len4 = Len（“考试中心”） len4 = Len（str ）’返回 4 ’返回 10
3. 字符串截取函数
Left （，） ：字符串左边起截取 N 个字符。 Right（，） ：字符串右边起截取 N 个字符。 Mid（，，[N2]） ：从字符申左边第 N1 个 字符起截取 N2 个字符。 注意，对于 Left 函数和 Right 函数，如果 N 值为 0，返回零长度 字符串；如果大于等于字符串的字符数，则返回整个字符串。对于 Mid 函数，如果 N1 值大于字符申的字符数，返回零长度字符串；如 果省略 N2，返回字符串中左边起 N1 个字符开始的所有字符。
例如：strl =“opqrst ” str2 =“计算机等级考试” str = Left（ strl，
3） str = Left（ str2，4） ’返回“opq ” ’返回“计算机等”
str = Right（ strl，2） ’返回“st ” str = Right（ str2，2） ’返回“考试” str = Mid（ strl，4，2） ’返回“rs ” str = Mid（ str2，1，
3） ’返回“计算机” str = Mid（str2， 4， ’返回“等级考试” ） 4.生成空格字符函数：Space （）
返回数值表达式的值指定的空格字符数。 例如：strl = Space(3） 5.大小写转换函数 Ucase ） 将字符串中小写字母转换成大写字母。 （ ： Lcase （） :将字符串中大写字母转换成小写字毋。 例如：strl = Ucase（“fHkrYt ”） str2 = Lcase（“fHKrYt ”） 6.删除空格函数 Ltrim（） ：删除字符串的开始空格。 Rtrim（） ：删除字符串的尾部空格。 Trim（） ：删除字符串的开始和尾部空格。 例如：str = “ab cde” str1 = Ltrim（str ） str2 = Rtrim（str ） str3 = Trim （str ） ’返回“ab cde ” ’返回“ab cde ” ’返回“ab cde ” ’返回“FHKRYT ” ’返回“fhkryt ” ’返回 3 个空格字符
三、日期/时间函数 日期 时间函数
日期/时间函数的功能是处理日期和时间。主要包括以下函数：
1.获取系统日期和时间函数 Date（）：返回当前系统日期。 Time（）：返回当前系统时间。
Now（）：返回当前系统日期和时间。 例如：D = Date （） T = Time （） DT = Now （） 45：00
2.截取日期分量函数 Year（）： 返回日期表达式年份的整数。 Month （）：返回日期表达式月份的整数。 Day（）：返回日期表达式日期的整数。 Weekday （[.W]）：返回 1-7 的整数，表示星期几。 Weekday 函数中，返回的星期值见表 8.5 所示。 ’返回系统气气，如 2008-08-08 ’返回系统时间，如 9：45：00 ’返回系统日期和时间， 2008-08-08 9： 如
例如：D = #2008-8-8# YY = Year（ D） MM = Month（D ） ’返回 2008 ’返回 8
DD = Day（ D） WD = Weekday（D ）
3.截取时间分量函数
’返回 8 ’返回 6，因 2008-8-8 为星期五
Hour（）：返回时间表达式的小时数（0-23）。 Minute（）：返回时间表达式的分钟数（0-58） Second（）：返回时间表达式的秒数（0-59）。 例如：T = #10：40：11# HH = Hours （T ） MM = Minute （T ） SS = Second（T ） ’返回 10 ’返回 40 ’返回 11
4.日期/时间增加或减少一个时间间隔 DateAdd（，，）：对表达式表示 的日期按照间隔类型上或减去指定的时间间隔值。 注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见 表 8.6 所示；间隔值参数表示时间间隔的数目，数值可以为正数（得 到未来的日期）或负数（得到过去的日期）。
例如：D = #2004-2-29 10：40：11# D1 = DateAdd （＂YYYY ＂，3，D ） 11#，日期加 3 年 D2 = DateAdd （＂q ＂，1，D ） 日期加 1 季度 D3 = DateAdd （＂m ＂，-2，D ） 11#,日期减 2 月 D4 = DateAdd （＂d ＂，3 ，D ） 日期加 3 日 D5 = DateAdd （＂ww ＂，2 ，D ） ’返回#20Q4-3-14 10：40： 11 #, 日期加 2 周 D6 = DateAdd （＂n ＂，-150，D ） ’返回#2004-2-29 8：10：11#， 日期减 150 分钟 ’返回#2004-3-3 10：40：11#, ’返回#2003-12-29 10：40： ’返回#2004-5-29 10：40：11#， ’返回#2007-2-28 l0：40：
5.计算两个日期的间隔值函数 DateDiff（，，[，W1][,W2]）:返 回日期 1 和日期 2 之间按照间隔类型所指定的时间间隔数目。 注意，间隔类型参数表示时间间隔，为一个字符串，其设定值见 表 8.6 所示。参数 W1 为可选项，是一个指定一星期的第一天是星期 几的常数，如省略，默认为 vbSunday，即周日返回 1、周一返回 2， 以此类推，其参数设定值见表 8.5 所示。参数 W2 也为可选项，是一 个指定一年的第一周的常数，如省略，默认值为 vhFirstJan 1 ，即包 含 1 月 1 日的星期一为第一周，其参数设定值见表 8.7 所示。
例如：D1 = #2003-5-28 20：8：36# D2 = #2004-2-29 10：40：11# n1 = DateDiff （＂yyyy ＂，D1，D2） n2 = DateDiff （＂q ＂，D1，D2） n3 = DateDiff （＂m ＂，D2，D1） n4 = DateDiff （＂ww ＂，D1，D2） n5 = DateDiff ＂n ＂， D2） （ D1， ， 分钟
6.返回日期指定时间部分函数 ’返回 1，间隔 1 年 ’返回 3，间隔 3 季度 ’返回-9，间隔 9 月 ’返回 40，间隔 40 周 ’返回 398312， 间隔 398312 DatePart（，，[，W1][,W2]）:返回 日期中按照间隔类型 所指定的时间部分值。 注意，间隔类型参数表示时间间隔，为一个字符串。其设定值见 表 8.6 所示。参数 W1 为可选项，是一个指定一星期的第一天是星期 几的常数，如省略，默认为 vbSunday,即周日返回 1、周一返回 2，以 此类推，其参数设定值见表 8.5 所示。参数 W2 也为可选项，是一个 指定一年的第一周的常数，如省略，默认值为，vbFirstJan1，即包含 1 月 1 日的星期为第一周，其参数设定值见表 8.7 所示。 例如：D = #2004-2-29 10：40：11# n1 = DatePart （＂yyyy ＂，D ） n2 = DatePart （＂d ＂，D ） n3 = DatePart （＂ww ＂，D ）
7.返回包含指定年月日的日期函数 DateSerial（表达式 1，表达式 2，表达式 3）：返回由表达式 1 值为年、表达式 2 值为月、表达式 3 值为日而组成的日期值。 注意，每个参数的取值范围应该是可接受的；即日的取值范围应 在 1-31 之间，而月的取值范围应在 1-12 之间。此外，当任何一个参 数的取值超出可接受的范围时， 它会适时进位到下一个较大的时间单 位。例如，如果指定
了 35 天，则这个天数被解释成一个月加上多出 来的日数，多出来的日数将由其年份与月份来决定。 ’返回 2004 ’返回 29 ’返回 10
例如：D = DateSerial （2008，2，29），返回#2008-2-29# D = DateSerial （ 2008-l，8 -2，0），返回##2008-5-31# 四、类型转换函数
类型转换函数的功能是将数据类型转换成指定数据类型。例如， 窗体文本框中显示的数值数据为字符串型， 要想作为数值处理就应进 行数据类型转换。
8.8 中已经列出了“C-”开头的一些类型转换函数。 表 下面再介绍另外一些类型转换函数。
1.字符串转换字符代码函数：Asc （） 返回字符申首字符的 ASCII 值。例如：s = Asc（＂abcdef ＂） ， 返回 97
2.字符代码转换字符函数：Chr （） 返回与字符代码相关的字符。 例如： = Chr 70） 返回 f； = Chr s （ ， s （13） ，返回回车符
3.数字转换成字符串函数：Str （） 将数值表达式值转换成字符串。注意，当一数字转成字符串时， 总会在前头保留一空格来表示正负。表达式值为正，返回的字符串包 含一前导空格表示有一正好。 例如：s = Str （99） s = Str（-6） ’返回“99”，有一前导空格 ’返回“-6”
4.字符串转换成数字函数：Val （） 将数字字符串转换成数值型数字。注意，数字串转换时可自动将
字符串中的空格、制表符和换行符去掉，当遇到它不能识别为数字的 第一个字符时，停止读入字符串。 例如：s = Val （＂＂） s = Val （＂＂） s = Val （＂＂） ’返回 16 ’返回 345 ’返回 76
5.字符串转换日期函数：DateValue （） 将字符串转换为日期值。例如：D = DateValue（＂February 29， 2004＂） ，返回#2004- 2-29#
6.Nz 函数：Nz （表达式或字段属性值[，规定值」 ） 当一个表达式或字段属性值为 Null 时，函数可返回 0、零长度字 符申（＂＂）或其他指定位。例如，可以使用该函数将 Null 值转换 为其他值。 当省略“规定值”参数时，如果“表达式或字段属性值”为数值型且 值为 Null, Nz 函数返回 0；如果“表达式或字段属性值”为字符型且值 为 Null, Nz 函数返回空字符申（＂＂） 。当“规定值”参数存在时，该 参数能够返回一个除 0 或零长度字符申以外的其他值。 程序流程 Choose 根据第一参数，返回后面字符串组的 值,Choose(1,"a","b","c")返回 a,将 1 改成 2 后，返回 b,改成 3 后，返 回 c(第一个参数也可以是某个字段) IIF 根据表达式返回特定的值 IIF("3>1","OK","False")，返回 OK (4) Switch()函数
该函数可用于多条件选择操作。 调用格式为： Switch (条件式 1,表达式 1[, 条件式 2, 表达式 2]„[, 条件式 n, 表达式 n]) 功能：函数分别根据“条件式 1”、 “条件式 2”直至 “条件式 n” 的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回 第一个条件式为 True 的对应“表达式”的值。 若函数中条件式与表达式不配对，则发生运行错误；若有多 个条件式为真(True)，函数返回为真的第一个条件式后的“表达式”的 值。 例如: y=switch(x0,sqr(x)) (7) DCount()函数 Dcount 函数用于返回指定记录集中的记录数。 语法格式为： DCount(表达式, 记录集
[, 条件式]) 参数说明： 表达式：用于标识要统计其记录数的字段。 记录集：字符串表达式，可以是表的名称或查询的名 称。 条件式：可选的字符串表达式，用于限制 DCount 函 数执行的数据范围。等价于 SQL 表达式中的 WHERE 子句，
只是
不含 WHERE 关键字。如果忽略条件式，DCount 函数在整个记录 集内计算。
(8) DAvg()函数 DAvg 函数用于计算指定记录集中某个字段列数据的平均 值。可以在 VBA 代码、宏、查询表达式或计算控件中使用。 语法格式为： DAvg(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●包含 Null 值的记录不能在平均值的计算中使用。 ●在查询的“准则”行中可以使用 DAvg 函数来指定准 则。 (9) DSum()函数 DSum 函数用于计算指定记录集中某个字段列数据的总和。 语法格式为： DSum(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●如果没有记录满足“条件式”参数或者记录集中不包 含任何记录，DSum 函数将返回 Null。 ●在查询的“准则”行、查询中的计算字段表达式中或 更新查询的“更新到”行中均可以使用 DSum 函数指定准则。
●可以在总计查询的计算字段表达式中使用 DSum 或 Sum 函数。 (10) DLookup()函数 DLookup 函数用于从指定记录集检索特定字段的值。 语法格式为： DLookup(表达式, 记录集[, 条件式]) 参数说明：(同 Dcount() 函数参数) 。 使用说明： ●DLookup 函数将基于表达式中指定的信息返回单 个字段的值。 ●如果没有满足条件的记录， 或者记录集中没有记录， DLookup 函数将返回 Null。 ●如果有多个字段满足条件式， DLookup 函数将返回 第一个匹配字段所对应的检索字段值。
1