回复：函数

GetObject 函数
请参阅
CreateObject 函数
要求
版本 5
返回对文件中 Automation 对象的引用。
GetObject([pathname] [, class])
参数
Pathname
可选项。字符串，包含待检索对象的文件的完整路径和名称。如果省略 pathname 则必须有 class。
Class
可选项。字符串，对象的类。
class 参数的语法格式为 appname.objectype，其中包括以下部分：
参数
appname
必选项。字符串，提供对象的应用程序名称。
objectype
必选项。字符串，要创建的对象的类型或类。
说明
使用 GetObject 函数可以访问文件中的 Automation 对象，而且可以将该对象赋值给对象变量。使用 Set 语句将 GetObject 返回的对象赋值给对象变量。例如：
Dim CADObject
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")
在执行上述代码时，就会启动与指定路径名相关联的应用程序，同时激活指定文件中的对象。如果 pathname 是零长度字符串 ("")，GetObject 返回指定类型的新对象实例。如果省略 pathname 参数，GetObject 将返回指定类型的当前活动对象。如果没有指定类型的对象，就会出现错误。
某些应用程序允许只激活文件的一部分，方法是在文件名后加上一个惊叹号 (!) 以及用于标识要激活的文件部分的字符串。有关创建这种字符串的详细信息，请参阅创建对象的应用程序的有关文档。
例如，在绘图应用程序中，一个存放在文件中的图可能有多层。可以使用下述代码来激活图 SCHEMA.CAD 中的某一层：
Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")
如果没有指定对象的类，则 Automation 会根据所提供的文件名，确定要启动的应用程序以及要激活的对象。但是，有些文件可能支持多个对象类。例如，图可能支持三种不同类型的对象：Application 对象、Drawing 对象和 Toolbar 对象，所有这些都是同一个文件中的一部分。使用可选项的 class 参数可以指定文件中要激活的对象。例如：
Dim MyObject
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")
在上述样例中，FIGMENT 是绘图应用程序的名称，而 DRAWING 则是它支持的一种对象类型。对象被激活之后，就可以在代码中使用所定义的对象变量来引用它。在前面的例子中，可以使用对象变量 MyObject 访问新对象的属性和方法。例如：
MyObject.Line 9, 90
MyObject.InsertText 9, 100, "嗨，你好！"
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"
注意 在对象的当前实例存在，或者要用已加载的文件创建对象时，请使用 GetObject 函数。如果没有当前实例，并且不准备使用已加载的文件启动对象，请使用 CreateObject 函数。
如果对象已注册为单个实例的对象，则无论执行多少次 CreateObject，都只能创建该对象的一个实例。若使用单个实例对象，当使用零长度字符串 ("") 语法调用时，GetObject 总是返回同一个实例，而如果省略 pathname 参数，则会出现错误。

Hex 函数
请参阅
Oct 函数
要求
版本 1
返回表示十六进制数字值的字符串。
Hex(number)
number 参数是任意有效的表达式。
说明
如果 number 参数不是整数，则在进行运算前将其四舍五入为最接近的整数。
如果 number 是 Hex 返回
Null Null。
Empty 零 (0)。
其他数 最大到八位的十六进制字符。
您可以通过在数字前面添加前缀 &H 来表示十六进制数。例如，在十六进制计数法中，&H10 表示十进制数 16。
下面的示例利用 Hex 函数返回数字的十六进制数：
Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回A。
MyHex = Hex(459) ' 返回 1CB。

Hour 函数
请参阅
Day 函数 | Minute 函数 | Now 函数 | Second 函数 | Time 函数
要求
版本 1
返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。
Hour(time)
time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null。
下面的示例利用 Hour 函数得到当前时间的小时：
Dim MyTime, MyHour
MyTime = Now
MyHour = Hour(MyTime) ' MyHour 包含
' 代表当前时间的数值。

InputBox 函数
请参阅
MsgBox 函数
要求
版本 1
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。
InputBox(prompt[,
title][,default][,xpos][,ypos][,helpfile,context])
参数
prompt
字符串表达式，作为消息显示在对话框中。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 以分隔各行。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则应用程序的名称将显示在标题栏中。
Default
显示在文本框中的字符串表达式，在没有其它输入时作为默认的响应值。如果省略 default，则文本框为空。
Xpos
数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为缇）。如果省略 xpos，则对话框会在水平方向居中。
Ypos
数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为缇）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。
说明
如果同时提供了 helpfile 和 context，就会在对话框中自动添加“帮助”按钮。
如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ("")。
下面例子利用 InputBox 函数显示一输入框并且把字符串赋值给输入变量：
Dim Input
Input = InputBox("输入名字")
MsgBox ("输入：" & Input)

InStr 函数
请参阅
InstrRev 函数
要求
版本 1
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
参数
start
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare，则必须要有 start 参数。
string1
必选项。接受搜索的字符串表达式。
string2
必选项。要搜索的字符串表达式。
compare
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。
设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
返回值
InStr 函数返回以下值：
如果 InStr 返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 start
string2 为 Null Null
string2 没有找到 0
在 string1 中找到 string2 找到匹配字符串的位置
start > Len(string2) 0
说明
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 要搜索的字符串。
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' 在位置 4 进行的文本比较。返回 6。
MyPos = Instr(1, SearchString, SearchChar, 0) ' 在位置 1 进行的二进制比较。返回 9。
MyPos = Instr(SearchString, SearchChar) ' 默认情况下，进行的是二进制比较（省略了最后的参数）。返回 9。
MyPos = Instr(1, SearchString, "W") ' 在位置 1 进行的二进制比较。返回 0（找不到 "W"）。
注意 InStrB 函数使用包含在字符串中的字节数据，所以 InStrB 返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

InStrRev 函数
请参阅
Instr 函数
要求
版本 2
返回某字符串在另一个字符串中出现的从结尾计起的位置。
InStrRev(string1, string2[, start[, compare]])
参数
string1
必选项。接受搜索的字符串表达式。
string2
必选项。被搜索的字符串表达式。
Start
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，则默认值为 -1，表示从最后一个字符的位置开始搜索。如果 start 包含 Null，则出现错误
compare
可选项。在计算子字符串时，指示要使用的比较类型的数值。如果省略，将执行二进制比较。有关数值，请参阅“设置”部分。
设置
compare 参数可以有以下值：
常数 Value 描述
vbBinaryCompare 0 执行二进制比较。
vbDatabaseCompare 2 执行基于包含在数据库（在此数据库中执行比较）中的信息的比较。
返回值
InStrRev 返回以下值：
如果 InStrRev 返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 start
string2 为 Null Null
string2 没有找到 0
在 string1 中找到 string2 找到匹配字符串的位置
start > Len(string2) 0
说明
下面的示例利用 InStrRev 函数搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 要搜索的字符串。
SearchChar = "P" ' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 10, 0) ' 在位置 10 进行的二进制比较。返回 9。
MyPos = InstrRev(SearchString, SearchChar, -1, 1) ' 在最后位置进行的文本比较。返回 12。
MyPos = InstrRev(SearchString, SearchChar, 8) ' 默认情况下，进行的是二进制比较（省略最后的参数）。返回 0。
注意 InStrRev 函数的语法与 InStr 函数的语法并不一样。

Int、Fix 函数
请参阅
CInt 函数 | Round 函数
要求
版本 1
返回数字的整数部分。
Int(number)
Fix(number)
number 参数可以是任意有效的数值表达式。如果 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))
下面的示例说明 Int 和 Fix 函数如何返回数字的整数部分：
MyNumber = Int(99.8) ' 返回 99。
MyNumber = Fix(99.2) ' 返回 99。
MyNumber = Int(-99.8) ' 返回 -100。
MyNumber = Fix(-99.8) ' 返回-99。
MyNumber = Int(-99.2) ' 返回 -100。
MyNumber = Fix(-99.2) ' 返回 -99。

IsArray 函数
请参阅
IsDate 函数 | IsEmpty 函数 | IsNull 函数 | IsNumeric 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值指明某变量是否为数组。
IsArray(varname)
varname 参数可以是任意变量。
说明
如果变量是数组，IsArray 函数返回 True；否则，函数返回 False。当变量中包含有数组时，使用 IsArray 函数很有效。
下面的示例利用 IsArray 函数验证 MyVariable 是否为一数组：
Dim MyVariable
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyVariable = IsArray(MyArray) ' MyVariable 包含 "True"。

IsDate 函数
请参阅
CDate 函数 | IsArray 函数 | IsEmpty 函数 | IsNull 函数 | IsNumeric 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值指明某表达式是否可以转换为日期。
IsDate(expression)
expression 参数可以是任意可被识别为日期和时间的日期表达式或字符串表达式。
说明
如果表达式是日期或可合法地转化为有效日期，则 IsDate 函数返回 True；否则函数返回 False。在 Microsoft Windows 操作系统中，有效的日期范围公元 100 年 1 月 1 日到公元 9999 年 12 月 31 日；合法的日期范围随操作系统不同而不同。
下面的示例利用 IsDate 函数决定表达式是否能转换为日期型：
Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "October 19, 1962": YourDate = #10/19/62#: NoDate = "Hello"
MyCheck = IsDate(MyDate) ' 返回 True。
MyCheck = IsDate(YourDate) ' 返回 True。
MyCheck = IsDate(NoDate) ' 返回 False。

IsEmpty 函数
请参阅
IsArray 函数 | IsDate 函数 | IsNull 函数 | IsNumeric 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值指明变量是否已初始化。
IsEmpty(expression)
expression 参数可以是任意表达式。然而，由于 IsEmpty 用于判断一个变量是否已初始化，故 expression 参数经常是一个变量名。
说明
如果变量未初始化或显式地设置为 Empty，则函数 IsEmpty 返回 True；否则函数返回 False。如果 expression 包含一个以上的变量，总返回 False。
下面的示例利用 IsEmpty 函数决定变量是否能被初始化：
Dim MyVar, MyCheck
MyCheck = IsEmpty(MyVar) ' 返回 True。
MyVar = Null ' 赋为 Null。
MyCheck = IsEmpty(MyVar) ' 返回 False。
MyVar = Empty ' 赋为 Empty。
MyCheck = IsEmpty(MyVar) ' 返回 True。

IsNull 函数
请参阅
IsArray 函数 | IsDate 函数 | IsEmpty 函数 | IsNumeric 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值，指明表达式是否不包含任何有效数据 (Null)。
IsNull(expression)
expression 参数可以是任意表达式。
说明
如果 expression 为 Null，则 IsNull 返回 True，即表达式不包含有效数据，否则 IsNull 返回 False。如果 expression 由多个变量组成，则表达式的任何组成变量中的 Null 都会使整个表达式返回 True。
Null 值指出变量不包含有效数据。Null 与 Empty 不同，后者指出变量未经初始化。Null 与零长度字符串 ("") 也不同，零长度字符串往往指的是空串。
警告 使用 IsNull 函数可以判断表达式是否包含 Null 值。在某些情况下想使表达式取值为 True，例如 IfVar=Null 和 IfVar<>Null，但它们通常总是为 False。这是因为任何包含 Null 的表达式本身就为 Null，所以表达式的结果为 False。
下面的示例利用 IsNull 函数决定变量是否包含 Null ：
Dim MyVar, MyCheck
MyCheck = IsNull(MyVar) ' 返回 False。
MyVar = Null ' 赋为 Null。
MyCheck = IsNull(MyVar) ' 返回 True。
MyVar = Empty ' 赋为 Empty。
MyCheck = IsNull(MyVar) ' 返回 False。

IsNumeric 函数
请参阅
IsArray 函数 | IsDate 函数 | IsEmpty 函数 | IsNull 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值指明表达式的值是否为数字。
IsNumeric(expression)
expression 参数可以是任意表达式。
说明
如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。如果 expression 是日期表达式，IsNumeric 函数返回 False。
下面的示例利用 IsNumeric 函数决定变量是否可以作为数值：
Dim MyVar, MyCheck
MyVar = 53 '赋值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回True。
MyVar = "45 Help" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

IsObject 函数
请参阅
IsArray 函数 | IsDate 函数 | IsEmpty 函数 | IsNull 函数 | IsNumeric 函数 | Set 语句 | VarType 函数
要求
版本 1
返回 Boolean 值指明表达式是否引用了有效的 Automation 对象。
IsObject(expression)
expression 参数可以是任意表达式。
说明
如果 expression 是 Object 子类型变量或用户自定义的对象，则 IsObject 返回 True；否则函数返回 False。
下面的示例利用 IsObject 函数决定标识符是否代表对象变量：
Dim MyInt, MyCheck, MyObject
Set MyObject = Me
MyCheck = IsObject(MyObject) ' 返回 True。
MyCheck = IsObject(MyInt) ' 返回 False。

Join 函数
请参阅
Split 函数
要求
版本 2
返回一个字符串，此字符串由包含在数组中的许多子字符串连接创建。
Join(list[，delimiter])
参数
list
必选项。包含要连接的子字符串一维数组。
Delimiter
可选项。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。
说明
下面的示例利用 Join 函数联合 MyArray 的子字符串：
Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) 'MyString 包含 "Mr. John Doe III"。