VBScript常用函数

　　　　　　　　　　　　　　　　　　　　　　　　　　VBScript常用函数

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　作者：尹正杰

版权声明：原创作品，谢绝转载！否则将追究法律责任。

1.Abs函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Abs(number)
 'number 参数可以是任意有效的数值表达式。如果 number 包含 Null，则返回 Null；如果是未初始化变量，则返回 0。

 '说明
 '数字的绝对值是其无符号的数值大小。例如，Abs(-1) 和 Abs(1) 都返回 1。

 '下面示例利用 Abs 函数计算数字的绝对值： 

 Dim MyNumber_1,MyNumber_2
 MyNumber_1 = Abs(500.66 )      '返回 500.66。
 MyNumber_2 = Abs(-500.66)      '返回 500.66。
 MsgBox MyNumber_1
 MsgBox MyNumber_2

Abs(number)用法展示

2.Array函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Array 函数
 'Array(arglist)
 'arglist参数是赋给包含在Variant中的数组元素的值的列表（用逗号分隔）。如果没有指定此参数，则将会创建零长度的数组。

 '说明
 '用于引用数组元素的表示符，由跟随有括号的变量名组成，括号中包含指示所需元素的索引号。在下面的示例中，第一条语句创建名为 num 的变量。第二条语句将一个数组赋值给变量 num。最后一条语句将包含在第二个数组元素中的值赋值给另一个变量。
 '注意   未作为数组声明的变量仍可以包含数组。虽然包含数组的 Variant 变量与包含 Variant 元素的数组变量有概念上的不同，但访问数组元素的方法是相同的。

 Dim num,B
 num = Array(,,)
 B = num()   ' B 现在为 30。
 MsgBox B

Array函数用法展示

3.Asc函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Asc(string)
 'string 参数是任意有效的字符串表达式。如果 string 参数未包含字符，则将发生运行时错误。

 '说明
 '下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码: 

 Dim MyNumber
 MyNumber = Asc("A")      '返回 65。
 MyNumber = Asc("a")      '返回 97。
 MyNumber = Asc("Apple")  '返回 65。
 '注意   AscB 函数和包含字节数据的字符串一起使用。AscB 不是返回第一个字符的字符代码，而是返回首字节。AscW 是为使用 Unicode 字符的 32 位平台提供的。它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。

 '想要知道完整的字符集编码表，请参考http://www.cnblogs.com/yinzhengjie/p/6594771.html

Asc函数用法展示

4.Atn函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Atn(number)
 'number 参数可以是任意有效的数值表达式。

 '说明
 'Atn 函数计算直角三角形两个边的比值 (number) 并返回对应角的弧度值。此比值是该角对边的长度与邻边长度之比。结果的范围是从 -pi/2 到 pi/2 弧度。

 '弧度变换为角度的方法是将弧度乘以 pi/180。反之，角度变换为弧度的方法是将角度乘以180/pi 。

 '下面的示例利用 Atn 来计算 pi 的值: 

 Dim pi
 pi =  * Atn()   ' 计算 pi 的值。
 MsgBox pi

 '注意   Atn 是 Tan（将角作为参数返回直角三角形两边的比值）的反三角函数。不要混淆 Atn 与余切（正切的倒数 (1/tangent)）函数。

Atn函数用法展示

5.CBool函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CBool 函数
 '请参阅
 'CByte 函数 | CCur 函数 | CDate 函数 | CDbl 函数 | CInt 函数 | CLng 函数 | CSng 函数 | CStr 函数
 '返回表达式，此表达式已转换为 Boolean 子类型的 Variant。

 'CBool(expression)
 'expression 是任意有效的表达式。

 '说明
 '如果 expression 是零，则返回 False；否则返回 True。如果 expression 不能解释为数值，则将发生运行时错误。

 '下面的示例使用 CBool 函数将一个表达式转变成 Boolean 类型。如果表达式所计算的值非零，则 CBool 函数返回 True；否则返回 False。

 Dim A, B, Check,Check_1,Check_2

 A = : B =             ' 初始化变量,可以用":"定义多个变量
 Check = CBool(A = B)    ' 复选框设为 True 。（5=5为真）
 Check_1 = CBool(A)
 MsgBox Check_1
 A =                    ' 定义变量。
 Check_2 = CBool(A)        ' 复选框设为 False 。（0=5为假）
 MsgBox Check_2

CBool函数用法展示

6.CByte函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CByte(expression)
 'expression 参数是任意有效的表达式。
 '说明
 '通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币、单精度、双精度或整数运算的情况下，使用 CByte 强制执行字节运算。
 'CByte函数用于进行从其他数据类型到Byte子类型的的国际公认的格式转换。例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。
 '如果 expression 在 Byte 子类型可接受的范围之外，则发生错误。下面的示例利用 CByte 函数把 expression 转换为 byte: 

 Rem 如果你没有看懂上面啥意思，其实你就可以理解成四舍五入啦，通过下面的例子你就理解啦！
 Dim MyDouble, MyByte,MyDouble_1,MyByte_1
 MyDouble = 125.5678         ' MyDouble 是一个双精度值。
 MyDouble_1 = 125.4999
 MsgBox MyDouble
 MsgBox MyDouble_1
 MyByte = CByte(MyDouble)    ' MyByte 包含 126 。
 MyByte_1 = CByte(MyDouble_1)
 MsgBox MyByte
 MsgBox MyByte_1

CByte函数用法展示

7.CCur函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CCur(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在整数运算的情况下，使用 CCur 函数强制进行货币计算。

 'CCur 函数用于进行从其他数据类型到 Currency 子类型的国际公认的格式转换。例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。

 '下面的示例使用 CCur 函数将一个表达式转换成 Currency 类型:

 Dim MyDouble, MyCurr
 MyDouble = 543.214588          ' MyDouble 是双精度的。
 MyCurr = CCur(MyDouble * )    ' 把 MyDouble * 2 (1086.429176) 的结果转换为 Currency (1086.4292)。
 MsgBox MyDouble
 MsgBox MyCurr

CCur函数用法展示

8.CDate函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CDate(date)
 'date 参数是任意有效的日期表达式。

 '说明
 'IsDate 函数用于判断 date 是否可以被转换为日期或时间。CDate 识别日期文字和时间文字，以及一些在可接受的日期范围内的数字。在将数字转换为日期时，数字的整数部分被转换为日期，分数部分被转换为从午夜开始计算的时间。

 'CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别，则不能判断年、月、日的正确顺序。另外，如果长日期格式包含表示星期几的字符串，则不能被识别。

 '下面的示例使用 CDate 函数将字符串转换成日期类型。一般不推荐使用硬件译码日期和时间作为字符串（下面的例子已体现）。而使用时间和日期文字 (如 #10/19/1962#, #4:45:23 PM#)。

 Dim MyDate,MyShortDate,MyTime,MyShortTime
 MyDate = "October 21, 2016"        ' 定义日期。
 MyShortDate = CDate(MyDate)        ' 转换为日期数据类型。
 MyTime = "4:35:47 PM"              ' 定义时间。PM表示下午的意思,AM表示上午的意思，这是常识哟~
 MyShortTime = CDate(MyTime)        ' 转换为日期数据类型。
 MsgBox MyShortDate
 MsgBox MyShortTime

CDate函数用法展示

9.CDbl函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CDbl(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在出现货币或整数运算的情况下，使用 CDbl 或 CSng 函数强制进行双精度或单精度算术运算。

 'CDbl 函数用于进行从其他数据类型到 Double 子类型的国际公认的格式转换。例如，十进制分隔符和千位分隔符的识别取决于系统的区域设置。

 '下面的示例利用 CDbl 函数把 expression 转换为 Double。

 Dim MyCurr, MyDouble
 MyCurr = CCur(234.456784)               ' MyCurr 是 Currency 型 (234.4567)。
 MyDouble = CDbl(MyCurr * 8.2 * 0.01)    ' 把结果转换为 Double 型 (19.2254576)。
 MsgBox MyCurr
 MsgBox MyDouble

CDbl函数用法展示

10.Chr函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Chr(charcode)
 'charcode 参数是可以标识字符的数字。

 '说明
 '从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如，Chr(10) 返回换行符。

 '下面例子利用 Chr 函数返回与指定的字符代码相对应的字符: 

 Dim MyChar
 MyChar = Chr()    '返回 A。
 MsgBox MyChar
 MyChar = Chr()    '返回 a。
 MsgBox MyChar
 MyChar = Chr()    '返回 >。
 MsgBox MyChar
 MyChar = Chr()    '返回 %。
 MsgBox MyChar
 '注意   ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符，而总是返回单个字节的字符。ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码，因此可以避免将 ANSI 转化为 Unicode 字符。

Chr函数用法展示

11.CInt函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CInt(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币、单精度或双精度运算的情况下，使用 CInt 或 CLng 强制执行整数运算。

 'CInt 函数用于进行从其他数据类型到 Integer 子类型的国际公认的格式转换。例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。

 '如果 expression 在 Integer 子类型可接受的范围之外，则发生错误。

 '下面的示例利用 CInt 函数把值转换为 Integer: 

 Dim MyDouble, MyInt
 MyDouble = 2345.5678      ' MyDouble 是 Double。
 MyInt = CInt(MyDouble)    ' MyInt 包含 2346。
 MsgBox     MyInt
 '注意   CInt 不同于 Fix 和 Int 函数删除数值的小数部分，而是采用四舍五入的方式。当小数部分正好等于 0.5 时, CInt 总是将其四舍五入成最接近该数的偶数。例如， 0.5 四舍五入为 0, 以及 1.5 四舍五入为 2.
 MyInt = CInt(0.5)
 MsgBox     MyInt
 MyInt = CInt(2.5)
 MsgBox     MyInt

CInt函数用法展示

12.CLng函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CLng(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如，在出现货币运算、单精度或双精度算术运算的情况下，使用 CInt 或 CLng 函数强制进行整数运算。

 'CLng 函数用于进行从其他数据类型到 Long 子类型的的国际公认的格式转换。例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。

 '如果 expression 取值不在 Long子类型的允许范围内，则会出现错误。

 '下面的示例利用 CLng 函数把值转换为 Long: 

 Dim MyVal1, MyVal2, MyLong1, MyLong2
 MyVal1 = 25427.45: MyVal2 = 25427.55   ' MyVal1, MyVal2 是双精度值。
 MyLong1 = CLng(MyVal1)   ' MyLong1 25427。
 MyLong2 = CLng(MyVal2)   ' MyLong2 包含 25428 。
 '注意   CLng 不同于 Fix 和 Int 函数删除小数部分， 而是采用四舍五入的方式。当小数部分正好等于 0.5 时， CLng 函数总是将其四舍五入为最接近该数的偶数。如， 0.5 四舍五入为 0, 以及 1.5 四舍五入为 2 。
 MyLong1 = CLng(0.5)
 MsgBox MyLong1
 MyLong1 = CLng(2.5)
 MsgBox MyLong1

CLng函数用法展示

13.Cos函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'Cos(number)
 'number 参数可以是任何将某个角表示为弧度的有效数值表达式。

 '说明
 'Cos 函数取某个角并返回直角三角形两边的比值。此比值是直角三角形中该角的邻边长度与斜边长度之比。结果范围在 -1 到 1 之间。

 '角度转化成弧度方法是用角度乘以 pi/180。反之，弧度转化成角度的方法是用弧度乘以 180/pi。

 '下面的示例利用 Cos 函数返回一个角的余弦值: 

 Dim MyAngle, MySecant
 MyAngle = 1.3                ' 用弧度定义一个角。
 MsgBox MyAngle
 MySecant =  / Cos(MyAngle)  ' 计算正割。
 MsgBox Cos(MyAngle)
 MsgBox MySecant

Cos函数用法展示

14.CreateObject函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CreateObject(servername.typename [, location])
 '参数
 'servername
 '必选项。提供对象的应用程序名称。
 'typename
 '必选项。要创建的对象类型或类。
 'location
 '可选项。对象所在的网络服务器将被创建。
 '说明
 'Automation 服务器至少提供一种对象类型。例如，字处理应用程序可以提供应用程序对象、文档对象和工具条对象。
 '要创建 Automation 对象，将 CreateObject 函数返回的对象赋值给某对象变量：
 Dim ExcelSheet
 Set ExcelSheet = CreateObject("Excel.Sheet")
 '上述代码启动创建对象（在此实例中，是 Microsoft Excel 电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、ExcelSheet 和其他 Excel 对象，包括 Application 对象和 Cells 集合访问新对象的属性和方法。例如： 

 ' 使 Excel 在整个 Application 对象中都可见。
 ExcelSheet.Application.Visible = True
 ' 将一些文本放入工作表的第一个单元格中。
 ExcelSheet.ActiveSheet.Cells(,).Value = "This is column A, row 1"
 ' 保存工作表。
 ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
 ' 关闭 Excel，使 Quit 方法处于 Application 对象中。
 ExcelSheet.Application.Quit
 ' 释放对象变量。
 Set ExcelSheet = Nothing
 '在远程服务器上创建一个对象，当 Internet 安全关闭时只能完成。通过传递计算机名到 CreateObject 服务器名的参数，能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为： "\\myserver\public", servername 是 "myserver"。另外,只能指定 servername 使用 DNS 格式或 IP 地址。

 '以下代码返回运行在命名为"myserver"的远程网络计算机上 Excel 实例的版本号 :

 Function GetVersion
    Dim XLApp
    Set XLApp = CreateObject("Excel.Application", "MyServer")
    GetVersion = XLApp.Version
 End Function
 '错误发生在指定的远程服务器不存在或无法找到。

CreateObject函数用法展示

15.CSng函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'CSng(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币或整数运算的情况下，使用 CDbl 或 CSng 强制执行双精度或单精度运算。
 'CSng 函数用于进行从其他数据类型到 Single 子类型的国际公认的格式转换。例如，对十进制分隔符（如千分符）的识别取决于系统的区域设置。

 '如果 expression 在 Single 子类型允许的范围之外，则发生错误。

 '下面的示例利用 CSng 函数把值转换为 Single(浮点数): 

 Dim MyDouble1, MyDouble2, MySingle1, MySingle2,a,b   ' MyDouble1, MyDouble2 是双精度值。
 MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
 a = CSng(MyDouble1)   ' MySingle1 包含 75.34211 。
 b = CSng(MyDouble2)   ' MySingle2 包含 75.34216 。
 MsgBox  a
 MsgBox b

CSng函数用法展示

16.CStr函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'CStr(expression)
 'expression 参数是任意有效的表达式。

 '说明
 '通常,可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 CStr 强制将结果表示为 String。
 'CStr函数用于替代St 函数来进行从其他数据类型到String子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。
 'expression 根据下表决定返回的数据：

 '如果 expression 为 CStr 返回
 'Boolean 字符串，包含 True 或 False。
 'Date 字符串，包含系统的短日期格式日期。
 'Null 运行时错误。
 'Empty 零长度字符串 ("")。
 'Error 字符串，包含跟随有错误号码的单词 Error。
 '其他数值 字符串，包含此数字。
 '下面的示例利用 CStr 函数把数字转换为 String: 

 Dim MyDouble, MyString
 MyDouble = 437.324         ' MyDouble 是双精度值。
 MyString = CStr(MyDouble)  ' MyString 包含 "437.324"。
 MsgBox MyString

CStr函数用法展示

17.Date函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Date 函数
 '返回当前系统日期。

 'Date
 '说明
 '下面的示例利用 Date 函数返回当前系统日期: 

 Dim MyDate
 MyDate = Date   ' MyDate 包含当前系统日期。
 MsgBox MyDate

Date函数用法展示

18.DateAdd函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'DateAdd 函数
 '返回已添加指定时间间隔的日期。

 'DateAdd(interval, number, date)
 '参数
 'interval
 '必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
 'number
 '必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
 'date
 '必选项。Variant 或要添加 interval 的表示日期的文字。
 '设置
 'interval 参数可以有以下值：

 '设置 描述
 'yyyy 年
 'q 季度
 'm 月
 'y 一年的日数
 'd 日
 'w 一周的日数
 'ww 周
 'h 小时
 'n 分钟
 's 秒 

 '说明
 '可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。

 'DateAdd 函数不会返回无效日期。如下示例将 92 年 1 月 31 日加上一个月： 

 Dim NewDate
 NewDate = DateAdd("m", , "31-Jan-92")
 '在这个示例中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。

 '如果计算的日期是在公元 100 年之前，则会产生错误。

 '如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。
 MsgBox NewDate

DateAdd函数用法展示

19.DateDiff函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'DateDiff 函数
 '返回两个日期之间的时间间隔。
 'DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
 'DateDiff 函数的语法有以下参数：
 '参数
 'interval
 '必选项。字符串表达式表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
 'date1, date2
 '必选项。日期表达式。用于计算的两个日期。
 'Firstdayofweek
 '可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
 'Firstweekofyear
 '可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
 '设置
 'interval 参数可以有以下值：

 '设置 描述
 'yyyy 年
 'q 季度
 'n 月
 'y 一年的日数
 'd 日
 'w 一周的日数
 'ww 周
 'h 小时
 'm 分钟
 's 秒 

 'firstdayofweek 参数可以有以下值：

 '常数 值 描述
 'vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。
 'vbSunday 1 星期日（默认）
 'vbMonday 2 星期一
 'vbTuesday 3 星期二
 'vbWednesday 4 星期三
 'vbThursday 5 星期四
 'vbFriday 6 星期五
 'vbSaturday 7 星期六 

 'firstweekofyear 参数可以有以下值：

 '常数 值 描述
 'vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
 'vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
 'vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
 'vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。 

 '说明
 'DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

 '要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。

 '如果 date1 晚于 date2，则 DateDiff 函数返回负数。

 'firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

 '如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。

 '在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

 '下面的示例利用 DateDiff 函数显示今天与给定日期之间间隔天数: 

 Function DiffADate(theDate)
    DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
 End Function

DateDiff函数用法展示

20.DatePart函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'DatePart 函数
 '返回给定日期的指定部分。
 'DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
 'Arguments
 'interval
 '必选项。字符串表达式表示要返回的时间间隔。有关数值，请参阅“设置”部分。
 'Date
 '必选项。要计算的日期表达式。
 'firstdayof week
 '可选项。指定星期中的第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
 'Firstweekofyear
 '可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
 '设置
 'interval 参数可以有以下值：

 '设置 描述
 'yyyy 年
 'q 季度
 'm 月
 'y 一年的日数
 'd 日
 'w 一周的日数
 'ww 周
 'h 小时
 'n 分钟
 's 秒 

 'firstdayofweek 参数可以有以下值：

 '常数 值 描述
 'vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。
 'vbSunday 1 星期日（默认）
 'vbMonday 2 星期一
 'vbTuesday 3 星期二
 'vbWednesday 4 星期三
 'vbThursday 5 星期四
 'vbFriday 6 星期五
 'vbSaturday 7 星期六 

 'firstweekofyear 参数可以有以下值：

 '常数 值 描述
 'vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
 'vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
 'vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
 'vbFirstFullWeek 3 由在新的一年中第一个完整的周（不跨年度）开始。 

 '说明
 'DatePart 函数用于计算日期并返回指定的时间间隔。例如使用 DatePart 计算某一天是星期几或当前的时间。

 'firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。

 '如果 date 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date 被包含在引号 (" ") 中，并且省略年份，则在代码中每次计算 date 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。.

 '下面的示例利用 DatePart 函数获得日期并显示该日所在的季节。

 Function GetQuarter(TheDate)
    GetQuarter = DatePart("q", TheDate)
 End Function

DatePart函数用法展示

21.DateSerial函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'DateSerial 函数
 '对于指定的年、月、日，返回 Date 子类型的 Variant。
 'DateSerial(year, month, day)
 'Arguments
 'Year
 '从 100 到 9999 之间的数字或数值表达式。
 'Month
 '任意数值表达式。
 'Day
 '任意数值表达式。
 '说明
 '要指定日期，如 1991 年 12 月 31 日，DateSerial 函数中每个参数的取值范围都应该是可接受的；即日的取值应在 1 和 31 之间，月的取值应在 1 和 12 之间。但是，也可以使用表示某日之前或之后的年、月、日数目的数值表达式为每个参数指定相对日期。
 '以下样例中使用了数值表达式代替绝对日期。在这里，DateSerial 函数返回 1990 年 8 月 1 日之前十年 (1990 - 10) 零两个月 (8 - 2) 又一天 (1 - 1) 的日期：即 1980 年 5 月 31 日。
 Dim MyDate1, MyDate2
 MyDate1 = DateSerial(, , )   ' 返回 1970 年 1 月 1 日。
 MyDate2 = DateSerial( - ,  - ,  - )   ' 返回 1980 年 5 月 31 日。
 MsgBox MyDate1
 MsgBox MyDate2
 '对于 year 参数，若取值范围是从 0 到 99，则被解释为 1900 到 1999 年。对于此范围之外的 year 参数，则使用四位数字表示年份（例如 1800 年）。
 '当任何一个参数的取值超出可接受的范围时，则会适当地进位到下一个较大的时间单位。例如，如果指定了 35 天，则这个天数被解释成一个月加上多出来的日数，多出来的日数取决于其年份和月份。但是如果参数值超出 -32,768 到 32,767 的范围，或者由三个参数指定（无论是直接还是通过表达式指定）的日期超出了可以接受的日期范围，就会发生错误。

DateSerial函数用法展示

22.DateValue函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'DateValue 函数
 '返回 Date 子类型的 Variant。

 'DateValue(date)
 'date 参数应是字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日中的一个日期。但是，date 也可以是表示上述范围内的日期、时间或日期时间混合的任意表达式。

 '说明
 '如果 date 参数包含时间信息，则 DateValue 不会返回时间信息。但是如果 date 包含无效的时间信息（如 "89:98"），就会出现错误。
 '如果 date 是某一字符串，其中仅包含由有效的日期分隔符分隔开的数字，则 DateValue 将会根据为系统指定的短日期格式识别月、日和年的顺序。DateValue 还会识别包含月份名称（无论是全名还是缩写）的明确日期。例如，除了能够识别 12/30/1991 和 12/30/91 之外，DateValue 还能识别 December 30, 1991 和 Dec 30, 1991。
 '如果省略了 date 的年份部分，DateValue 将使用计算机系统日期中的当前年份。
 '下面的示例利用 DateValue 函数将字符串转化成日期。也可以利用日期文字直接将日期分配给 Variant 变量， 例如， MyDate = #9/11/63#. 

 Dim MyDate
 MyDate = DateValue("September 11, 2016")    ' 返回日期。
 MsgBox MyDate

DateValue函数用法展示

23.Day函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Day 函数
 '返回 1 到 31 之间的一个整数（包括 1 和31），代表某月中的一天。

 Day(date)
 '是任意可以代表日期的表达式。如果 date 参数中包含 Null，则返回 Null。
 '下面例子利用 Day 函数得到一个给定日期月的天数：
 Dim MyDay
 MyDay = Day("October 21, 2016")   '仅仅返回当天的日期，即21号。
 MsgBox MyDay

Day函数用法展示

24.Eval函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Eval 函数
 '计算一个表达式的值并返回结果。
 '[result = ]Eval(expression)
 '参数
 'result
 '可选项。是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用 Execute 语句代替。
 'expression
 '必选项。可以是包含任何有效 VBScript 表达式的字符串。
 '说明
 '在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试 x 和 y 是否相等。如果相等，result 为 True；否则 result 为 False。Eval 方法总是采用第二种解释，而 Execute 语句总是采用第一种。
 '注意   在Microsoft JScript 中不存在这种比较与赋值的混淆，因为赋值运算符 (=) 与比较运算符 (==) 不同。
 '下面的例子说明了 Eval 函数的用法： 

 Sub GuessANumber
    Dim Guess, RndNum
    RndNum = Int(() * Rnd() + )
    Guess = CInt(InputBox("Enter your guess:",,))
    Do
       If Eval("Guess = RndNum") Then
          MsgBox "祝贺你！猜对了！"
          Exit Sub
       Else
          Guess = CInt(InputBox("对不起，请再试一次",,))
       End If
    Loop Until Guess =
 End Sub

Eval函数用法展示

25.Exp函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Exp 函数
 '返回 e（自然对数的底）的幂次方。

 'Exp(number)
 'number 参数可以是任意有效的数值表达式。

 '说明
 '如果 number 参数超过 709.782712893，则出现错误。常数 e 的值约为 2.718282。

 '注意   Exp 函数完成 Log 函数的反运算，并且有时引用为反对数形式。
 '下面的示例利用 Exp 函数返回 e 的幂次方: 

 Dim MyAngle, MyHSin   ' 用弧度定义角。
 MyAngle = 1.3   ' 计算双曲线的正弦。
 MyHSin = (Exp(MyAngle) - Exp(- * MyAngle)) /
 MsgBox MyHSin

Exp函数用法展示

26.Filter函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com

 'Filter 函数
 '返回下标从零开始的数组，其中包含以特定过滤条件为基础的字符串数组的子集。
 'Filter(InputStrings, Value[, Include[, Compare]])
 '参数
 'InputStrings
 '必选项。一维数组，要在其中搜索字符串。
 'Value
 '必选项。要搜索的字符串。
 'Include
 '可选项。Boolean 值，指定返回的子字符串是否包含 Value。如果 Include 为 True，Filter 将返回包含子字符串 Value 的数组子集。如果 Include 为 False，Filter 将返回不包含子字符串 Value 的数组子集。
 'Compare
 '可选项。数字值指出使用的比较字符串类型。请参阅值设置部分。
 '设置
 'Compare 参数可以有以下值：
 '常数 值 描述
 'vbBinaryCompare 0 执行二进制比较。
 'vbTextCompare 1 执行文本比较。
 '说明
 '如果在 InputStrings 中没有找到与 Value 匹配的值，Filter 将返回空数组。如果 InputStrings 为 Null 或者不是一维数组，则会发生错误。
 '由Filter函数返回的数组仅包含足以包含匹配项数目的元素。
 '下面例子利用Filter函数返回包含搜索条件 "Mon" 的数组:
 Dim MyIndex
 Dim MyArray ()
 MyArray() = "Sunday"
 MyArray() = "Monday"
 MyArray() = "Tuesday"
 MyIndex = Filter(MyArray, "Mon") 'MyIndex(0) 包含 "Monday"。
 MsgBox MyIndex()

Filter函数用法展示

27.FormatCurrency函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'FormatCurrency 函数
 '返回表达式，此表达式已被格式化为货币值（使用系统控制面板中定义的货币符号）。
 'FormatCurrency(
 '   expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
 ')
 '参数
 'Expression
 '必选项。要被格式化的表达式。
 'NumDigitsAfterDecimal
 '可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
 'IncludeLeadingDigit
 '可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
 'UseParensForNegativeNumbers
 '可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
 'GroupDigits
 '可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
 '设置
 'IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：
 '常数 值 描述
 'TristateTrue -1 True
 'TristateFalse 0 False
 'TristateUseDefault -2 使用计算机区域设置中的设置。
 '说明
 '当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。与货币值相关的货币符号的位置由系统的区域设置决定。
 '注意   除“显示起始的零”设置来自区域设置的“数字”附签外，所有其他设置信息均取自区域设置的“货币”附签。
 '下面例子利用 FormatCurrency 函数把 expression 格式化为 currency 并且赋值给 MyCurrency:
 Dim MyCurrency
 MyCurrency = FormatCurrency()   'MyCurrency 包含 $1000.00 。
 MsgBox MyCurrency

FormatCurrency函数用法展示

28.FormatDateTime函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'FormatDateTime 函数
 '返回表达式，此表达式已被格式化为日期或时间。
 'FormatDateTime(Date[, NamedFormat])
 '参数
 'Date
 '必选项。要被格式化的日期表达式。
 'NamedFormat
 '可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
 '设置
 'NamedFormat 参数可以有以下值：
 '常数 值 描述
 'vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
 'vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
 'vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
 'vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
 'vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。
 '说明
 '下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:
 Function GetCurrentDate
    'FormatDateTime 把日期型格式化为长日期型。
    GetCurrentDate = FormatDateTime(Date, )
 End Function

FormatDateTime函数用法展示

29.FormatNumber函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'FormatNumber 函数
 '返回表达式，此表达式已被格式化为数值。
 'FormatNumber(
 '   expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
 ')
 'Arguments
 'Expression
 '必选项。要被格式化的表达式。
 'NumDigitsAfterDecimal
 '可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
 'IncludeLeadingDigit
 '可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
 'UseParensForNegativeNumbers
 '可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
 'GroupDigits
 '可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
 '设置
 'IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：
 '常数 值 描述
 'TristateTrue -1 True
 'TristateFalse 0 False
 'TristateUseDefault -2 使用计算机区域设置中的设置。
 '说明
 '当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。
 '注意   所有设置信息均取自区域设置的“数字”附签。
 '下面例子利用 FormatNumber 函数把数值格式化为带四位小数点的数:
 Function FormatNumberDemo
    Dim MyAngle, MySecant, MyNumber
    MyAngle = 1.3                ' 用弧度定义角。
    MySecant =  / Cos(MyAngle)  ' 计算正割值。
    FormatNumberDemo = FormatNumber(MySecant,) ' 把 MySecant 格式化为带四位小数点的数。
 End Function

FormatNumber函数用法展示

30.FormatPercent函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'FormatPercent 函数
 '返回表达式，此表达式已被格式化为尾随有 % 符号的百分比（乘以 100 ）。
 'FormatPercent(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
 'FormatPercent 函数的语法有以下参数：
 '参数
 'Expression
 '必选项。要被格式化的表达式。
 'NumDigitsAfterDecimal
 '可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
 'IncludeLeadingDigit
 '可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
 'UseParensForNegativeNumbers
 '可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
 'GroupDigits
 '可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
 '设置
 'IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：
 '常数 值 描述
 'TristateTrue -1 True
 'TristateFalse 0 False
 'TristateUseDefault -2 使用计算机区域设置中的设置。
 '说明
 '当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。
 '注意   所有设置信息均取自区域设置的“数字”附签。
 '下面例子利用 FormatPercent 函数把表达式格式化为百分数:
 Dim MyPercent
 MyPercent = FormatPercent(/) 'MyPercent 包含 6.25%。
 MsgBox MyPercent

FormatPercent函数用法展示

31.GetLocale函数

 Option Explicit
 '@author :yinzhengjie
 'blog:http://www.cnblogs.com/yinzhengjie/tag/VBScript/
 'EMAIL:y1053419035@qq.com
 'GetLocale 函数
 '返回当前区域设置 ID 值。
 'GetLocale()
 '说明
 'locale 是用户参考信息集合，与用户的语言、国家/地区和文化传统有关。locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。
 '返回值可以是任意一个 32-位 的值，如区域设置 ID所示：
 '下面举例说明 GetLocale 函数的用法。要使用该代码，请复制标准HTML 文件中 <BODY> 标志之间的所有内容。
 'Enter Date in UK format: <input type="text" id="UKDate" size="20"><p>
 'Here's the US equivalent: <input type="text" id="USdate" size="20"><p>
 '<input type="button" value="Convert" id="button1"><p>
 'Enter a price in German: &nbsp; <input type="text" id="GermanNumber" size="20">
 '<p>
 'Here's the UK equivalent: <input type="text" id="USNumber" size="20"><p>
 '<input type="button" value="Convert" id="button2"><p>
 '<script language="vbscript">
 Dim currentLocale
 ' 获取当前的区域设置
 currentLocale = GetLocale

 Sub Button1_onclick
   Dim original
   original = SetLocale("en-gb")
   mydate = CDate(UKDate.value)
   ' IE 始终将区域设置设置为“美国英语”，
   ' 所以请使用 currentLocale 变量将区域设置设置为“美国英语”。
   original = SetLocale(currentLocale)
   USDate.value = FormatDateTime(mydate,vbShortDate)
 End Sub

 Sub button2_onclick
   Dim original
   original = SetLocale("de")
   myvalue = CCur(GermanNumber.value)
   original = SetLocale("en-gb")
   USNumber.value = FormatCurrency(myvalue)
 End Sub

 '</script> 

GetLocale函数用法展示