VBScript 提供了一些用于处理日期和时间的内置函数。以下是其中的一些常用函数：

1. Date()

• 功能：返回当前日期和时间。

• 示例：Dim currentDate, currentTime currentDate = Date() currentTime = Time() WScript.Echo "当前日期：" & currentDate WScript.Echo "当前时间：" & currentTime

2. Now()

• 功能：返回当前日期和时间。

• 示例：Dim currentDateTime currentDateTime = Now() WScript.Echo "当前日期和时间：" & currentDateTime

3. Time()

• 功能：返回当前时间。

• 示例：Dim currentTime currentTime = Time() WScript.Echo "当前时间：" & currentTime

4. Timer()

• 功能：返回从午夜开始经过的秒数。

• 示例：Dim elapsedTime elapsedTime = Timer() WScript.Echo "经过的时间（秒）：" & elapsedTime

5. Year(date), Month(date), Day(date)

• 功能：从给定的日期中提取年份、月份或日期。

• 示例：Dim year, month, day year = Year(#12/31/2023#) ' 2023 month = Month(#12/31/2023#) ' 12 day = Day(#12/31/2023#) ' 31

6. DayOfWeek(date)

• 功能：返回给定日期的星期几，以数字表示（1=星期日，2=星期一，以此类推）。

• 示例：Dim dayOfWeekNumber, dayOfWeekText dayOfWeekNumber = DayOfWeek(#12/31/2023#) ' 假设返回值是 2，代表星期一 dayOfWeekText = Weekday(#12/31/2023#, vbMonday) ' 星期一

7. FormatDateTime(date, format)

• 功能：格式化日期和时间。

• 示例：Dim formattedDate formattedDate = FormatDateTime(#12/31/2023#, vbLongDate) ' "Long Date" 格式，例如 "Sunday, December 31, 2023"

8. WeekNum(date, firstDayOfWeek)

• 功能：返回给定日期的周数。第一个参数是日期，第二个参数是星期的开始（例如，星期日或星期一）。

• 示例：Dim weekNum weekNum = WeekNum(#12/31/2023#, vbSundayFirst)

9. DateAdd(interval, number, date)

• 功能：在给定的日期上添加指定的时间间隔。例如，可以添加天、周、月、年等。

• 示例：Dim newDate newDate = DateAdd("m", 6, #1/1/2024#) ' 在 1 月 1 日的六个月后' #7/1/2024#

VBScript 提供了许多数学运算函数，这些函数可以在脚本中进行数学计算时使用。以下是一些常用的 VBScript 数学运算函数：

1. Abs(x)：返回数字 x 的绝对值。

Dim result    
result = Abs(-10) ' 结果为 10

2. Sqr(x)：返回数字 x 的平方根。

Dim result    
result = Sqr(16) ' 结果为 4

3. Log(x)：返回数字 x 的自然对数（以 e 为底）。

Dim result    
result = Log(1000) ' 结果约为 6.9078（因为 log_e(1000) 的近似值）

4. Exp(x)：返回 e 的 x 次幂。

Dim result    
result = Exp(2) ' 结果约为 7.3891（因为 e^2 的近似值）

5. Rnd：返回大于等于 0 且小于 1 的随机数。可以提供一个可选参数作为随机数生成器的种子。

Dim randomNumber    
randomNumber = Rnd()

6. Round(x, [n])：将数字 x 四舍五入到指定的小数位数或最接近的整数。可选参数 n 指定小数位数。如果不提供 n，则默认为 0。

Dim roundedNumber    
roundedNumber = Round(10.5678, 2) ' 结果为 10.57      
roundedNumber = Round(3.14159, 0) ' 结果为 3

7. Fix(x) 和 Int(x)：返回数字 x 的整数部分**。Fix(x)** 函数会向下取整，而 Int(x) 函数会向零取整。当 x 为负数时，两者行为不同。

Dim result1, result2    
result1 = Fix(-5.7) ' 结果为 -5      
result2 = Int(-5.7) ' 结果为 -6

VBScript 提供了许多用于字符串处理的函数。以下是一些常用的 VBScript 字符串处理函数：

1. Len(string)：返回字符串的长度。

Dim length    
length = Len("Hello") ' 结果为 5

2. UCase(string) 和 LCase(string)：将字符串转换为大写或小写。

Dim upper, lower    
upper = UCase("hello") ' 结果为 "HELLO"      
lower = LCase("HELLO") ' 结果为 "hello"

3. Mid(string, start[, length])：从字符串中提取子字符串。start 是开始位置（第一个字符的索引为 1），length 是可选参数，表示要提取的字符数。

Dim substring    
substring = Mid("abcdef", 3, 2) ' 结果为 "cd"

4. Left(string, length) 和 Right(string, length)：从字符串的左侧或右侧提取指定长度的子字符串。

Dim leftString, rightString    
leftString = Left("abcdef", 3) ' 结果为 "abc"      
rightString = Right("abcdef", 3) ' 结果为 "def"

5. InStr([start, ]string1, string2[, compare])：返回指定子字符串在另一个字符串中首次出现的位置。start 是可选参数，指定搜索的起始位置。compare 是可选参数，指定比较的类型（1 表示二进制，0 或省略表示文本）。

Dim position    
position = InStr("abcdef", "bc") ' 结果为 2

6. Replace(string, find, replace[, start[, count[, compare]]])：在字符串中替换指定的子字符串。start 和 count 是可选参数，分别指定替换操作的起始位置和计数。compare 同 InStr。

Dim newString    
newString = Replace("hello world", "world", "VBScript") ' 结果为 "hello VBScript"

7. Split(string, delimiter[, limit][, compare])：将字符串按指定的分隔符拆分成数组。delimiter 是分隔符，limit 是可选参数，指定返回的数组大小。compare 同 InStr。

Dim parts()    
parts = Split("apple,banana,orange", ",") ' 结果为 {"apple", "banana", "orange"}

VBScript 提供了几个数据类型转换函数，用于将数据从一种类型转换为另一种类型。以下是一些常用的 VBScript 数据类型转换函数：

1. CStr(expression)：将表达式转换为字符串类型。

Dim myNumber    
myNumber = 5      
Dim myString    
myString = CStr(myNumber) ' 结果为 "5"

2. CSng(expression)：将表达式转换为单精度浮点数类型。

Dim myString    
myString = "123.45"      
Dim mySingle    
mySingle = CSng(myString) ' 结果为 123.45

3. CDbl(expression)：将表达式转换为双精度浮点数类型。

Dim myString    
myString = "12345.6789"      
Dim myDouble    
myDouble = CDbl(myString) ' 结果为 12345.6789

4. CInt(expression)：将表达式转换为整数类型。它会自动向下取整。

Dim myDouble    
myDouble = 123.456789      
Dim myInt    
myInt = CInt(myDouble) ' 结果为 123

5. CLng(expression)：将表达式转换为长整数类型。它会自动向下取整。

Dim myDouble    
myDouble = 123456789.123456789      
Dim myLong    
myLong = CLng(myDouble) ' 结果为 123456789

VBScript 提供了几个用于检验特定条件的函数。以下是一些常用的 VBScript 检验函数：

1. IsNumeric(expression)：检查表达式是否为数字类型。如果表达式是数字或可转换为数字的字符串，则返回 True，否则返回 False。

Dim result    
result = IsNumeric(123) ' 结果为 True      
result = IsNumeric("abc") ' 结果为 False

2. IsDate(expression)：检查表达式是否为日期类型。如果表达式是有效的日期或可转换为日期的字符串，则返回 True，否则返回 False。

Dim result    
result = IsDate("2023-07-19") ' 结果为 True      
result = IsDate("abc") ' 结果为 False

3. IsEmpty(expression)：检查表达式是否为空值。如果表达式未初始化或未设置任何值，则返回 True，否则返回 False。

Dim result    
result = IsEmpty(Nothing) ' 结果为 True      
result = IsEmpty("Hello") ' 结果为 False

4. IsArray(expression)：检查表达式是否为数组类型。如果表达式是数组，则返回 True，否则返回 False。

Dim myArray(3) As Integer    
Dim result    
result = IsArray(myArray) ' 结果为 True

5. IsObject(expression)：检查表达式是否为对象类型。如果表达式是对象，则返回 True，否则返回 False。

Dim myObject As Object    
Dim result    
Set myObject = CreateObject("Scripting.FileSystemObject")    
result = IsObject(myObject) ' 结果为 True