51、Mid 函数
功能:从字符串中返回指定数目的字符。
语法:
Mid(string, start[, length])
Mid 函数的语法有以下参数:
1、string: 字符串表达式,从中返回字符。如果 string 包含 Null,则返回 Null。
2、start: string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("")。
3、length: 要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到字符串结束的所有字符。
说明:
要判断 string 中字符的数目,可使用 Len 函数。
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符:
Dim MyVar
MyVar = Mid("VB Script is fun!", 4, 6) 'MyVar 包含 "Script"。
注意:MidB 函数用于字符串中的字节数据,其参数指定的是字节数而不是字符数。
52、Minute 函数
功能:返回 0 到 59 之间的一个整数(包括 0 和59),代表一小时内的某一分钟。
语法:
Minute(time)
time 参数是任意可以代表时间的表达式。如果 time 参数包含 Null,则返回 Null。
说明:
下面的示例利用 Minute 函数返回小时的分钟数:
Dim MyVar
MyVar = Minute(Now)
53、Month 函数
功能:返回 1 到 12 之间的一个整数(包括 1 和 12),代表一年中的某月。
语法:
Month(date)
date 参数是任意可以代表日期的表达式。如果 date 参数中包含 Null,则返回 Null。
说明
下面的示例利用 Month 函数返回当前月:
Dim MyVar
MyVar = Month(Now) ' MyVar 包含当前月对应的数字。
54、MonthName 函数
功能:返回表明指定月份的字符串。
语法:
MonthName(month[, abbreviate])
MonthName 函数的语法有以下参数:
1、month: 必选。月份的数值定义。例如,一月是 1,二月是 2,以此类推。
2、abbreviate: 可选。Boolean 值,表明月份名称是否简写。如果省略,默认值为 False,即不简写月份名称。
说明:
下面的示例利用MonthName 函数为日期表达式返回月份的缩写:
Dim MyVar
MyVar = MonthName(10, True) ' MyVar 包含 "Oct"。
55、Now 函数
功能:根据计算机系统设定的日期和时间返回当前的日期和时间值。
语法:
Now
说明:
下面的示例利用 Now 函数返回当前的日期和时间:
Dim MyVar
MyVar = Now ' MyVar 包含当前的日期和时间。
56、Oct 函数
功能:返回表示数字八进制值的字符串。
语法:
Oct(number)
number 参数是任意有效的表达式。
说明:
如果 number 参数不是整数,则在进行运算前,将其四舍五入到最接近的整数。
用户也可以通过直接在数前加上 &O 表示八进制数。例如,&O10 为十进制数 8 的八进制表示法。
下面的示例利用 Oct 函数返回数值的八进制数:
Dim MyOct
MyOct = Oct(4) ' 返回 4。
MyOct = Oct(8) ' 返回 10。
MyOct = Oct(459) ' 返回 713。
57、Replace 函数
功能:返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
语法:
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数:
1、expression: 必选。 字符串表达式 包含要替代的子字符串。
2、find: 必选。被搜索的子字符串。
3、replacewith: 必选。用于替换的子字符串。
4、start: 可选。expression 中开始搜索子字符串的位置。如果省略,默认值为 1。在和count 关联时必须用
5、count: 可选。执行子字符串替换的数目。如果省略,默认值为 -1,表示进行所有可能的替换。在和 start 关联时必须用。
6、compare: 可选。指示在计算子字符串时使用的比较类型的数值。有关数值,请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。
如果:expression 为零长度 则结果为:零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本,其中删除了所有由find参数指定的内容
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。
说明:
Replace 函数的返回值是经过替换(从由 start 指定的位置开始到 expression 字符串的结尾)后的字符串,而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:
Dim MyString
'二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y")
'文本比较从第三个字符开始。返回 "YXXYXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1)
58、RGB 函数
功能:返回代表 RGB 颜色值的整数。
语法:
RGB(red, green, blue)
RGB 函数的语法有以下参数:
1、red: 必选。0 到 255 间的整数,代表颜色中的红色成分。
2、green: 必选。0 到 255 间的整数,代表颜色中的绿色成分。
3、blue: 必选。0 到 255 间的整数,代表颜色中的蓝色成分。
说明:
接受颜色说明的应用程序方法和属性,要求该说明以整数代表 RGB 颜色值。RGB 颜色值指定了红色、绿色、蓝色的相对强度,三色组合形成显示的特定颜色。
低字节值表示红色,中字节值表示绿色,高字节值表示蓝色。
对于要求反转字节顺序的应用程序,下面函数在反转字节顺序下提供相同信息:
Function RevRGB(red, green, blue)
RevRGB= CLng(blue + (green * 256) + (red * 65536))
End Function
RGB 函数中任一超过 255 的参数都假定为 255。
59、Right 函数
功能:从字符串右边返回指定数目的字符。
语法:
Right(string, length)
Right 函数的语法有以下参数:
1、string 字符串表达式,其最右边的字符被返回。如果 string 参数中包含 Null,则返回 Null。
2、length 数值表达式,指明要返回的字符数目。如果为 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 参数指定返回的是字节数目,而不是字符数目。
60、Rnd 函数
功能:返回一个随机数。
语法:
Rnd[(number)]
number 参数可以是任意有效的数值表达式。
说明:
Rnd 函数返回一个小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的方式:
如果number为:小于零 则结果为:每次都相同的值,使用 number 作为种子。
大于零 序列中的下一个随机数。
等于零 最近生成的数。
省略 序列中的下一个随机数。
因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子,所以对于任何最初给定的种子都会生成相同的数列。
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有基于系统计时器的种子。
要产生指定范围的随机整数,请使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里, upperbound 是此范围的上界,而 lowerbound 是此范围内的下界。
注意: 要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。