Abs 函数
返回参数的绝对值，其类型和参数相同。
语法
Abs(number)
必要的number参数是任何有效的数值表达式，如果number 包含 Null，则返回Null，如果number 是未初始化的变量，则返回 0。
说明
一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。
Array 函数
返回一个包含数组的 Variant。
语法
Array(arglist)
所需的arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
说明
用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As Variant
A = Array(10,20,30)
B = A(2)
使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库（例如VBA.Array )名称限定。如果是由类型库名称限定，则Array不受Option Base的影响。
注意没有作为数组声明的Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。
Asc 函数
返回一个 Integer，代表字符串中首字母的字符代码。
语法
Asc(string)
必要的string 参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。说明
在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。
注意AscB函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与Asc函数功能相同。
Atn 函数
返回一个 Double，指定一个数的反正切值。
语法
Atn(number)
必要的number参数是一个 Double或任何有效的数值表达式。
说明
Atn函数的参数值 (number) 为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。
值的范围在-pi/2 和 pi/2 弧度之间。
为了将角度转换为弧度，请将角度乘以 pi/180。为了将弧度转换为角度，请将弧度乘以 180/pi。
注意Atn是Tan 的反三角函数，Tan 的参数值为角度，返回直角三角形的两条边的比值。不要将Atn和余切函数混淆，余切函数值是正切函数值的倒数，cotangent = (1/tangent)。
CallByName 函数
执行一个对象的方法，或者设置或返回一个对象的属性。
语法
CallByName(object, procname, calltype,[args()])
CallByName函数的语法有以下命名参数：
说明
CallByName函数用于获取或者设置一个属性，或者在运行时使用一个字符串名称来调用一个方法。
在下面的例子中，第一行使用CallByName来设置一个文本框的MousePointer属性，第二行得到MousePointer属性的值，第三行调用Move方法来移动文本框：
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
类型转换函数
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
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 超过转换目标数据类型的范围，将发生错误。
通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用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 子类型。
Choose 函数
从参数列表中选择并返回一个值。
语法
Choose(index, choice-1[, choice-2, ... [, choice-n]])
Choose函数的语法具有以下几个部分：
说明
Choose 会根据index 的值来返回选择项列表中的某个值。如果index 是 1，则Choose会返回列表中的第 1 个选择项。如果index 是 2，则会返回列表中的第 2 个选择项，以此类推。
可以使用Choose 来查阅一个列表中的项目。例如，如果index 所指定的值为 3，而choice-1= "one"、choice-2 = "two"、且choice-3 = "three"，那么Choose将返回 "three"。当index 代表一选项组中的值时，则这项功能将会特别有用。
即使它只返回一个选项值，Choose 仍然会计算列表中的每个选择项。所以应该注意到这项副作用。例如，当在每个选择项表达式中使用了MsgBox函数作为其中的一部分时，每计算一个选择项，就会显示一次消息框。
当index小于 1 或大于列出的选择项数目时，Choose 函数返回 Null。
如果index不是整数，则会先四舍五入为与其最接近的整数。
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 函数相同。
注意Visual Basic for the Macintosh 不支持Unicode 字符串。因此，当n 值在128 –65,535 范围内时，ChrW(n) 不能像在Windows环境中那样返回所有的 Unicode 字符。相反地，当Unicode 的n 值大于127 时，ChrW(n) 会试图做一个“最好的猜测”。因此，在Macintosh 环境中，不能使用ChrW。
Command 函数
返回命令行的参数部分，该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。Visual Basic Command函数在 Microsoft Office 应用程序中不可用。
语法
Command
说明
当从命令行装入 Visual Basic 时，/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs 代表Command函数返回的参数信息。
VB /cmd cmdlineargs
对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，Command返回出现在命令行中应用程序名之后的任何参数。例如：
MyApp cmdlineargs
想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。
Cos 函数
返回一个Double，指定一个角的余弦值。
语法
Cos(number)
必要的number参数是一 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。
说明
Cos函数的参数为一个角，并返回直角三角形两边的比值。该比值为角的邻边长度除以斜边长度之商。
结果的取值范围在 -1 到 1 之间。
为了将角度转换成弧度，请将角度乘以 pi/180。为了将弧度转换成角度，请将弧度乘以 180/pi。
CreateObject 函数
创建并返回一个对 ActiveX 对象的引用。
语法
CreateObject(class,[servername])
参数使用.这种语法，包括以下部分：
说明
每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供Application对象，Document对象，以及Toolbar对象。
要创建 ActiveX 对象，只需将CreateObject返回的对象赋给一个对象变量：
'声明一个对象变量来存放该对象
'的引用。Dim as Object 采用后期绑定方式。
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
上述代码将启动该应用程序创建该对象，在本例中就是创建一个 Microsoft Excel 电子数据表。对象创建后，就可以在代码中使用自定义的对象变量来引用该对象。在下面的示例中，可以使用对象变量 ExcelSheet 来访问新建对象的属性和方法，以及访问 Microsoft Excel 的其它对象，包括应用程序对象和单元格集合。
'设置 Application 对象使 Excel 可见
ExcelSheet.Application.Visible = True
'在表格的第一个单元中写些文本
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
'将该表格保存到C:\test.xls 目录
ExcelSheet.SaveAs "C:\TEST.XLS"
'使用应用程序对象的 Quit 方法关闭 Excel。
ExcelSheet.Application.Quit
'释放该对象变量
Set ExcelSheet = Nothing
使用 As Object 子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行。要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类 ID。例如，可以声明并创建下列 Microsoft Excel 引用：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。
可以将CreateObject函数返回的对象传给一个参数为对象的函数。例如，下面的代码创建并传递了一个
Excel.Application 对象的引用：
Call MySub (CreateObject("Excel.Application"))
可以在一个远端连网的计算机上创建一个对象，方法是把计算机的名称传递给CreateObject的servername参数。这个名称与共享名称的机器名部份相同：对于一个共享名称为"\\MyServer\Public," 的servername参数是"MyServer" 。
注意关于使应用程序在远程网络计算机上可见的详细信息，请参阅 COM 文档 (参阅Microsoft Developer Network)。您可能必须给应用程序添加注册号。
下面的代码返回在一个名为 MyServer 的远端计算机上运行的 Excel 实例的版本号：
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version
如果远端服务器不存在或者不可用，则会发生一个运行时错误。
注意当该对象当前没有实例时，应使用CreateObject。如果该对象已有实例在运行，就会启动一个新的实例，并创建一个指定类型的对象。要使用当前实例，或要启动该应用程序并加载一个文件，可以使用GetObject函数。如果对象已登记为单个实例对象，则不管执行多少次CreateObject，都只能创建该对象的一个实例。
CurDir 函数
返回一个Variant (String)，用来代表当前的路径。
语法
CurDir[(drive)]
可选的drive参数是一个字符串表达式，它指定一个存在的驱动器。如果没有指定驱动器，或drive是零长度字符串 ("")，则CurDir会返回当前驱动器的路径。在 Macintosh上，CurDir忽略任何指定的drive ,并只简单地返回当前驱动器的路径。
CVErr 函数
返回Error 子类型的 Variant，其中包含指定的错误号。
语法
CVErr(errornumber)
必要的errornumber参数可以是任何有效的错误号代码。
说明
可以在过程中，使用CVErr 函数来创建用户自定义错误。例如，如果创建一个函数，它可以接受若干个参数，且正常返回一个字符串，则可以让函数来判断输入的参数，确认它们是在可接受的范围内。如果不是的话，此函数将不会返回所要的字符串。在这种情况下，CVErr 可以返回一个错误号，并告知应该采取的行动。
注意，Error 的隐式转换是不允许的，例如，不能直接把CVErr 的返回值赋值给一个非Variant 的变量。然而，可以对CVErr 的返回值进行显式转换（使用CInt、CDbl等等），并赋值给适当的数据类型变量。
Date 函数
返回包含系统日期的Variant (Date)。
语法
Date
说明
为了设置系统日期，请使用Date 语句。
DateAdd 函数
返回包含一个日期的Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
设置
说明
可以使用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函数语法中有下列命名参数：
设置
参数的设定值如下：
firstdayofweek 参数的设定值如下：
说明
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函数语法中有下列命名参数：
设置
参数的设定值如下：
说明
DatePart函数可以用来计算日期并返回指定的时间间隔。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。
firstdayofweek参数会影响使用时间间隔符号“W” 或“WW” 计算的结果。
如果date是日期文字，则指定的年份成为该日期的固定部分。但是，如果date用双引号 (" ") 括起来，且年份略而不提，则在每次计算date表达式时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
DateSerial 函数
返回包含指定的年、月、日的Variant (Date)。
语法
DateSerial(year, month, day)
说明
为了指定某个日期，如 1991 年 12 月 31 日，DateSerial函数中的每个参数的取值范围应该是可接受的；即，日的取值范围应在 1-31 之间，而月的取值范围应在 1-12 之间。但是，当一个数值表达式表示某日之前或其后的年、月、日数时，也可以为每个使用这个数值表达式的参数指定相对日期。
以下示例中使用了数值表达式代替绝对日期。这里，DateSerial 函数返回 1990 年 8 月 1 日的十年 (1990 - 10) 零两个月 (8 - 2) 又一天 (1 - 1) 之前的日期；换句话说，就是 1980 年 5 月 31 日。
DateSerial(1990 - 10, 8 - 2, 1 - 1)
year参数的数值若介于 0 与 29 之间，则将其解释为 2000–2029年，若介于 30 和 99 之间则解释为1930–1999年。而对所有其它year参数，则请用四位数值表示（如 1800）。
当任何一个参数的取值超出可接受的范围时，它会适时进位到下一个较大的时间单位。例如，如果指定了 35 天，则这个天数被解释成一个月加上多出来的日数，多出来的日数将由其年份与月份来决定。如果一个参数值超出 -32，768 到 32，767 的范围，就会导致错误发生。
DateValue 函数
返回一个 Variant (Date)。
语法
DateValue(date)
必要的date参数date 通常是字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日之间的一个日期。但是，date 也可以是任何表达式，其所代表的日期、时间在上述范围内。
说明
如果date是一个字符串，且其内容只有数字以及分隔数字的日期分隔符，则DateValue 就会根据系统中指定的短日期格式来识别月、日、年的顺序。DateValue也识别明确的英文月份名称，全名或缩写均可。例如，除了 12/30/1991 和 12/30/91 之外，DateValue也识别 December 30, 1991 和 Dec 30, 1991。
如果date 中略去了年这一部分，DateValue就会使用由计算机系统日期设置的当前年份。
如果date 参数包含时间信息，则DateValue 不会返回它。但是，如果date包含无效时间信息（如 89:98），则会导致错误发生。
Day 函数
返回一个Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日。
语法
Day(date)
必要的date参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果date 包含 Null，则返回Null。
DDB 函数
返回一个 Double，指定一笔资产在一特定期间内的折旧。可使用双下落收复平衡方法或其它指定的方法进行计算。语法
DDB(cost,salvage, life, period[, factor])
双下落收复平衡方法用加速利率法计算折旧。在第一段时期，折旧为最高，而在接下来的期间内降低。
life和period参数必须用相同的单位表示。例如，如果life用月份表示，则period也必须用月份表示。所有参数都必须是正值。
DDB函数使用下列公式计算在一定时期后的折旧：
折旧 / period = ((cost –alvage) * factor) / life
Dir 函数
返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
语法
Dir[(pathname[, attributes])]
设置值
注意这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。
说明
在 Microsoft Windows 中，Dir支持多字符 (*) 和单字符 (?) 的通配符来指定多重文件。
在 Macintosh 中，这些字符作为合法文件名字符并且不能作为通配符来指定多个文件
由于 Macintosh 不支持通配符，使用文件类型指定文件组。可以使用MacID函数指定文件类型而不用文件名。比如，下列语句返回当前文件夹中第一个TEXT文件的名称:
Dir("SomePath", MacID("TEXT"))
为选中文件夹中所有文件，指定一空串:
Dir("")
在 Microsoft Windows 中，如果在Dir函数中使用MacID函数，将产生错误。
任何大于256的attribute值都被认为是MacID函数的值。
在第一次调用Dir函数时，必须指定pathname，否则会产生错误。如果也指定了文件属性，那么就必须包括pathname。
Dir会返回匹配pathname的第一个文件名。若想得到其它匹配pathname的文件名，再一次调用Dir，且不要使用参数。如果已没有合乎条件的文件，则Dir会返回一个零长度字符串 ("")。一旦返回值为零长度字符串，并要再次调用Dir 时，就必须指定pathname，否则会产生错误。不必访问到所有匹配当前pathname的文件名，就可以改变到一个新的pathname 上。但是，不能以递归方式来调用Dir函数。以vbDirectory属性来调用 Dir不能连续地返回子目录。
提示由于文件名并不会以特别的次序来返回，所以可以将文件名存储在一个数组中，然后再对这个数组排序。
DoEvents 函数
转让控制权，以便让操作系统处理其它的事件。
语法
DoEvents( )
说明
DoEvents函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。
DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在SendKeys 队列中的所有键也都已送出之后，返回控制权。
DoEvents对于简化诸如允许用户取消一个已启动的过程—例如搜寻一个文件—特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。
小心确保以DoEvents放弃控制权的过程，在第一次DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用DoEvents，因为此时不能放弃控制权。
Environ 函数
返回String，它关连于一个操作系统环境变量。在 Macintosh 中不可用
语法
Environ({envstring | number})
Environ 函数的语法含有以下这些命名参数：
说明
如果在环境字符串表格中找不到envstring，则会返回一个零长度字符串 ("")。如果找到，则Environ会返回一段文本，文本是赋值给指定的envstring 的，也就是说，在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。
如果指定了number，则在环境字符串表格中相应位置上的字符串会返回。在这种情况下，Environ会返回整个文本，包括envstring。如果在指定位置上没有环境字符串，那么 Environ会返回一个零长度字符串。
EOF 函数
返回一个 Integer，它包含 Boolean 值True，表明已经到达为Random 或顺序Input打开的文件的结尾。
语法
EOF(filenumber)
必要的filenumber 参数是一个Integer，包含任何有效的文件号。
说明
使用EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。
直到到达文件的结尾，EOF函数都返回False。对于为访问Random或Binary 而打开的文件，直到最后一次执行的Get 语句无法读出完整的记录时，EOF 都返回False。
对于为访问Binary 而打开的文件，在EOF 函数返回True 之前，试图使用Input函数读出整个文件的任何尝试都会导致错误发生。在用Input函数读出二进制文件时，要用LOF 和Loc函数来替换EOF 函数，或者将Get函数与EOF函数配合使用。对于为Output 打开的文件，EOF总是返回True。
Error 函数
返回对应于已知错误号的错误信息。
语法
Error[(errornumber)]
这个可选的errornumber参数可以为任何有效的错误号。如果errornumber是有效的错误号，但尚未被定义，则Error将返回字符串“应用程序定义的错误或对象定义的错误”。如果errornumber 不是有效的错误号，则会导致错误发生。如果省略errornumber，就会返回与最近一次运行时错误对应的消息。如果没有发生运行时错误，或者errornumber是 0，则Error返回一个长度为零的字符串 ("")。
说明
请检查Err对象的属性设置，以便认定最近一次运行时错误。Error函数的返回值对应于Err 对象的Description 属性。
Exp 函数
返回Double，指定e（自然对数的底）的某次方。
语法
Exp(number)
必要的number参数number是 Double或任何有效的数值表达式。
说明
如果number的值超过 709.782712893，则会导致错误发生。常数e的值大约是 2.718282。
注意Exp函数的作用和Log的作用互补，所以有时也称做反对数。
FileAttr 函数
返回一个 Long，表示使用Open语句所打开文件的文件方式。
语法
FileAttr(filenumber, returntype)
FileAttr函数的语法具有以下几个命名参数：
当returntype参数值为 1 时，下列返回值指出文件访问方式：
FileDateTime 函数
返回一个Variant (Date)，此为一个文件被创建或最后修改后的日期和时间。
语法
FileDateTime(pathname)
必要的pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含目录或文件夹、以及驱动器。
FileLen 函数
返回一个 Long，代表一个文件的长度，单位是字节。
语法
FileLen(pathname)
必要的pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含目录或文件夹、以及驱动器。
说明
当调用FileLen函数时，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。
注意若要取得一个打开文件的长度大小，使用LOF函数。
Filter函数
描述
返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。
语法
Filter(sourcesrray, match[, include[, compare]])
Filter函数语法有如下的命名参数：
设置值
说明
如果在sourcearray中没有发现与match相匹配的值，Filter返回一个空数组。如果sourcearray是Null或不是一个一维数组，则产生错误。
Filter函数所返回的数组，其元素数目刚好是所找到的匹配项目数。
Int、Fix 函数
返回参数的整数部分。
语法
Int(number)
Fix(number)
必要的number参数是 Double 或任何有效的数值表达式。如果number 包含 Null，则返回Null。
说明
Int和Fix都会删除number的小数部份而返回剩下的整数。
Int和Fix的不同之处在于，如果number为负数，则Int 返回小于或等于number的第一个负整数，而Fix则会返回大于或等于number的第一个负整数。例如，Int将 -8.4 转换成 -9，而Fix将 -8.4 转换成 -8。
Fix(number)等于：
Sgn(number) * Int(Abs(number))
Format 函数
返回Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
设置值
参数有下面设置：
说明
然而，以Format 作用在正数上不会保留正负号空间，而以Str 的话则会。
如果要格式化一个没有本地化的数值字符串，应该使用一个用户自定义的数值格式，以保证得到需要的外观。
注意如果Calendar属性设置是Gregorian ，并且format 指定了日期格式，那么，提供的expression必须是Gregorian 。如果Visual Basic Calendar属性设置是 Hijri，则提供的的expression必须是Hijri 。
如果日历是Gregorian，则format表达式的意义没有改变。如果日历是Hijri ，则所有的日期格式符号（例如，dddd, mmmm, yyyy）有相同的意义，这些意义只应用于Hijri 日历。格式符号保持英文，用于文本显示的符号（例如，AM 和PM ）显示与该符号有关的字符串（英文或阿拉伯数字）。当日历是Hijri 时，一些符号的范围会改变。
FormatCurrency函数
描述
返回一个货币值格式的表达式，它使用系统控制面板中定义的货币符号。
语法
FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatCurrency函数语法有如下几部分：
设置值
参数的设置值如下：
说明
当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。
货币符号相对货币值的位置由计算机的区域设置值确定。
注意除起始的零外，所有设置值信息都来自“区域设置”的“货币”选项卡，起始的零来自“数字”选项卡。
FormatDateTime函数
描述
返回一个日期或时间格式的表达式。
语法
FormatDateTime(Date[,NamedFormat])
设置值
FormatNumber函数
描述
返回一个数字格式的表达式。
语法
FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
和参数的设置值如下：
当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。
注意所有设置值信息都来自“区域设置”的“数字”选项卡。
FormatPercent函数
描述
返回一个百分比格式（乘以100）的表达式，后面有%符号。
语法
FormatPercent(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatPercent函数语法有如下几部分：
设置值
参数的设置值如下：
说明
当忽略一个或多个选项参数时，被忽略的参数值由计算机的区域设置值提供。
注意所有的设置值信息都来自“区域设置”的“数字”选项卡。
FreeFile 函数
返回一个 Integer，代表下一个可供Open语句使用的文件号。
语法
FreeFile[(rangenumber)]
可选的参数rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。
说明
使用FreeFile 提供一个尚未使用的文件号。
FV 函数
返回一个 Double，指定未来的定期定额支付且利率固定的年金。
语法
FV(rate, nper, pmt[, pv[, type]])
FV函数有下列命名参数：
说明
年金是一段时间内一系列固定现金支付。年金可以是贷款（如房屋抵押贷款），也可以是一笔投资（如按月储蓄计划）。
在支付期间，必须用相同的单位来计算rate和nper参数。例如，如果rate用月份来计算，则nper也必须用月份来计算。
对所有参数，用负数表示现金支出（如储蓄存款），而用正数表示现金收入（如红利支票）。
GetAllSettings 函数
从 Windows 注册表或 (Macintosh中)应用程序初始化文件中的信息中返回应用程序项目的所有注册表项设置及其相应值（开始是由SaveSetting 产生）。
语法
GetAllSettings(appname,section)
说明
如果appname 或section 不存在，则GetAllSettings 返回未初始化的 Variant。
GetAttr 函数
返回一个Integer，此为一个文件、目录、或文件夹的属性。
语法
GetAttr(pathname)
必要的pathname参数是用来指定一个文件名的字符串表达式。pathname可以包含目录或文件夹、以及驱动器。返回值
注意这些常数是由 VBA 指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的值。
说明
若要判断是否设置了某个属性，在GetAttr函数与想要得知的属性值之间使用And运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。例如，在下面的And表达式中，如果档案 (Archive) 属性没有设置，则返回值为零：
Result = GetAttr(FName) And vbArchive
如果文件的档案属性已设置，则返回非零的数值。
GetObject 函数
返回文件中的 ActiveX 对象的引用。
语法
GetObject([pathname] [, class])
说明
使用GetObject函数可以访问文件中的 ActiveX 对象，而且可以将该对象赋给对象变量。可以使用Set语句将GetObject返回的对象赋给对象变量。例如：
Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")
当执行上述代码时，就会启动与指定的pathname相关联的应用程序，同时激活指定文件中的对象。
如果pathname是一个零长度的字符串 ("")，则GetObject返回指定类型的新的对象实例。如果省略了pathname 参数，则GetObject返回指定类型的当前活动的对象。如果当前没有指定类型的对象，就会出错。
有些应用程序允许只激活文件的一部分，其方法是在文件名后加上一个惊叹号 (!) 以及用于标识想要激活的文件部分的字符串。关于如何创建这种字符串的信息，请参阅有关应用程序创建对象的文档。
例如，在绘图应用程序中，一个存放在文件中的图可能有多层。可以使用下述代码来激活图中被称为 SCHEMA.CAD 的层：
Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")
如果不指定对象的class，则自动化会根据所提供的文件名，来确定被启动的应用程序以及被激活的对象。不过，有些文件可能不止支持一种对象类。例如，图片可能支持三种不同类型的对象：Application对象，Drawing对象，以及Toolbar对象，所有这些都是同一个文件中的一部分。为了说明要具体激活文件中的哪种对象，就应使用这个可选的class参数。例如：
Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")
在上述例子中，FIGMENT 是一个绘图应用程序的名称，而 DRAWING 则是它支持的一种对象类型。
对象被激活之后，就可以在代码中使用所定义的对象变量来引用它。在前面的例子中，可以使用对象变量 MyObject 来访问这个新对象的属性和方法。例如：
MyObject.Line 9, 90
MyObject.InsertText 9, 100, "Hello, world."
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"
注意当对象当前已有实例，或要创建已加载的文件的对象时，就使用GetObject函数。如果对象当前还没有实例，或不想启动已加载文件的对象，则应使用CreateObject函数。
如果对象已注册为单个实例的对象，则不管执行多少次CreateObject，都只能创建该对象的一个实例。若使用单个实例对象，当使用零长度字符串 ("") 语法调用时，GetObject总是返回同一个实例，而若省略pathname参数，就会出错。不能使用GetObject来获取 Visual Basic 创建的类的引用。
GetSetting 函数
从 Windows 注册表中或 (Macintosh中)应用程序初始化文件中的信息的应用程序项目返回注册表项设置值。
语法
GetSetting(appname,section,key[,default])
GetSetting 函数的语法具有下列命名参数：
说明
如果GetSetting 的参数中的任何一项都不存在，则GetSetting 返回default 的值。
Hex 函数
返回代表十六进制数值的 String。
语法
Hex(number)
必要的number参数为任何有效的数值表达式或字符串表达式。
说明
如果还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。
&H10 代表十进制的 16。
ACCESS函数.doc程序 2006-11-30 15:45:06 阅读185 评论0 字号：大中小订阅 “+”、“-”、“*”、“/”这几个符号就代表数学运算中的“加”、“减”、“乘”、“除”四种运算符号。使用“&”符号可以使两个表达式强制连接在一起，比如："数据库"&"使用指南" 将返回："数据库使用指南"，也就是将这两个字符串连接在一起，左面的字符串在前面，右面的字符串在后面。 “=”、“>”、“<”、“<>”这四个符号分别表示“等于”、“大于”、“小于”、“不等于”，它们都是用来判断某个条件是否为满足，例如：“=34 ”表示当某个值等于34时才算满足这个条件。“<>"北京" ”表示当某个值不等于字符串“北京”时才算满足了条件。 “And”、“Or”、“Not”这三个逻辑运算符是用来连接上面的这些条件表达式的。比如：“>100 And <300 ”就表示只有某个值大于100并且小于300时原能算条件满足；“>100 Or <300”则表示这个值要大于100或者小于300，实际上就是任何数都满足这个条件；“Not >100 ”这个表达式则表示只要这个值不大于100 ，这个条件就算满足了。 还有一个“Like ”，这个符号又怎么用呢？这个符号常常用在对一个字符型的值进行逻辑判断，是否这个值满足某种格式类型。所以通常“Like”并不单独使用，常常还要跟一些别的符号：“?”表示任何单一字符；“*”表示零个或多个字符；“#”表示任何一个数字；“[字符列表]”表示字符列表中的任何单一字符；“[!字符列表]”表示不在字符列表中的任何单一字符。我们一起看几个例子，Like "中国?" 则字符串“中国人”、“中国字”都满足这个条件；Like "中国*" 则字符串“中国”、“中国人”、“中国人民银行”这些都满足这个条件；Like "表＃" 则字符串“表1”、“表2”都满足这个条件；Like "[北京，上海，广州]" 则只有字符串“北京”、“上海”、“广州”可以满足条件；Like "[!北京，上海，广州]" 则只有字符串“北京”、“上海”、“广州”不能满足条件。 Asc(字符串表达式) 代表字符串中首字母的字符代码，返回一个Integer，。但是这个字符串表达式不能没有，不然会出错。 例如：Asc("A") 返回65 Asc("a") 返回97 Asc("Apple") 返回65。 Chr(字符码) 使用Chr 函数来返回指定所代表的字符。0 到31 之间的数字与标准的非打印ASCII 代码相同。字符码的正常范围为0 C 255。ChrB 函数作用于包含在String 中的字节数据。ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。ChrW 函数返回包含Unicode 的String，若在不支持Unicode 的平台上，则其功能与Chr 函数相同。 例子：Chr(65) 返回A Chr(97) 返回a。 DAvg (数值数据字段, 表或查询) 可用于计算特定记录集中（一个域）一组数的平均值； 例如：DAvg(产品单价，产品信息表) 返回“产品信息表”中的“产品单价”的平均值。 DCount(数值数据字段, 表或查询)
Access数据库VBA常用标准函数 一、算术函数 1.绝对值函数：Abs（<表达式>） 返回数值表达式的绝对值。如Abs（-3）=3 2.向下取整函数：Int（<数值表达式>） 返回数值表达式的向下取整数的结果，参数为负值时返回小于等于参数值的第一负数。 3.取整函数：Fix（<数值表达式>） 返回数位表达式的整数部分，参数为负值时返回大于等于参数值的第一负数。 例如：Int（3.25）=3，Fix（3.25）=3但Int（-3.25）= -4，Fix（-3.25）= -3 4.四舍五入函数：Round（<数值表达式>[，<表达式>]） 按照指定的小数位数进入四舍五入运算的结果。[<表达式>]是进入四舍五入运算小数点右边应保留的位数。 例如：Round（3.255，1）= 3.3；Round（3. 754，2）= 3.75；Round（3.754，0）= 4 5.开平方函数：Sqr（<数值表达式>） 计算数值表达式的平方根。例如：Sqr（9）= 3 6.产生随机数函数：Rnd（<数值表达式>） 产生一个0-1之间的随机数，为单精度类型。 例如：Int（100 * Rnd）’产生[0，99]的随机整数Int（101 * Rnd）’产生[0,100]的随机整数 7..求平均值函数Avg（） 例如：在tstud表中求小于所有学生年龄的平均值的学生<(select avg([年龄]) from tstud) 8.. 求和函数sum（） 二、字符串函数 1.字符串检索函数：InStr（[Start，]
Access常用函数 ▲日期/时间 CDate将字符串转化成为日期，如：CDate("2005/4/5")。 Date返回当前日期。 DateAdd返回包含一个日期的值，这一日期还加上了一段时间间隔。如：dateAdd("d"，30，Date())将当前日期加上30天。 其中d还可换为： yyyy年 q季 m月 y一年的日数 d日 w一周的日数 ww周 h时 n分钟 s秒 DateDiff判断两个日期之间的间隔，如：DateDiff("d"，"2006-5-1"，"2006-6-1")返回31，其中d可以换为上述的yyyy、q、m、y、d、w、ww、h、n、s等。DatePart返回日期的某个部分，如：DatePart("d"，"2006-5-1")返回1，即1号，d可以换为上述的yyyy、q、m、y、d、w、ww、h、n、s等。 Now返回当前时间(完整时间，包括年月日小时分秒) Date返回当前的系统日期 Year返回某个日期的年 Month返回某个日期的月 Day返回某个日期日 Time返回当前的系统时间 Hour返回某个日期的小时 Minute返回日期的分钟 Second返回日期的秒 Weekday返回某个日期的当前星期(星期天为1，星期一为2，星期二为3...) ▲检查 IsDate判断是否是日期，是日期返回-1，不是日期返回0 IsEmpty检测是否为空(不过经测试，不管什么情况，都返回0) IsNull检测是否为Null值，null值返回0，非null值返回-1 IsNumeric检测是否为数字，是数字返回-1，否则返回0 ▲算术 Abs绝对值 Atn返正切值。 Cos余弦值 Exp返回e的给定次幂。
1、数组的使用 Dim 数组名( [下标下界to ] 下标上界) [As 数据类型] Dim 数组名( [ 下界to ] 上界[ , …] ) [ As 数据类型] 说明：As选项缺省时，数组中各元素为变体数据类型。 下标下界的默认值为0，如果设置下标下界为非0值，则要使用to选项。 例子：Dim aa ( 5 ) As Single Dim bb ( 1 to 10 , 2 to 20 ) As String Dim cc ( 2 to 5 , 3 to 7 , 10) As Boolean Dim dd ( 3 , 1 to 4 ) 可以在模块的通用声明部分用Option Base来指定数组的默认下标下界。 Option Base 1 设置数组的下标下界为1 Option Base 0 设置数组的下标下界为默认值 2、整除 对两个操作数做除法运算并返回一个整数。 当操作数是小数时，首先被四舍五入为整型或长整型，然后再进行整除运算。 如果运算结果是小数，系统自动将其截断为整型或长整数，不再进行四舍五入处理。 3、取模 对两个操作数做除法运算并返回余数 如果操作数有小数时，则系统将其四舍五入为整数后再进行运算。 结果的正负号与被除数相同 4、& 运算符&两边的操作数可以是字符型、数值型或日期型。进行连接操作前先将数值型、日期型转换为字符型，然后再做连接运算。 5、+ 如果两边的操作数都是数字字符串，则做字符串连接运算 如果两边的操作数都是数值型，则做普通的加法运算 如果一个是数字字符串，另一个为数值型，则系统自动将数字字符串转化为数值，然后进行算术加法运算。 如果一个是非数字字符串，另一个为数值型，则出错 6、关系运算符号< > = 如果参与比较的两个操作数都是数值型，则按它们的大小进行比较。 如果参与比较的两个操作数都是字符型，则从左到右一一对应比较。 汉字字符按汉语拼音比较大小，且大于西文字符 字母不区分大小写，且大于数字 汉字字符>西文字符（大小写相同）>数字>空格 7、绝对值函数 Abs（<数值表达式>） 例题：Abs(-25/5)=5 8、向下取整 Int（<数值表达式>） 参数为负值时返回小于等于参数值的最大负数。 例题：Int(3.56)=3 Int(-3.56)=-4
Access中的常用函数 1.Count 函数 计算查询所返回的记录数 语法 Count(expr) expr 占位符代表字符串表达式，它标识的字段包含了要统计的数据，或者是使用该字段的数据执行计算的表达式。expr 中的操作数可包括表字段名或函数名（可以是固有的或者用户自定义的函数，但不能是其他 SQL 聚合函数）。可以统计包括文本在内的任何类型数据。 说明 可以使用Count来统计基本查询的记录数。例如，可以通过Count来统计已发往特定城市的定单数目。 尽管 expr 能够对字段执行计算，但是Count仅仅计算出记录的数目。记录中所存储的数值类型与计算无关。 Count函数不统计包含Null字段的记录，除非 expr 是星号 (*) 通配符。如果使用了星号通配符，Count会计算出包括包含Null字段在内的所有记录的数目。使用Count(*)方式比使用Count（[Column Name]）方式快很多。不要用单引号 (' ') 将星号括起来。下面的示例计算 Orders 表中的记录数目。 SELECT Count(*) AS TotalOrders FROM Orders; 如果 expr 标识多个字段，那么Count函数仅统计至少有一个字段为非Null值的记录。如果所有指定字段均为Null值，那么该记录不被统计在内。可以使用 & 号分隔字段名。下面的示例显示了如何将计算限于那些 ShippedDate 或 Freight 为非Null值的记录： SELECT Count('ShippedDate & Freight') AS [Not Null] FROM Orders; 可以在查询表达式中使用Count。也可以将该表达式用于QueryDef对象的SQL属性中，或者在基于 SQL 查询创建Recordset对象时使用该表达式。
作业要求：求Access、变量、函数及表达式的值。 通过立即窗口完成以下各题 1.填写命令的结果 ?7\2 结果为 3 ?7 mod 2 结果为 1 ?5/2<=10 结果为 True ?#2012-03-05# 结果为 2012-03-05 ?"VBA"&"程序设计基础" 结果为 VBA程序设计基础 ?"Access"+"数据库" 结果为 Access数据库 ?"x+y="&3+4 结果为 x+y= 7 a1＝#2009-08-01# a2=a1+35 ?a2 结果为 2012-09-05 ?a1-4 结果为 2012-07-28 2.数值处理函数 在立即窗口中输入命令结果功能 ?int(-3.25 -4 返回不大于-3.25的最 大整数 ?sqr(9 3 求平方根 ?sgn(-5 -1 返回正负1或0 ?fix(15.23515 返回15.235的整数部 分
?round(15.345,215.34 使15.345保留2位小 数 ?abs(-5 5 取绝对值 3.常用字符函数 在立即窗口中输入命令结果功能 ?InStr("ABCD","CD" 3 在字符串”ABCD”中找” ＣＤ”的位置 c="Beijing 赋值 University" ?Mid(c,4,3 jin 从字符串c的第四位开 始取三位 ?Left(c,7Beijing从字符串c的左边开始 取7位数 ?Right(c,10 University从字符串c的右边开始 取10位数 ?Len(c１８字符串c的长度 d=" BA "赋值 ?"V"+Trim(d+"程序"VBA程序删除字符串d两端的空 格
Access函数大全 ▲日期/时间 CDate 将字符串转化成为日期 select CDate("2005/4/5") Date 返回当前日期 DateAdd 将指定日期加上某个日期select dateAdd("d",30,Date())将当前日期加上30 天, 其中d可以换为yyyy或H等 DateDiff 判断两个日期之间的间隔select DateDiff("d","2006-5-1","2006-6-1")返回 31,其中d可以换为yyyy,m,H等 DatePart 返回日期的某个部分select DatePart("d","2006-5-1")返回1,即1号，d也可 以换为yyyy（年）或q（季），m（月），d（日），w（工作日），ww（周）， h（时），n（分），s（秒） Day 返回日期的d部分,等同于datepart的d部分 Dateserial(年，月，日) 组合年月日构造日期 Hour 返回日期的小时 IsDate 判断是否是日期,是日期返回-1,不是日期返回0 Minute 返回日期的分钟部分 Month 返回日期的月份部分 Now 返回当前时间(完整时间，包括年月日小时分秒) Second 返回日期的秒部分 Time 返回当前的时间部分(即除去年/月/日的部分) Weekday 返回某个日期的当前星期(星期天为1,星期一为2,星期二为3...)，例如select weekday(now()); Year 返回某个日期的年份 ▲检查 IsEmpty 检测是否为空 IsNull 检测是否为Null值，null值返回0，非null值返回-1 IsNumeric 检测是否为数字,是数字返回-1，否则返回0
一、算术函数 算术函数完成数学计算功能。主要包括以下算术函数： 1.绝对值函数：Abs（<表达式>） 返回数值表达式的绝对值。如Abs（-3）=3 2.向下取整函数：Int（<数值表达式>） 返回数值表达式的向下取整数的结果，参数为负值时返回小于等于参数值的第一负数。 3.取整函数：Fix（<数值表达式>） 返回数位表达式的整数部分，参数为负值时返回大于等于参数值的第一负数。 Int和Fix函数当参数为正值时，结果相同；当参数为负时结果可能不同。Int返回小于等于参数值的第一个负数，而Fix返回大于等于参数值的第一负数。 例如：Int（3.25）=3，Fix（3.25）=3但Int（-3.25）=-4，Fix（-3.25）=-3 4.四舍五入函数：Round（<数值表达式>[，<表达式>]） 按照指定的小数位数进入四舍五入运算的结果。[<表达式>]是进入四舍五入运算小数点右边应保留的位数。 例如：Round（3.255，1）=3.3；Round（3.255，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）’产生[0，99]的随机整数 Int（101*Rnd）’产生[0,100]的随机整数 Int（100，Rnd+l）’产生[i,l00]的随机整数 Int（100+200*Rnd）’产生[100,299]的随机整数 Int（100+201*Rnd）’产生[100,300]的随机整数 二、字符串函数 1.字符串检索函数：InStr（[Start，]
选择查询 1、设有数据表“pay”（考VFP的同学请下载{
补充实验一常量、变量、常用函数与表达式[实验目标] ·正确书写不同类型的常量； ·掌握变量的赋值及使用方法； ·熟练掌握常用函数的用法； ·根据要求正确书写表达式。 [实验内容] ·常量的类型； ·变量的操作； ·常用函数； ·表达式的构建。 [实验环境] 本次实验的全部实验内容均要求在VBE的立即窗口中进行。 [方法分析与操作步骤] 1，常量 (1)数值型 ? 100 ? 1.45e3 ? 1.45e-2 (2)字符型 ? ”100” ? “a1b0c0” ? “abcd” (3)逻辑型 ? True ? False (4)日期型 ? # 06/20/12 # ? #2012/06/18# ? # 06-20-12 # ? # 2012-06-18 # ? #2012/06/18 10:32 # ? #2012/06/18 10:32 pm# 2．变量 nVar_x = 234. 5 cVar_y = “abc123” ? “nVar_ x=”, nVar_ x ? “cVar_y = “, cVar_y ? “nVar_ x=”& nVar_ x ? “cVar_y = “& cVar_y 3．函数
(l)数学函数 ①abs()； ? abs(36.9) ? abs( - 36.9) ②int()； ? int(36.9) ? int( - 36.9) ? int(36.3) ? int( - 36.3) ③fix()； ? fix(36.9) ? fix( - 36.9) ? fix(36.3) ? fix( - 36.3) ④sqr()； ? sqr(9) ? sqr(3) ? sqr(0) ? sqr( -9) ‘显示出错提示框 ⑤sin()、cos()、tan()； ? sin(60/180*3.14) ‘计算60°角的正弦值 ? cos(90/180*3.14) ‘计算90°角的余弦值 ? tan(45/180*3.14) ‘计算45°角的正切值 ⑥rnd(); ? rnd() ’产生O～l之间的随机数 ? rnd ? rnd(0) ‘产生最近生成的随机数 ? int(100*rnd) ‘产生[0，99]的随机整数 ? int(101*rnd) ‘产生[0，100]的随机整数 ? int(100*rnd+1) ‘产生[1，100]的随机整数 ? int(100 + 200*rnd) ‘产生[100，299]的随机整数 (2)字符串函数 ①Instr()； ? instr (“access”, ” e” ) ? instr ( “access” , “E” ) ? instr (1, “access” , “E” , 1) ? instr ( “access”, “s”) ? InStr (3，”aSsiAB”，”a”，1) ‘返回5（从字符S开始，检索出字符A，不区分大小写） ②len()； ? len(”南京财大”) ? len(”中文Access”) ? len(“2500”) ③left( ), right( ), mid( ) ;
access函数 梅志阶 收集整理2009.11.27 ●日期/时间函数 CDate 将字符串转化成为日期select CDate("2005/4/5") Date返回当前日期 DateAdd 将指定日期加上某个日期select dateAdd("d",30,Date())将当前日期加上30天,其中d 可以换为yyyy或H等，DateAdd(m, 1, 31-Jan-95)，上例中，DateAdd 返回1995 年 2 月28 日，而不是1995 年 2 月31 日。如果date 是1996 年 1 月31 日，则由于1996 年是闰年，返回值是1996 年 2 月29 日。 DateDiff 判断两个日期之间的间隔select DateDiff("d","2006-5-1","2006-6-1")返回31,其中d 可以换为yyyy,m,H等 DatePart 返回日期的某个部分select DatePart("d","2006-5-1")返回1,即1号，d也可以换为yyyy或m yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 Day 返回日期的d部分,等同于datepart的d部分 Hour 返回日期的小时 IsDate 判断是否是日期,是日期返回-1,不是日期返回0 Minute 返回日期的分钟部分 Month 返回日期的月份部分 Now 返回当前时间(完整时间，包括年月日小时分秒) Second 返回日期的秒部分 Time返回当前的时间部分(即除去年/月/日的部分) Weekday 返回某个日期的当前星期(星期天为1,星期一为2,星期二为 3...)，例如select weekday(now()); Year 返回某个日期的年份 ●检查 IsEmpty 检测是否为空(不过经测试，不管什么情况，都返回0) IsNull 检测是否为Null值，null值返回0，非null值返回-1 IsNumeric 检测是否为数字,是数字返回-1，否则返回0
1. 转换 所谓转换就是从一种格式转换为另一种格式，比如数字转换成字符串，字符串转换成数字等。在Access 2007的帮助中该类函数共有16个，这里只介绍一些常用的函数，其它函数的使用方法请查看联机帮助文档。 l 数字转字符串函数Str(数字) Str()函数是将一个数值转换成字符串，例：Str(9999.863)，其结果是“9999.863”，Str(-9999.863)，其结果是“-9999.863”如果含有字母，系统将出现错误。 当一数字转成字符串时，总会在前头保留一空位来表示正负。如果“数字”为正，返回的字符串包含一前导空格暗示有一正号。 可以使用Format函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。与Str不同的是，Format函数不包含前导空格来放置“数字”的正负号。 注意：Str函数只视句点(.) 为有效的小数点。如果使用不同的小数点（例如，国际性的应用程序），可使用CStr将数字转成字符串。 l 字符串转数字函数Val(字符串) Val函数是将一个数值型字符串转换成数值，例：Val(“9999.863”)，其结果是9999.863，Val函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号&O（八进制）和&H（十六进制）。空白、制表符和换行符都从参数中被去掉。 下面的例子返回值为1615198： Val(" 1615 198th Street N.E.") 在下面的代码中，Val为所示的十六进制数值返回十进制数值-1。 Val("&HFFFF") 如果字符串的首位是字母，其结果为0。 l 空值处理函数Nz(表达式) 空值处理函数Nz是专门用来处理表达式空值的，如果该表达式是值为Null时，可以使用Nz 函数返回零、零长度字符串（零长度字符串：不含字符的字符串。可以使用零长度字符串来表明您知道该字段没有值。输入零长度字符串的方法是键入两个彼此之间没有空格的双引号("")。如果表达式不为空，则原样返回。 这个函数十非常有用的，因为在Access中空值是不被处理的，比如介绍逻辑运算符时就已经有这类情况发生，表达式1 or表达式2,只要有一个为空，结果必定为空，这就会引起逻辑判断上的错误，不能真实反映其判断结果，再比如在计算两个表达式的值时，也会出现异常，假设在VBA中有下面一段程序： A=18.69 B=Null C=A+B 其结果C等于Null,这不是想要的结果，如改成C=Nz(A)+Nz(B)，其结果为18.69。 2. 日期函数 在Access 2007的帮助中该类函数共有19个，但笔者认为应该是20个，其中Day()函数归到转换函数里，也可以归到日期函数中，表示取日期数据月的天数。 l 当前系统日期函数Date() 返回当前系统的日期，在任何可以使用表达式的地方都可以使用Date函数。例如，您可以如下设置窗体上文本框的“控件来源”属性：=Date()，在窗体视图中打开窗体时，该文本框会显示当前系统日期。 l 当前系统日期和时间函数Now()
Abs 函数 返回参数的绝对值，其类型和参数相同。 语法 Abs(number) 必要的number参数是任何有效的数值表达式，如果number 包含 Null，则返回Null，如果number 是未初始化的变量，则返回 0。 说明 一个数的绝对值是将正负号去掉以后的值。例如，ABS(-1) 和 ABS(1) 都返回 1。 Array 函数 返回一个包含数组的 Variant。 语法 Array(arglist) 所需的arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 说明 用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。 Dim A As Variant A = Array(10,20,30) B = A(2) 使用Array函数创建的数组的下界受Option Base语句指定的下界的决定, 除非Array是由类型库（例如VBA.Array )名称限定。如果是由类型库名称限定，则Array不受Option Base的影响。 注意没有作为数组声明的Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。 Asc 函数 返回一个 Integer，代表字符串中首字母的字符代码。 语法 Asc(string) 必要的string 参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。说明 在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 – 32767。 注意AscB函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与Asc函数功能相同。 Atn 函数 返回一个 Double，指定一个数的反正切值。 语法 Atn(number) 必要的number参数是一个 Double或任何有效的数值表达式。 说明 Atn函数的参数值 (number) 为直角三角形两边的比值并返回以弧度为单位的角。这个比值是角的对边长度除以角的邻边长度之商。 值的范围在-pi/2 和 pi/2 弧度之间。
ACCESS高级操作 一.Access函数大全 1.1日期/时间 CDate 将字符串转化成为日期select CDate("2005/4/5") Date 返回当前日期 DateAdd 将指定日期加上某个日期select dateAdd("d",30,Date())将当前日期加上30天,其中d可以换为yyyy或H等 DateDiff 判断两个日期之间的间隔select DateDiff("d","2006-5-1","2006-6-1")返回31,其中d 可以换为yyyy,m,H等 DatePart 返回日期的某个部分select DatePart("d","2006-5-1")返回1,即1号，d也可以换为yyyy（年）或q（季），m（月），d（日），w（工作日），ww（周），h（时），n（分），s（秒）Day 返回日期的d部分,等同于datepart的d部分 Dateserial(年，月，日) 组合年月日构造日期 Hour 返回日期的小时 IsDate 判断是否是日期,是日期返回-1,不是日期返回0 Minute 返回日期的分钟部分 Month 返回日期的月份部分 Now 返回当前时间(完整时间，包括年月日小时分秒) Second 返回日期的秒部分 Time 返回当前的时间部分(即除去年/月/日的部分) Weekday 返回某个日期的当前星期(星期天为1,星期一为2,星期二为3...)，例如select weekday(now()); Year 返回某个日期的年份 1.2检查 IsEmpty 检测是否为空(不过经测试，不管什么情况，都返回0) IsNull 检测是否为Null值，null值返回0，非null值返回-1 IsNumeric 检测是否为数字,是数字返回-1，否则返回0 1.3算术 Abs 绝对值 Atn 返正切值。 Cos 余弦值 Exp 返回e 的给定次幂。
Access函数大全▲日期/时间 ▲检查 ▲算术
▲程序流程 Choose （<索引式>,<表达式1>[,<表达式2>……<表达式n>]）根据第一参数，返回后面字符串组的值,Select Choose(1,"a","b","c")返回a,将1改成2后，返回b,改成3后，返回c(第一个参数也可以是某个字段) IIF 根据表达式返回特定的值Select IIF("3>1","OK","False")，返回OK Switch(<条件表达式1>,<表达式1>[,<条件表达式2>,<表达式2>…,<条件表达式n>,<表达式n>]) 计算每个条件表达式，并返回列表中第一个条件表达式为true时与其关联的表达式的值。 ▲Sql合计（聚合）函数 Avg 取字段平均值 Count 统计记录条数 Max 取字段最大值 Min 取字段最小值 StDev 估算样本的标准差（忽略样本中的逻辑值和文本）。 StDevP 计算以参数形式（忽略逻辑值和文本）给出的整个样本总体的标准偏差。 Sum 计算字段的总合 Var 估算样本方差（忽略样本中的逻辑值和文本）。 VarP 计算整个样本总体的方差（忽略样本总体中的逻辑值和文本）。 ▲文本 Format 格式化字符串，Select Format(now(),'yyyy-mm-dd')返回类似于"2005-04-03" ,Select Format(3/9,"0.00")返回0.33 InStr 查询子串在字符串中的位置select Instr("abc","a")返回1,select Instr("abc","f")返回0 LCase 返回字符串的小写形式 UCase 将字符串转大写 Left 左截取字符串 Right 右截取字符串 Mid 取得子字符串select mid("123",1,2) as midDemo 返回12 Len 返回字符串长度 LTrim 左截取空格 RTrim 右截取空格
Access统配符、运算符与常用函数 1．*，代表任意多个任何字符。 例如：李*，通配所有第一个字符为“李”的字符串。 2．?，代表任意一个任何字符。 例如：李？，通配所有第一个字符为“李”且只有2个字符的字符串。 3．[ ]，通配方括号内的任何单个字符。 例如：淡[红绿黄]色，代表的字符串有：淡红色、淡绿色、淡黄色。 4．!，通配不在方括号内的任何单个字符。 例如：淡[!红绿黄]色，代表的字符串有：淡蓝色、淡紫色、等，中间的字不能是红、绿、黄3个字中的任何一个。。 5．-，通配指定范围内的任何字符，该范围必须是升序，通常针对英文字母。 例如：a[e-g]b，代表的字符串有：aeb、afb、agb。 6．#，代表任意一个数字字符。 例如：2##2，代表的字符串有：2112、2802、等，第一个和最后一个必须是2，中间2个可以是任何数字。 1．算术运算符:+、-、*、/，乘、除同级，加、减同级，同级运算从左到右，乘、除运算优先于加、减运算。 2．关系运算符:>、>=、<、<=、!=、==，Access系统用true或-1表示“真”，用false或0表示“假”。 3．逻辑运算符：not、and、or，运算结果是逻辑值。 4．连接运算符：+、&，用于字符连接，+号要求两边必须是字符型，连接后得到新字符串。
&号不论两边的操作数是字符串还是数字，都按字符串连起来，得到新字符串。 分外运算符 1．like，为文本字段设置查询模式，支持通配符。 如：like “李*“，Like “*红*“ 2．in，指定一个值列表作为查询的匹配条件，不支持通配符。 如：in(“张三“,“李四“,“王五“) 3．between，指定数据范围，用and连接起始数据和终止数据。 如：between 10 and 30，相当于：>=10 and <=30 4．is Null，查找为空的数据。 5．is not Null，查找非空的数据。 字符函数 1．left函数，从字符串左边取n个字符，得到左子串。 格式：left(“字符串”,n)或left(string型变量名,n) 2．right函数，从字符串右边取n个字符，得到右子串。 格式：right(“字符串”,n)或right(string型变量名,n) 3．mid函数，从字串第n1个字符开始取n2个字符，得到子字串。 格式：mid(“字符串”,n1,n2)或right(string型变量名,n1,n2) 说明：如果省略n2，则从字串第n1个字符开始一直取到最后。 1．date函数，返回系统当前日期。 格式：date()或date
ACCESS函数列表 ABS ACCRINT ACCRINTM ACOS ACOSH ADDRESS AMORDEGRC AM ORLINC AND AREAS ASC ASIN ASINH ATAN ATAN2 ATANH AVEDE V A VERAGE A VERAGE A VERAGEA BAHTTEXT BETADIST BETAINV BI NOMDIST CEILING CELL CHAR CHIDIST CHIINV CHITEST CHOOSE CLEAN CODE COLUMN COLUMNS COMBIN CONCA TENATE CONFIDEN CE CORREL COS COSH COUNT COUNT COUNTA COUNTBLANK CO UNTIF COUPDAYBS COUPDAYS COUPDAYSNC COUPNCD COUPNUM C OUPPCD COV AR CRITBINOM CUMIPMT CUMPRINC DA TE DATEV ALUE DA VERAGE DAY DAYS360 DB DCOUNT DCOUNTA DDB DEGREES DEVSQ DGET DISC DMAX DMIN DOLLARDE DOLLARFR DPRODUCT DSTDEV DSTDEVP DSUM DURATION DV AR DV ARP EDATE EFFECT EOMONTH ERROR.TYPE EVEN EXACT EXP EXPONDIST FACT FALS E FDIST FIND FINV FISHER FISHERINV FIXED FLOOR FORECAST FREQUENCY FTEST FV FVSCHEDULE GAMMADIST GAMMAINV GAMM ALN GCD GEOMEAN GETPIVOTDATA GROWTH HARMEAN HLOOKUP HOUR HYPERLINK HYPERLINK HYPGEOMDIST IF IF INDEX INDIREC T INFO INT INTERCEPT INTRA TE IPMT IRR ISBLANK ISERR ISERR OR ISEVEN ISLOGICAL ISNA ISNONTEXT ISNUMBER ISODD ISPMT ISREF ISTEXT KURT LARGE LCM LEFT LEN LENB LINEST LN L OG LOG10 LOGEST LOGINV LOGNORMDIST LOOKUP LOWER MA TCH MAX MAX MAXA MDETERM MDURA TION MEDIAN MID MIN MI NA MINUTE MINVERSE MIRR MMULT MOD MODE MONTH MROUN D MULTINOMIAL N NA NEGBINOMDIST NETWORKDAYS NOMINAL N ORMDIST NORMINV NORMSDIST NORMSINV NOT NOW NPER NPV ODD ODDFPRICE ODDFYIELD ODDLPRICE ODDL YIELD OFFSET OR P EARSON PERCENTILE PERCENTRANK PERMUT PHONETIC PI PMT PM T POISSON POWER PPMT PRICE PRICEDISC PRICEMA T PROB PROD UCT PROPER PV QUARTILE QUOTIENT RADIANS RAND RANDBETWE EN RANK RA TE RECEIVED REPLACE REPT RIGHT RMB ROMAN R OUND ROUNDDOWN ROUNDUP ROW ROWS RSQ RTD SEARCH SEC OND SECOND SERIESSUM SIGN SIN SIN SINH SKEW SLN SLOPE SMALL SQRT SQRTPI STANDARDIZE STDEV STDEV STDEV A STDE VP STDEVPA STEYX SUBSTITUTE SUBTOTAL SUM SUM SUMIF SU MIF SUMPRODUCT SUMSQ SUMX2MY2 SUMX2PY2 SUMXMY2 SYD T TAN TANH TBILLEQ TBILLPRICE TBILL YIELD TDIST TEXT TIME TIMEV ALUE TINV TODAY TRANSPOSE TREND TRIM TRIMMEAN TRU E TRUNC TTEST TYPE UPPER V ALUE V AR V ARA VARP V ARPA V DB VLOOKUP WEEKDAY WEEKNUM WEIBULL WIDECHAR WORKDAY XIRR XNPV YEAR YEARFRAC YIELD YIELDDISC YIELDMAT ZTEST