'==============================
''' ---- 常用VB函数 --------
''' 可查阅相关VBScript5.5帮助
'==============================


''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被转换为 Byte 子类型的 Variant
Function vbCByte(expression)
	vbCByte = CByte(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被转换为 Currency 子类型的 Variant
Function vbCCur(expression)
	vbCCur = CCur(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被转换为 Date 子类型的 Variant
Function vbCDate(date)
	vbCDate = CDate(date)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被转换为 Integer 子类型的 Variant
Function vbCInt(expression)
	vbCInt = CInt(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，该表达式已被转换为 String 子类型的 Variant
Function vbCStr(expression)
	vbCStr = CStr(expression)
End Function
''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值指明某变量是否为数组
Function vbIsArray(varname)
	vbIsArray = IsArray(varname)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值指明某表达式是否可以转换为日期
Function vbIsDate(expression)
	vbIsDate = IsDate(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值指明变量是否已初始化
Function vbIsEmpty(expression)
	vbIsEmpty = IsEmpty(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值，指明表达式是否不包含任何有效数据 (Null)
Function vbIsNull(expression)
	vbIsNull = IsNull(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值指明表达式的值是否为数字
Function vbIsNumeric(expression)
	vbIsNumeric = IsNumeric(expression)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Boolean 值指明表达式是否引用了有效的 Automation 对象
Function vbIsObject(expression)
	vbIsObject = IsObject(expression)
End Function
''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''
''' 根据计算机系统设定的日期和时间返回当前的日期和时间值
Function vbNow()
	vbNow = Now()
End Function
''' 返回当前系统日期
Function vbDate()
	vbDate = Date()
End Function
''' 返回 Date 子类型 Variant，指示当前系统时间
Function vbTime()
	vbTime = Time()
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回一个代表某年的整数
Function vbYear(date)
	vbYear = Year(date)
End Function
''' 返回 1 到 12 之间的一个整数（包括 1 和 12），代表一年中的某月
Function vbMonth(date)
	vbMonth = Month(date)
End Function
''' 返回 1 到 31 之间的一个整数（包括 1 和31），代表某月中的一天
Function vbDay(date) 
	vbDay = Day(date)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时
Function vbHour(time)
	vbHour = Hour(time)
End Function
''' 返回 0 到 59 之间的一个整数（包括 0 和59），代表一小时内的某一分钟
Function vbMinute(time)
	vbMinute = Minute(time)
End Function
''' 返回 0 到 59 之间的一个整数（包括 1 和 59），代表一分钟内的某一秒
Function vbSecond(time)
	vbSecond = Second(time)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回代表一星期中某天的整数
Function vbWeekday(date)
	vbWeekday = Weekday(date, 2)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回一个字符串，表示星期中指定的某一天。
Function vbWeekdayName(weekday, abbreviate)
	vbWeekdayName = WeekdayName(weekday, abbreviate, 2)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回已添加指定时间间隔的日期
Function vbDateAdd(interval, number, date)
	vbDateAdd = DateAdd(interval, number, date)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回两个日期之间的时间间隔
Function vbDateDiff(interval, date1, date2)
	vbDateDiff = DateDiff(interval, date1, date2)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回给定日期的指定部分
Function vbDatePart(interval, date)
	vbDatePart = DatePart(interval, date)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 对于指定的年、月、日，返回 Date 子类型的 Variant
Function vbDateSerial(year, month, day)
	vbDateSerial = DateSerial(year, month, day)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回 Date 子类型的 Variant
Function vbDateValue(date)
	vbDateValue = DateValue(date)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间
Function vbTimeSerial(hour,minute, second)
	vbTimeSerial = TimeSerial(hour,minute, second)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回包含时间的 Date 子类型的 Variant
Function vbTimeValue(time)
	vbTimeValue = TimeValue(time)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回午夜 12 时以后已经过去的秒数
Function vbTimer()
	vbTimer = Timer()
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表明指定月份的字符串
Function vbMonthName(month, abbreviate)
	vbMonthName = MonthName(month, abbreviate)
End Function
''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被格式化为货币值
Function vbFormatCurrency(expression)
	vbFormatCurrency = FormatCurrency(expression, 2, -1)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被格式化为日期或时间
Function vbFormatDateTime(Date, NamedFormat)
	vbFormatDateTime = FormatDateTime(Date, NamedFormat)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被格式化为数值
Function vbFormatNumber(expression ,NumDigitsAfterDecimal)
	vbFormatNumber = FormatNumber(expression, NumDigitsAfterDecimal, -1)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表达式，此表达式已被格式化为尾随有 % 符号的百分比 
Function vbFormatPercent(expression ,NumDigitsAfterDecimal)
	vbFormatPercent = FormatPercent(expression, NumDigitsAfterDecimal, -1)
End Function
''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''
''' 返回表示十六进制数字值的字符串
Function vbHex(number)
	vbHex = Hex(number)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回表示数字八进制值的字符串
Function vbOct(number)
	vbOct = Oct(number)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回字符串的小写形式
Function vbLCase(string)
	vbLCase = LCase(string)
End Function
''' 返回字符串的大写形式
Function vbUCase(string)
	vbUCase = UCase(string)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回指定数目的从字符串的左边算起的字符
Function vbLeft(string, length)
	vbLeft = Left(string, length)
End Function
''' 从字符串中返回指定数目的字符
Function vbMid(string, start, length)
	vbMid = Mid(string, start, length)
End Function
''' 从字符串右边返回指定数目的字符
Function vbRight(string, length)
	vbRight = Right(string, length)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回不带前导与后续空格的字符串副本
Function vbTrim(string)
	vbTrim = Trim(string)
End Function
''' 返回不带前导空格的字符串副本
Function vbLTrim(string)
	vbTrim = Trim(string)
End Function
''' 返回不带后续空格的字符串副本
Function vbRTrim(string)
	vbTrim = Trim(string)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回某字符串在另一字符串中第一次出现的位置
Function vbInStr(string1, string2)
	vbInStr = InStr(string1, string2)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回某字符串在另一个字符串中出现的从结尾计起的位置。
Function vbInStrRev(string1, string2)
	vbInStrRev = InStrRev(string1, string2)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回字符串，其中指定数目的某子字符串被替换为另一个子字符串
Function vbReplace(expression, find, replacewith)
	vbReplace = Replace(expression, find, replacewith)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回由指定数目的空格组成的字符串
Function vbSpace(number)
	vbSpace = Space(number)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回具有指定长度的、重复字符组成的字符串
Function vbString(number, character)
	vbString = String(number, character)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回字符串，此字符串与指定字符串顺序相反
Function vbStrReverse(string1)
	vbStrReverse = StrReverse(string1)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集
Function vbFilter(InputStrings, Value)
	vbFilter = Filter(InputStrings, Value)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回基于 0 的一维数组，其中包含指定数目的子字符串
Function vbSplit(expression, delimiter)
	vbSplit = Split(expression, delimiter)
End Function
''''''''''''''''''''''''''''''''''''''''
''' 返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建
Function vbJoin(list, delimiter)
	vbJoin = Join(list, delimiter)
End Function
''''''''''''''''''''''''''''''''''''''''