常用内部函数
Abs(-50.3)
<span style="color: #
e（自然对数的底）的某次方
取整(取参数的整数部分)
Fix(-99.8)
取整(取小于或等于参数的最大整数)
Int(-99.8)Int(99.8)
求自然对数值
随机产生0～1的单精度值
Int(6*Rnd)+1
<span style="color: #
要产生一个从Min到Max的整数，应使用公式Int((Max-Min+1)*Rnd+Min)
Round(x,n)
按小数位数四舍五入
Round(3.14159,3)
<span style="color: #
第2个参数为小数位数
取参数的符号值
Sgn(8.8)Sgn(-8.8)Sgn(0)
参数大于0，返回1参数小于0，返回-1参数等于0，返回0
Sin(3.*90)
三角函数以&弧度&为单位
Cos(3.*180)
计算反正切
Tan(3.*45)
算术平方根
字符串函数
求字符串的长度(字符个数)
Len("Vb技术")
求字符串的字节个数
LenB("Vb技术")
VB中采用Unicode（ISO字符标准）来存储字符，所有字符都占2个字节
Mid(x,n1,n2)
从x字符串左边第n1个位置开始向右取n2个字符
Mid("Vb技术",2,2)
从x字符串左边开始取n个字符
Left("Vb技术",3)
Right(X,n)
从x字符串右边开始取n个字符
Right("Vb技术",3)
将x字符串中所有小写字母转换为大写
UCase("Vb技术")
将x字符串中所有大写字母转换为小写
LCase("Vb技术")
去掉x字符串两边的空格
Trim(" Vb 技术 ")
去掉x字符串左边的空格
Ltrim(" Vb 技术 ")
"Vb 技术 "
去掉x字符串右边的空格
Rtrim(" Vb 技术 ")
" Vb 技术"
Instr(x1,x2,M)
返回字符串x2在字符串x1中的位置，M=1不区分大小写,省略则区分
Instr("baBBAC","BA")
找不到则返回0
String(n,x)
返回由n个首字符组成的字符串
String(3,"AB")
返回n个空格
日期和时间函数
返回系统日期
<span style="color: #-9-1
(yyyy-mm-dd)
返回系统时间
<span style="color: #:33
(hh:mm:ss)
返回系统日期和时间
<span style="color: #-9-1 15:45:33
(yyyy-mm-dd hh:mm:ss)
返回指定日期的年份
Year("")或Year(#9/1/2006#)
返回指定日期的月份
返回指定日期的日子
返回指定日期的星期几
Weekday("")
返回指定时间的时数
Hour("15:45:33")
返回指定时间的分数
Minute(Now)
假定系统时间为15:45:33
增减日期函数： DateAdd(要增减日期形式，增减量，要增减的日期)例：计算2周后的日期：DateAdd("ww",2,#9/1/2006#)，结果 "" 求日期之差函数： DateDiff(要间隔日期形式，日期一，日期二)例：计算生日还有多少天： DateDiff("d", Now, #12/1/2006#) ，结果为 74 函数中的&要增减日期形式&或&要间隔日期形式&可参见下表中的形式：
一年的天数
一周的天数
数据类型转换函数
将数值转换为字符串
将字符串中的数字转换成数值
Val("2.3ab")Val("a23")
<span style="color: #0
求字符ASCII值
将数值（ASCII码）转换为字符
将数字字符串或数值转换成布尔型
CBool(1)CBool("0")
等于0为False，不等于0为True
将有效的日期字符串转换成日期
将数值转换成单精度型
CSng(23.5125468)
将数值转换成双精度型
CDbl(23.5125468)
23.5125468
阅读(...) 评论()vb中mid,left,right函数的含义与用法？-关于VB的left ，mid，right函数_经验分享网
你正在浏览： &>&
vb中mid,left,right函数的含义与用法？
使用方法为，left从左边开始截取，长度） left(内容，开始位置：mid(内容，right为从右边开始截取，MId为从中间截取其实这三个功能类似的，长度) right(内容
3) = &#39;
mid(bcd&#39,3) = &#39;
right( str, 3) = &#39: str = &#39;abcd&#39;left(str:
str = &#39mid(str,n) 取出字符串str中右边n位的字符abcd&#39, n:
str = &#39;abc&#39, len)
取出字符串str中第n个字符开始;
left( str,n)
取出字符串str中左边n位的字符abcd&#39;right(bcd&#39,长度为len位的字符串 sample,2
3个函数都是从一个字符串中取一部分字符出来。LEFT（A，3）：从字符A中，取左边3个。RIGHT（A，3）：从字符A中，取右边3个。MID（A，1，3）：从字符A中的第1个字符开始，连取3个，即：MID函数可以取任意连续字符。
MId为从指定位置开始截取，left从左边开始截取，right为从右边开始截取。使用方法为：mid(要截取的字符串，开始位置，长度）left(要截取的字符串，长度) right(要截取的字符串，长度）
mid(内容，开始位置，长度） left(内容，长度) right(内容，长度）
Private Sub Form_Load() Label1.Caption = Left(Text...……
mid函数有三个参数,例如mid(“abcde”,2,3)就是从字符“abcde”中的第...201...……
准确点说是VBScript嚅的Mid, Left 和 Right函数.&%Dim str = &一二...……
left: right: copy(YourString,length(YourString)-Ho...……
就是从字符串ABCDEFABCDEF中, 第i个位置开始的位置取6个长度的字符,当i...2011-...……
Mid是VisualBasic和MicrosoftExcel中的一个字符串函数,作用是从一个字符串中...……
1,8的意思是在A$中从第1个字符开始向右取8个字符,例如Mid(&ABCDEF...……
d(i, 1) = Val(Mid(x, 9)) &#039; 从X里取出需要的数值 转换成数字 Line.....
你可能感兴趣的内容？【转】VBScript字符串期函数（InStr、Left、Len、Mid、Replace、StrComp、UCase……）
VBScript字符串期函数（InStr、Left、Len、Mid、Replace、StrComp、UCase……）
返回表达式，该表达式已被转换为
String 子类型的 Variant。
CStr(expression)
expression
参数是任意有效的表达式。
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用
CStr 强制将结果表示为 String。
CStr 函数用于替代
Str 函数来进行从其他数据类型到 String
子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的设置。
expression
根据下表决定返回的数据：
如果 expression
字符串，包含 True 或
字符串，包含系统的短日期格式日期。
运行时错误。
零长度字符串 ("")。
字符串，包含跟随有错误号码的单词
字符串，包含此数字。
下面的示例利用 CStr
函数把数字转换为 String:
Dim MyDouble, MyString
MyDouble = 437.324
' MyDouble 是双精度值。
MyString = CStr(MyDouble)
' MyString 包含 "437.324"。
InStr 函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 ，则会出现错误。如果已指定 compare，则必须要有 start 参数。
必选项。接受搜索的字符串表达式。
必选项。要搜索的字符串表达式。
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。
compare 参数可以有以下值：
vbBinaryCompare
执行二进制比较。
vbTextCompare
执行文本比较。
InStr 函数返回以下值：
InStr 返回
string1 为
string2 为
在 string1 中找到
找到匹配字符串的位置
& Len(string2)
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"
' String to search in.
SearchChar = "P"
' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1)
' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(1, SearchString, SearchChar, 0)
' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(SearchString, SearchChar)
' Comparison is binary by default (last argument is omitted). Returns 9.
MyPos = Instr(1, SearchString, "W")
' A binary comparison starting at position 1. Returns 0 ("W" is not found).
注意 InStrB 函数使用包含在字符串中的字节数据，所以 InStrB 返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
InStrRev 函数
返回某字符串在另一个字符串中出现的从结尾计起的位置。
InStrRev(string1, string2[, start[, compare]])
必选项。接受搜索的字符串表达式。
必选项。被搜索的字符串表达式。
可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，则默认值为 -1，表示从最后一个字符的位置开始搜索。如果 start 包含 ，则出现错误
可选项。在计算子字符串时，指示要使用的比较类型的数值。如果省略，将执行二进制比较。有关数值，请参阅“设置”部分。
compare 参数可以有以下值：
vbBinaryCompare
执行二进制比较。
vbDatabaseCompare
执行基于包含在数据库（在此数据库中执行比较）中的信息的比较。
InStrRev 返回以下值：
string1 为
string2 为
在 string1 中找到
找到匹配字符串的位置
& Len(string2)
下面的示例利用 InStrRev 函数搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"
' String to search in.
SearchChar = "P"
' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 10, 0)
' A binary comparison starting at position 10. Returns 9.
MyPos = InstrRev(SearchString, SearchChar, -1, 1)
' A textual comparison starting at the last position. Returns 12.
MyPos = InstrRev(SearchString, SearchChar, 8)
' Comparison is binary by default (last argument is omitted). Returns 0.
InStrRev 函数的语法与 InStr 函数的语法并不一样。
返回一个字符串，此字符串由包含在中的许多子字符串联接创建。
Join(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"。
返回字符串的小写形式。
LCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 ，则返回 Null。
仅大写字母转换成小写字母；所有小写字母和非字母字符保持不变。
下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString) ' LCaseString 包含 "vbscript"。
返回指定数目的从字符串的左边算起的字符。
Left(string, length)
字符串表达式，其最左边的字符被返回。如果 string 参数中包含 ，则返回 Null。
数值表达式，指明要返回的字符数目。如果是 0，返回零长度字符串 ("")；如果大于或等于 string 参数中的字符总数，则返回整个字符串。
可使用 Len 函数确定 string 参数中的字符数目。
下面的示例利用Left 函数返回MyString 的左边三个字母：
Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS"。
LeftB 函数与包含在字符串中字节数据一起使用。length 不是指定返回的字符串数，而是字节数。
返回字符串内字符的数目，或是存储一变量所需的字节数。
Len(string | varname)
任意有效的字符串表达式。如果 string 参数包含 ，则返回 Null。
任意有效的名。如果 varname 参数包含 Null，则返回 Null。
下面的示例利用 Len 函数返回字符串中的字符数目：
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8。
LenB 函数与包含在字符串中的字节数据一起使用。LenB 不是返回字符串中的字符数，而是返回用于代表字符串的字节数。
LTrim、RTrim 和 Trim 函数
返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本。
LTrim(string)
RTrim(string)
Trim(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 ，则返回 Null。
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：
MyVar = LTrim("
vbscript ")
'MyVar 包含 "vbscript "。
MyVar = RTrim("
vbscript ")
'MyVar 包含 "
vbscript"。
MyVar = Trim("
vbscript ")
'MyVar 包含"vbscript"。
从字符串中返回指定数目的字符。
Mid(string, start[, length])
字符串表达式，从中返回字符。如果 string 包含 ，则返回 Null。
string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。
要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。
要判断 string 中字符的数目，可使用 Len 函数。
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：
MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "Script"。
MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。
Replace 函数
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
Replace(expression, find, replacewith[, compare[, count[, start]]])
expression
必选项。字符串表达式 包含要替代的子字符串。
必选项。被搜索的子字符串。
Replacewith
必选项。用于替换的子字符串。
可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。
compare 参数可以有以下值：
vbBinaryCompare
执行二进制比较。
vbTextCompare
执行文本比较。
Replace 返回以下值：
expression
零长度字符串
expression 为
find 为零长度
expression
replacewith
expression 的副本，其中删除了所有由
find 参数指定的内容。
& Len(expression)
零长度字符串。
expression
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串：
Dim MyString
MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3，, -1, 1)
Right 函数
从字符串右边返回指定数目的字符。
Right(string, length)
字符串表达式，其最右边的字符被返回。如果 string 参数中包含 ，则返回 Null。
数值表达式，指明要返回的字符数目。如果为 0，返回零长度字符串；如果此数大于或等于 string 参数中的所有字符数目，则返回整个字符串。
要确定 string 参数中的字符数目，使用 Len 函数。
下面的示例利用 Right 函数从字符串右边返回指定数目的字符：
Dim AnyString, MyStr
AnyString = "Hello World"
'定义字符串。
MyStr = Right(AnyString, 1)
'返回 "d"。
MyStr = Right(AnyString, 6)
' 返回 " World"。
MyStr = Right(AnyString, 20)
' 返回 "Hello World"。
注意 RightB 函数用于字符串中的字节数据，length 参数指定返回的是字节数目，而不是字符数目。
Space 函数
返回由指定数目的空格组成的字符串。
Space(number)
number 参数为字符串中用户所需的空格数。
下面的示例利用 Space 函数返回由指定数目空格组成的字符串：
Dim MyString
MyString = Space(10)
' 返回具有 10 个空格的字符串。
MyString = "Hello" & Space(10) & "World" ' 在两个字符串之间插入 10 个空格。
返回基于 0 的一维，其中包含指定数目的子字符串。
Split(expression[, delimiter[, count[, start]]])
expression
必选项。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。
可选项。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。
可选项。被返回的子字符串数目，-1 指示返回所有子字符串。
可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。
compare 参数可以有以下值：
vbBinaryCompare
执行二进制比较。
vbTextCompare
执行文本比较。
下面的示例利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) & " " & MyArray(1)
& " " & MyArray(2)
MsgBox Msg
StrComp 函数
返回一个表明结果的值。
StrComp(string1, string2[, compare])
必选项。任意有效的字符串表达式。
必选项。任意有效的字符串表达式。
可选项。指示在计算字符串时使用的比较类型的数值。如果省略，则执行二进制比较。有关数值，请参阅“设置”部分。
compare 参数可以有以下值：
vbBinaryCompare
执行二进制比较。
vbTextCompare
执行文本比较。
StrComp 函数有以下返回值：
string1 小于
string1 等于
string1 大于
string1 或
string2 为
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"
'定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1)
' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0)
' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1)
' 返回 1。
返回具有指定长度的、重复字符组成的字符串。
String(number, character)
返回字符串的长度。如果 number 参数包含 ，则返回 Null。
指定字符或字符串表达式的，其中字符串表达式的第一个字符用于组成返回的字符串。如果 character 参数包含 Null，则返回 Null。
如果指定的 character 值大于 255，则 String 使用下列公式将该数转换成有效的字符代码：
character Mod 256
下面的示例利用 String 函数返回指定长度的由重复字符组成的字符串：
Dim MyString
MyString = String(5, "*")
' 返回"*****"。
MyString = String(5, 42)
' 返回"*****"。
MyString = String(10, "ABC")
' 返回"AAAAAAAAAA"。
StrReverse 函数
返回字符串，此字符串与指定字符串顺序相反。
StrReverse(string1)
string1 参数是要进行字符反向的字符串。如果 string1 是零长度字符串 ("")，则返回零长度字符串。如果 string1 为 Null，则会出现错误。
下面的示例利用 StrReverse 函数返回按相反顺序排列的字符串：
MyStr = StrReverse("VBScript") 'MyStr 包含 "tpircSBV"。
返回字符串的大写形式。
UCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 ，则返回 Null。
只有小写字母被转换成大写字母；所有大写字母和非字母字符均保持不变。
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase("Hello World")
' 返回"HELLO WORLD"。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。VB函数详解&#40;84个vb自带函数&#41;璇﹁В,鍑芥暟
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB函数详解&#40;84个vb自带函数&#41;
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口