Hour 函数
描述
返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。
语法
Hour(time)
time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null。
下面的示例利用 Hour 函数得到当前时间的小时:
Dim MyTime, MyHour
MyTime = Now
MyHour = Hour(MyTime) ' MyHour 包含代表当前时间的数值。
==============================================================================
InputBox 函数
描述
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。
语法
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
InputBox 函数的语法有以下参数：
参数 描述
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 函数
描述
返回某字符串在另一字符串中第一次出现的位置。
语法
InStr([start, ]string1, string2[, compare])
InStr 函数的语法有以下参数：
参数 描述
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" ' 搜索 "P"。
'文本比较从第四个字符开始返回 6。
MyPos = Instr(4, SearchString, SearchChar, 1)
'二进制比较从第1个字符开始返回 9。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省为二进制比较(最后一个参数省略)。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
' 二进制比较从第1个字符开始返回 0 (没有找到 "W")。
MyPos = Instr(1, SearchString, "W")
==============================================================================
InStrRev 函数
描述
返回某字符串在另一个字符串中出现的从结尾计起的位置。
语法
InStrRev(string1, string2[, start[, compare]])
InStrRev 函数的语法有以下参数：
参数 描述
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" ' 搜索 "P"。
'二进制比较从第10个字符开始。返回 9。
MyPos = InstrRev(SearchString, SearchChar, 10, 0)
'文本比较从最后一个字符开始。返回 12。
MyPos = InstrRev(SearchString, SearchChar, -1, 1)
' 缺省为二进制比较(最后一个参数省略)。返回 0。
MyPos = InstrRev(SearchString, SearchChar, 8)
==============================================================================
IsArray 函数
描述
返回 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 函数
描述
返回 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 函数
描述
返回 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 函数
描述
返回 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 函数
描述
返回 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 函数
描述
返回 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 函数
描述
返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建。
语法
Join(list[，delimiter])
Join 函数的语法有以下参数：
参数 描述
list 必选。包含要联接的子字符串一维数组。
delimiter 可选。在返回字符串中用于分隔子字符串的字符。如果省略，将使用空字符 ("")。 如果 delimiter 是零长度字符串，则在同一列表中列出全部项，没有分界符。
Remarks
下面的示例利用 Join 函数联合 MyArray 的子字符串:
Dim MyString
Dim MyArray(4)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) 'MyString 包含 "Mr. John Doe III"。
==============================================================================
LBound 函数
描述
返回指定数组维的最小可用下标。
语法
LBound(arrayname[, dimension])
LBound 函数的语法有以下参数：
参数 描述
arrayname 数组变量名，遵循标准变量命名约定。
dimension 指明要返回哪一维下界的整数。使用 1 表示第一维，2 表示第二维，以此类推。如果省略 dimension 参数，默认值为 1。
说明
LBound 函数与 UBound 函数共同使用以确定数组的大小。使用 UBound 函数可以找到数组某一维的上界。
任一维的下界都是 0。
==============================================================================
LCase 函数
描述
返回字符串的小写形式。
语法
LCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。
说明
仅大写字母转换成小写字母；所有小写字母和非字母字符保持不变。
下面的示例利用 LCase 函数把大写字母转换为小写字母:
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。
==============================================================================
Left 函数
描述
返回指定数目的从字符串的左边算起的字符。
语法
Left(string, length)
Left 函数的语法有以下参数：
参数 描述
string 字符串表达式，其最左边的字符被返回。如果 string 参数中包含 Null，则返回 Null。
length 数值表达式，指明要返回的字符数目。如果是 0，返回零长度字符串 ("")；如果大于或等于 string 参数中的字符总数，则返回整个字符串。
说明
可使用 Len 函数确定 string 参数中的字符数目。
下面的示例利用Left 函数返回MyString 的左边三个字母:
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS"。
==============================================================================
Len 函数
描述
返回字符串内字符的数目，或是存储一变量所需的字节数。
语法
Len(string | varname)
Len 函数语法有以下参数：
参数 描述
string 任意有效的字符串表达式。如果 string 参数包含 Null，则返回 Null。
varname 任意有效的变量名。如果 varname 参数包含 Null，则返回 Null。
说明
下面的示例利用 Len 函数返回字符串中的字符数目:
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8。
==============================================================================
LoadPicture 函数
描述
返回图片对象。
语法
LoadPicture(picturename)
picturename 参数是字符串表达式，该表达式指明了要装入的图片文件的名称。
说明
可以由 LoadPicture 识别的图形格式有位图文件 (.bmp)、图标文件 (.ico)、行程编码文件 (.rle)、图元文件 (.wmf)、增强型图元文件 (.emf)、GIF (.gif) 文件和 JPEG (.jpg) 文件。
==============================================================================
Log 函数
描述
返回数值的自然对数。
语法
Log(number)
number 参数是任意大于 0 的有效数值表达式。
说明
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。
用 n 的自然对数除 x 的自然对数，可以得到以 n 为底的 x 的对数。如下所示：
Logn(x) = Log(x) / Log(n)
以下示例为一个自定义的 Function 过程，该过程计算以 10 为底的对数：
Log10(X) 函数
Log10 = Log(X) / Log(10)
End Function
==============================================================================
LTrim、RTrim 和 Trim 函数
描述
返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。
语法
LTrim(string)
RTrim(string)
Trim(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。
说明
下面的示例利用 LTrim, RTrim, and Trim 函数分别去除前导空格，末尾空格，前导空格和末尾空格都去除:
Dim MyVar
MyVar = LTrim(" vbscript ") 'MyVar 包含 "vbscript "。
MyVar = RTrim(" vbscript ") 'MyVar 包含 " vbscript"。
MyVar = Trim(" vbscript ") 'MyVar 包含"vbscript"。
==============================================================================
Mid 函数
描述
从字符串中返回指定数目的字符。
语法
Mid(string, start[, length])
Mid 函数的语法有以下参数：
参数 描述
string 字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。
start string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。
length 要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。
说明
要判断 string 中字符的数目，可使用 Len 函数。
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符:
Dim MyVar
MyVar = Mid("VB Script is fun!", 4, 6) 'MyVar 包含 "Script"。
==============================================================================
Minute 函数
描述
返回 0 到 59 之间的一个整数（包括 0 和59），代表一小时内的某一分钟。
语法
Minute(time)
time 参数是任意可以代表时间的表达式。如果 time 参数包含 Null，则返回 Null。
说明
下面的示例利用 Minute 函数返回小时的分钟数:
Dim MyVar
MyVar = Minute(Now)
==============================================================================
Month 函数
描述
返回 1 到 12 之间的一个整数（包括 1 和 12），代表一年中的某月。
语法
Month(date)
date 参数是任意可以代表日期的表达式。如果 date 参数中包含 Null，则返回 Null。
说明
下面的示例利用 Month 函数返回当前月:
Dim MyVar
MyVar = Month(Now) ' MyVar 包含当前月对应的数字。
==============================================================================
MonthName 函数
描述
返回表明指定月份的字符串。
语法
MonthName(month[, abbreviate])
MonthName 函数的语法有以下参数：
参数 描述
month 必选。月份的数值定义。例如，一月是 1，二月是 2，以此类推。
abbreviate 可选。Boolean 值，表明月份名称是否简写。如果省略，默认值为 False，即不简写月份名称。
说明
下面的示例利用MonthName 函数为日期表达式返回月份的缩写:
Dim MyVar
MyVar = MonthName(10, True) ' MyVar 包含 "Oct"。
==============================================================================
MsgBox 函数
描述
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。
语法
MsgBox(prompt[, buttons][, title][, helpfile, context])
MsgBox 函数的语法有以下参数：
参数 描述
prompt 作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
buttons 数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。
title 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。
helpfile 字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。
context 数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。
设置
buttons 参数可以有以下值：
常数 值 描述
vbOKOnly 0 只显示确定按钮。
vbOKCancel 1 显示确定和取消按钮。
vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。
vbYesNoCancel 3 显示是、否和取消按钮。
vbYesNo 4 显示是和否按钮。
vbRetryCancel 5 显示重试和取消按钮。
vbCritical 16 显示临界信息图标。
vbQuestion 32 显示警告查询图标。
vbExclamation 48 显示警告消息图标。
vbInformation 64 显示信息消息图标。
vbDefaultButton1 0 第一个按钮为默认按钮。
vbDefaultButton2 256 第二个按钮为默认按钮。
vbDefaultButton3 512 第三个按钮为默认按钮。
vbDefaultButton4 768 第四个按钮为默认按钮。
vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。
vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。
第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
返回值
MsgBox 函数有以下返回值：
常数 值 按钮
vbOK 1 确定
vbCancel 2 取消
vbAbort 3 放弃
vbRetry 4 重试
vbIgnore 5 忽略
vbYes 6 是
vbNo 7 否
说明
如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。
如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。
下面的示例利用MsgBox 函数显示一信息框并且返回值说明了按下的是那一个按钮:
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox 例子") ' MyVar 包含 either 1 or 2，
'依赖于被按下的按钮。
==============================================================================
Now 函数
描述
根据计算机系统设定的日期和时间返回当前的日期和时间值。
语法
Now
说明
下面的示例利用 Now 函数返回当前的日期和时间:
Dim MyVar
MyVar = Now ' MyVar 包含当前的日期和时间。
==============================================================================
Oct 函数
描述
返回表示数字八进制值的字符串。
语法
Oct(number)
number 参数是任意有效的表达式。
说明
如果 number 参数不是整数，则在进行运算前，将其四舍五入到最接近的整数。
如果 number 是 Oct 返回
Null Null。
Empty 零 (0)。
任意其他数字 最大可到 11 位的八进制字符。
用户也可以通过直接在数前加上 &O 表示八进制数。例如，&O10 为十进制数 8 的八进制表示法。
下面的示例利用 Oct 函数返回数值的八进制数:
Dim MyOct
MyOct = Oct(4) ' 返回 4。
MyOct = Oct(8) ' 返回 10。
MyOct = Oct(459) ' 返回 713。
==============================================================================
