这篇博客详细介绍了VB语言中从H到O的一系列函数，包括Hex、Hour、Initialize、InputBox等，涵盖了日期时间处理、字符串操作、错误处理等多个方面，为VB编程者提供了重要的参考。
VB 函数参考二（H-O）
Hex
Hour
Initialize
InputBox
InStr
Int
IsDate
IsNumeric
KeyDown
KeyPress
KeyUp
LCase
Left
Len
LinkClose
LinkError
LinkNotify
LinkOpen
Load
LOC
LOF
Log
LostFocus
LTrim
Mid
Month
MouseDown
MouseMove
MouseUP
MsgBox
Now
Oct
OLECompleteDrag
OLEDragDrop
OLEDragOver
OLEGiveFeedback
OLESetData
OLEStartDrag
=======
【名称】
Hex
【类别】
转换函数
【原形】
Hex(number)
【参数】
number 参数为任何有效的数值表达式或字符串表达式。
【返回值】
返回一个String。
【异常/错误】
无
【描述】
返回一个代表十六进制数值的 String。
【示例】
本示例使用 Hex 函数来得到某数值的 16 进制值。
Dim MyHex
MyHex = Hex(5) ' 返回 5。
MyHex = Hex(10) ' 返回 A。
MyHex = Hex(459) ' 返回 1CB。
【备注】
如果 number 还不是一个整数，那么在执行前会先被四舍五入成最接近的整数。
如果 number 为
所得为
Null
Null
Empty
零 (0)
任何其他的数字
最多可到八个十六进制字符。
适当范围内的数字，前缀以 &H，可以直接表示十六进制数字。例如，十六进制表示法的 &H10 代表十进制的 16。
=======
【名称】
Hour
【类别】
日期和时间函数
【原形】
Hour(time)
【参数】
必选的，time 参数可以是任何能够表示时刻的 Variant、数值表达式、字符串表达式或它们的组合。如果 time 包含 Null，则返回 Null。
【返回值】
返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。
【异常/错误】
无
【描述】
返回时间参数中的小时数，函数值为0到23之间的整数。例如：执行Print Hour(Now)后的结果为：14。
【示例】
本示例使用 Hour 函数将指定的时间转换为小时数。在开发环境中，日期和时间的原义会根据系统的地区设置，以短式日期和时间格式显示。
Dim MyTime, MyHour
MyTime = #4:35:17 PM# ' 指定一时间。
MyHour = Hour(MyTime) ' MyHour 的值为 16。
【备注】
日期和时间函数的函数名、函数值类型和函数功能如下表所示。针对表中的举例，设当前的系统时间为2003年4月23日下午两点18分30秒。
表 日期和时间函数
函数名
函数值类型
功能
举例
Now
Date
返回当前的系统日期和系统时间
执行Print Now后的结果为：2003-4-23 14:18:30
Date[$][()]
Date
返回当前的系统日期
执行Print Date后的结果为：2003-4-23
Time[$][()]
Date
返回当前的系统时间
执行Print Time后的结果为：14:18:30
DateSerial(年，月，日)
Integer
相对1899年12月30日（为0）返回一个天数值。其中的年、月、日参数为数值型表达式
执行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的结果为：31
DateValue(C)
Integer
相对1899年12月30日（为0）返回一个天数值，参数C为字符型表达式
执行Print DateValue (“99,06,01”)-DateValue(“99,05,01”) 后的结果为：31
Year(D)
Integer
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间
执行Print Year(Date) 后的结果为：2003
执行Print Year(365) 后的结果为：1900
1899年12月30日后的365天是1900年
Month(D)
Integer
返回日期D的月份，函数值为1到12之间的整数
执行Print Month(Date) 后的结果为：8
Day(D)
Integer
返回日期D的日数，函数值为1到31之间的整数
执行Print Day(Date) 后的结果为：23
WeekDay(D)
Integer
返回日期D是星期几, 函数值与星期的对应关系如表2.6所示
执行Print WeekDay (Date)后的结果为：3
Hour(T)
Integer
返回时间参数中的小时数，函数值为0到23之间的整数
执行Print Hour(Now)后的结果为：14
Minute(T)
Integer
返回时间参数中的分钟数，函数值为0到59之间的整数
执行Print Minute(Now) 后的结果为：18
Second(T)
Integer
返回时间参数中的秒数，函数值为0到59之间的整数
执行PrintSecond(Now) 后的结果为：30
DateAdd(时间单位，时间，D)
Date
返回参考日期D加上一段时间T之后的日期，时间单位为一个字符串，表示所要加上的时间的单位，其取值及含义如表2.7所示
执行Print DateAdd(”m”，2，Date) 后的结果为：
2003-6-23。
执行Print DateAdd(”q”，1，Date) 后的结果为：
2003-7-23
DateDiff(时间单位，D1，D2)
Long
返回两个指定日期D1和D2之间的间隔时间。如果日期D1比D2早，则函数值为正数，否则函数值为负数。时间单位，同DateAdd函数的时间单位参数
执行Print DateDiff (“m”,#6/16/2002#,#6/16/2003#后的结果为：12
执行Print DateDiff (“m”,#6/16/2003#,#6/16/2002#后的结果为：-12
IsDate(参数)
Boolean
判断参数是否可以转换成日期，参数可以是任何类型的有效表达式。如果参数的值可转化成日期型数据，则函数值为Tree，否则函数值为False。在Microsoft Windows中，其范围为公元100年1月1日至公元9999年12月31日。
IsDate(99-6-18)=False
IsDate(“99-6-18")=True
说明：（1）在表2.5中，日期参数D是任何能够表示为日期的数值型表达式、字符串型表达式或它们的组合。时间参数T是任何能够表示为时间的数值型表达式、字符串型表达式或它们的组合。
当参数D是数值型表达式时，其值表示相对于1899年12月30日前后天数，负数是1899年12月30日以前，正数是1899年12月30日以后。
（2）星期函数Weekday(D)的函数值与星期的对应关系如下表所示。
表 星期函数Weekday(D)的函数值与星期的对应关系
函数值
星期
函数值
星期
1
星期日
5
星期四
2
星期一
6
星期五
3
星期二
7
星期六
4
星期三
=======
【名称】
Initialize
【类别】
事件过程
【原形】
Private Sub object_Initialize( )
【参数】
object 所在处代表对象表达式，其值是“应用于”列表中的一个对象。
【描述】
当应用程序创建 Form、MDIForm、User 控件、Property Page Webclass、DHTML Page Designer或类的实例时发生。
【示例】
【备注】
当应用程序创建一个窗体时，将触发Initialize事件。通过Initialize事件可以初始化窗体需要使用的数据。窗体的Initialize事件发生在Load事件之前。
如下情况触发 Initialize 事件：
用 CreateObject 函数创建类的一个实例，如：
Set X = CreateObject("Project1.MyClass")
引用窗体或类实例的属性或事件，该属性或事件由用户代码自动创建。
MyForm.Caption = "Example"
应用此事件初始化 Form、MDIForm、或类所用的数据。对 Form 或 MDIForm，Initialize 事件在 Load 事件之前发生。
=======
【名称】
InputBox
【类别】
输入函数
【原形】
InputBox[$](prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
或InputBox[$](提示，[，标题”][默认值][，x坐标，y坐标]) [, 帮助文件,上下文编号])
【参数】
必选的，varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。
InputBox 函数的语法具有以下几个命名参数：
部分
【描述】
Prompt
（提示）
必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。
Title
（标题）
可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。
Default
（默认值）
可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。
Xpos
（x坐标）
可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。
Ypos
（y坐标）
可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。
Helpfile
（帮助文件）
可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。
Context
（上下文编号）
可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。
【返回值】
【异常/错误】
无
【描述】
在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。在应用程序的运行过程中，出现一个[输入]对话框，用来给一变量赋值。
【示例】
本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue 保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' 设置提示信息。
Title = "InputBox Demo" ' 设置标题。
Default = "1" ' 设置缺省值。
' 显示信息、标题及缺省值。
MyValue = InputBox(Message, Title, Default)
' 使用帮助文件及上下文。“帮助”按钮便会自动出现。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
' 在 100, 100 的位置显示对话框。
MyValue = InputBox(Message, Title, Default, 100, 100)
【备注】
如果同时提供了 helpfile 与 context，用户可以按 F1 来查看与 context 相应的帮助主题。某些主应用程序，例如，Microsoft Excel，会在对话框中自动添加一个 Help 按钮。如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。
注意 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。
● [$]：有它时，返回的是字符型数据；没有它时，返回的是变体型数据。
● [提示]参数：它是一个字符串，用来提示用户输入什么内容。它可以是汉字，可以显示多行文字，但必须在每行文字的末尾加回车Chr(13)和换行Chr(10)。
● [标题]参数：它是一个字符串，是[输入]对话框标题栏中的标题。它是可选项，省略此参数时，则将工程名作为标题。
● [默认值]参数：为可选项，用来在[输入]对话框的输入文本框中显示一个默认值。
● [x坐标]和[y坐标]参数：表示对话框（左上角）在屏幕上出现的位置。如果省略此参数，则对话出现在屏幕的中央。屏幕左上角为原点。
● 此函数常常出现在赋值号的右边，用来给赋值号左边的变量赋值。
=======
【名称】
InStr
【类别】
字符串函数
【原形】
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，执行一个基于数据库中信息的比较。
【返回值】
返回0、1、2、-1或Null等。
【异常/错误】
无
描述InStr([start, ]string1, string2[, compare])
返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中，从start开始找string2，省略start时从string1头开始找。找不到时，函数值为0。
如果
InStr返回
string1 为零长度
0
string1 为 Null
Null
string2 为零长度
Start
string2 为 Null
Null
string2 找不到
0
在 string1 中找到string2
找到的位置
start > string2
0
【示例】
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)
' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)
' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。
MyPos = Instr(1, SearchString, "W") ' 返回 0。
【备注】
InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。
函数值类型和函数功能如下表所示。
字符串函数
函数名
函数值类型
功能
举例
Chr$(N)
String
求以N为ASCII码的字符
Chr(65)=“A”
Str$(N)
String
将N转换为字符串，如果N>0，则返回的字符串中包含一个前导空格，暗示有一个正号
Str$(-12345)=“-12345”
Str(12345)= “ 12345”
Len(C)
Long
求字符串C中包含的字符个数
Len(“Abab字符串4")=8
Ucase$(C)
String
将字符串C中的小写英文字母转换成大写英文字母
Ucase(“abABabc")="ABABABC"
Lcase$(C)
String
将字符串C中的大写英文字母转换成小写英文字母
Ucase(“abABabc")="abababc"
Space$(N)
String
产生N个空格组成的字符串
Len(Space(6))=6
String$(N，C)
String
产生N个由C指定的第一个字符组成的字符串，C可以是ASCII码数
String(6，”ABC”)=“AAAAAA”
String(6，65)=“AAAAAA”
Left(C，N)
String
从字符串C的最左边开始，截取N个字符
Left$(“ABCDEF"，3)="ABC”
Right$(C，N)
String
从字符串C的最右边开始，截取N个字符
Right$ (“ABCDEF"，3)="DEF”
Mid$(C，N1 [，N2 ])
String
从字符串C中N1指定的起始位置处开始，截取N2个字符
Mid(“ABCDEF”，2，3)=”BCD”
Mid(“ABCDEF”，2)=”BCDEF”
Ltrim$(C)
String
删除字符串C中的前导空格
Ltrim(“ ABCD ”)="ABCD ”
Rtrim$(C)
String
删除字符串C中的尾部空格
Ltrim(“ ABCD ”)=" ABCD”
Trim$(C)
String
删除字符串参数中的前导和尾部空格
Ltrim(“ ABCD ”)="ABCD”
StrComp(C1,C2[,N])
Integer
比较字符串C1和字符串C2的大小，N是比较类型，取值0、1或2
StrComp(“ABC"，”abc"，1)=0
StrComp(“ABC"，”abc"，0)=-1
StrComp(“abc "，” ABC "，0)=1
InStr([N1,]C1,C2[,N2])
Integer
在字符串C1中，从N1开始到N2位置，开始找C2，省略N1时从C1头开始找，省略N2时找到C1尾止。找不到时，函数值为0
InStr(2,”ABCDE”,”C”,4)=3
InStr(2,”ABCDEF”,”CDE”)=3
InStr(”ABCDEFGH”,”CDE”)=3
InStr(”ABCDEFGH”,”XY”)=0
说明：（1）表中的C表示是字符串表达式，表中的N表示是数值表达式
（2）对于数值函数Val(C)，逗号“，”和美圆符号“$”，都不能被识别；空格、制表符和换行符都将从参数中去掉；当遇到字母E或D 时，将其按单精度或双精度实型浮点数处理。
（3）LenB(C)函数与Len(C)函数功能相近，只不过LenB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：LenB(“ABCabc123")=18，LenB(“字符串”)=6。
（4）对于产生字符串函数String$(N，C)，其中，C参数可以为任何有效的数值表达式或字符串表达式，如果为数值表达式，则表示组成字符串的字符的ASCII码；如果为字符串表达式，则其第一个字符将用于产生字符串。
（5）对于字符串左截函数Left(C,N），N参数为数值表达式，其值指出函数值中包含多少个字符，如果其值为0，则函数值是长度为零的字符串(即空串)；如果其值大于或等于字符串C中的字符数，则函数值为整个字符串。
LeftB函数与Left函数功能相近，只不过LeftB函数求的是字符串的字节数，而不是字符串中字符的个数。LeftB(“ABCDE”,6)=”ABC”。
(6) 对于字符串右截取函数Right(C，N)，N参数为数值表达式，其值指出函数值中包含多少个字符。如果其值为0，则函数值为空串；如果其值大于或等于字符串C中的字符个数，则函数值为整个字符串。
RightB函数与Right函数功能相近，只不过RightB函数求的是字符串的字节数，而不是字符串中字符的个数。RightB(“ABCDE”,6)=”CDE”。
（7）N1是数值表达式，其值表示开始截取字符的起始位置。如果该数值超过字符串C中的字符数，则函数值为空串。N2是数值表达式，其值表示要截取的字符数。如果省略该参数，则函数值将包含字符串C中从起始位置到字符串末尾的所有字符。
MidB函数与Mid函数功能相近，只不过MidB函数求的是字符串的字节数，而不是字符串中字符的个数。例如：MidB(“ABCDEFG”,5,8)=”CDEF”。
（8）因为将一字符串赋值给一定长字符串变量时，如字符串变量的长度大于字符串的长度，则用空格填充该字符串变量尾部多余的部分，所以在处理定长字符串变量时，删除空格的Ltrim和Rtrim函数是非常有用的。
（9）对于字符串比较函数StrComp(C1,C2[,N] )，N是指定字符串的比较类型。比较类型可以是0、1或2，若比较类型为0，则执行二进制比较，此时英文字母区分大小写；若比较类型为1，则执行文本比较，此时英文字母不区分大小写；若比较类型为2，则是执行基于数据库信息的比较，仅对Microsoft Access起作用。若省略该参数，则默认比较类型为0。
当字符串C1小于字符串C2时，函数值为—1；当字符串C1等于字符串C2时，函数值为0：当字符串C1大于字符串C2时，函数值为1。
=======
【名称】
Int
【类别】
数学函数
【原形】
Int(number)
【参数】
必选的，number 参数是一个 Double 或任何有效的数值表达式
【返回值】
Integer 类型
【异常/错误】
无
【描述】
求不大于number 的最大整数，Int(3．8)=3，Int(-3.8)=-4。
【示例】
Dim MyNumber
MyNumber = Int(99.8) ' 返回 99。
MyNumber = Int(-99.8) ' 返回 -100。
MyNumber = Int(-99.2) ' 返回 -100。
【备注】
如果 number 包含 Null，则返回 Null。Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。
=======
【名称】
IsDate
【类别】
日期和时间函数
【原形】
IsDate(expression)
【参数】
必选的，expression 参数是一个 Variant，包含日期表达式或字符串表达式，这里的字符串表达式是可以作为日期或时间来认定的。
【返回值】
返回 Boolean 值，指出一个表达式是否可以转换成日期。
【异常/错误】
无
【描述】
返回时间参数中的小时数，函数值为0到23之间的整数。例如：执行Print Hour(Now)后的结果为：14。
【示例】
本示例使用 IsDate 函数判断表达式是否可以转换为日期格式。
Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "February 12, 1969": YourDate = #2/12/69#: NoDate = "Hello"
MyCheck = IsDate(MyDate) ' 返回 True。
MyCheck = IsDate(YourDate) ' 返回 True。
MyCheck = IsDate(NoDate) ' 返回 False。
【备注】
如果表达式是一个日期，或可以作为有效日期识别，则 IsDate 返回 True；否则返回 False。在 Microsoft Windows 中，有效日期的范围介于公元 100 年 1 月 1 日与公元 9999 年 12 月 31 日之间；其有效范围随操作系统不同而不同。
日期和时间函数的函数名、函数值类型和函数功能如下表所示。针对表中的举例，设当前的系统时间为2003年4月23日下午两点18分30秒。
表 日期和时间函数
函数名
函数值类型
功能
举例
Now
Date
返回当前的系统日期和系统时间
执行Print Now后的结果为：2003-4-23 14:18:30
Date[$][()]
Date
返回当前的系统日期
执行Print Date后的结果为：2003-4-23
Time[$][()]
Date
返回当前的系统时间
执行Print Time后的结果为：14:18:30
DateSerial(年，月，日)
Integer
相对1899年12月30日（为0）返回一个天数值。其中的年、月、日参数为数值型表达式
执行Print DateSerial (99,06,01)- DateSerial (99,05,01) 后的结果为：31
DateValue(C)
Integer
相对1899年12月30日（为0）返回一个天数值，参数C为字符型表达式
执行Print DateValue (“99,06,01”)-DateValue(“99,05,01”) 后的结果为：31
Year(D)
Integer
返回日期D的年份，D可以是任何能够表示日期的数值、字符串表达式或它们的组合。其中，参数为天数时，函数值为相对于1899年12月30日后的指定天数的年号，其取值在1753到2078之间
执行Print Year(Date) 后的结果为：2003
执行Print Year(365) 后的结果为：1900
1899年12月30日后的365天是1900年
Month(D)
Integer
返回日期D的月份，函数值为1到12之间的整数
执行Print Month(Date) 后的结果为：8
Day(D)
Integer
返回日期D的日数，函数值为1到31之间的整数
执行Print Day(Date) 后的结果为：23
WeekDay(D)
Integer
返回日期D是星期几, 函数值与星期的对应关系如表2.6所示
执行Print WeekDay (Date)后的结果为：3
Hour(T)
Integer
返回时间参数中的小时数，函数值为0到23之间的整数
执行Print Hour(Now)后的结果为：14
Minute(T)
Integer
返回时间参数中的分钟数，函数值为0到59之间的整数
执行Print Minute(Now) 后的结果为：18
Second(T)
Integer
返回时间参数中的秒数，函数值为0到59之间的整数
执行PrintSecond(Now) 后的结果为：30
DateAdd(时间单位，时间，D)
Date
返回参考日期D加上一段时间T之后的日期，时间单位为一个字符串，表示所要加上的时间的单位，其取值及含义如表2.7所示
执行Print DateAdd(”m”，2，Date) 后的结果为：
2003-6-23。
执行Print DateAdd(”q”，1，Date) 后的结果为：
2003-7-23
DateDiff(时间单位，D1，D2)
Long
返回两个指定日期D1和D2之间的间隔时间。如果日期D1比D2早，则函数值为正数，否则函数值为负数。时间单位，同DateAdd函数的时间单位参数
执行Print DateDiff (“m”,#6/16/2002#,#6/16/2003#后的结果为：12
执行Print DateDiff (“m”,#6/16/2003#,#6/16/2002#后的结果为：-12
IsDate(参数)
Boolean
判断参数是否可以转换成日期，参数
最低0.47元/天 解锁文章
扫一扫
2531
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
