wincc中使用vbs的常用函数
1.函数array() 功能:创建一个数组变量 格式:array(list)
参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子:
<% i = array (“1”,”2”,”3”) %> 结果: i 被赋予为数组 2.函数Cint()
功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression)
参数:expression 是任何有效的表达式/其它类型的变量 例子: <%
f = ”234”
response.write cINT(f) + 2 %> 结果: 236
函数Cint()将字符”234”转换 成整数234.如果表达式为空,3.函数:Creatobject()
功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数bname 是对象的名称 例子: <%
Set con = Server.CreateObject(“ADODB.Connection”) %> 结果: 4.函数Cstr()
功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression)
参数:expression是任何有效的表达式/其它类型的变量 例子: <%
s = 3 + 2
response.write ”The result is: ” & cStr(s) %>
结果:函数Cstr()将整数 5 转换 成字符”5”. 5.函数Date()
功能:返回当前系统(server端)的日期
或者无效时,返回值为0; 格式: Date() 参数:无
例子<% date () %> 结果:05/10/00 6.函数Dateadd()
功能:计算某个指定的时间和
格式: dateadd(timeinterval,number,date)
参数:timeinterval是时间单位(月,日..); number是时间间隔值,date是时间始点. 例子: <%
currentDate = #8/4/99#
newDate = DateAdd(“m”,3,currentDate) response.write newDate %> <%
currentDate = #12:34:45 PM#
newDate = DateAdd(“h”,3,currentDate) response.write newDate %> 结果: 11/4/99 3:34:45 PM 其中
“m” = ”month”; “d” = ”day”; 如果是currentDate 格式,则, “h” = ”hour”; “s” = ”second”; 7.函数Datediff()
功能:计算某量个指定的时间差
格式: datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]]) 参数: 例子: <%
fromDate = #8/4/99# toDate = #1/1/2000#
response.write ”There are ” & _ DateDiff(“d”,fromDate,toDate) & _ “ days to millenium from 8/4/99.” %>
结果:There are 150 days to millenium from 8/4/99. 8.函数day()
功能:返回一个整数值,对应于某月的某日 格式: day(date)
timeinterval
是时间单位;
date1,date2
是有效的日期表达
式,firstdayofweek,firstdayofyear 是任意选项.
参数: date是一个有效的日期表达式; 例子<% =date(#8/4/99#) %> 结果:4
9.函数formatcurrency() 功能:转换成货币格式
格式: formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])
参数: expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项.
例子<%=FormatCurrency(34.3456)%> 结果34.35
10.函数Formatdatetime() 功能:格式化日期表达式/变量
格式: formatdatetime(date[,nameformat])
参数: date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称. 例子<% =formatdatetime(“08/04/99”,vblongdate) %> 结果:Wednesday,August 04,1999 说明:
-------------------------------------------------------------------------------- 描述
返回表达式，此表达式已被格式化为日期或时间。 语法
FormatDateTime(Date[, NamedFormat]) FormatDateTime 函数的语法有以下参数：
参数 描述
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, 1) End Function
11.函数Isnumeric()
功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量. 格式:isnumeric(expression) 参数:expression 是任意的变量. 例子: <% i=“234”
response.write isnumeric(i) %> 结果: true. 12.函数Isobject()
功能:返回一个布尔值,判断变量是否为对象的变量, 格式: isobject(expression) 参数: expression 是任意的变量. 例子: <%
set con =server.creatobject(“adodb.connection”) response.write isobject(con) %> 结果: true 13.函数:Lbound()
功能:返回一个数组的下界. 格式:Lbound(arrayname[,dimension])
参数:arrayname 是数组变量,dimension 是任意项 例子: <%
i = array(“1”,”2”,”3
”) response.write lbound(i) %> 结果:0
14.函数Lcase()
功能:将一字符类型变量的字符全部变换小写字符. 格式:Lcase(string) 参数:string是字符串变量
例子: <%
str=“THIS is Lcase!” response.write Lcase(str) %>
结果:this is lcase! 15.函数left()
功能:截取一个字符串的前部分; 格式:left(string,length)
参数:string字符串,length截取的长度.
例子: <% =left(“this is a test!”,6) %> 结果:this i 16.函数len()
功能:返回字符串长度或者变量的字节长度 格式:len(string *varname)
参数:string字符串;varname任意的变量名称 例子: <%
strtest=“this is a test!” response.write left(strtest) %> 结果:15 17.函数ltrim()
功能:去掉字符串前的空格. 格式:ltrim(string) 参数:string 字符串.
例子: <% =ltrim (“ this is a test!”) 结果:this is a test! 18.函数Mid()
功能:从字符串中截取字符串. 格式:mid(string,start [,length])
参数:string字符串,start截取的起点,length要截取的长度. 例子: <%
strtest=“this is a test, Today is Monday!” response.write mid(strtest,17,5) %> 结果:Today 19.函数minute()
功能:返回一数值, 表示分钟 格式:minute(time) 参数: time是时间变量
例子lt;% =minute(#12:23:34#) %> 结果:23