VBS函数大全.docx
- 文档编号:12187526
- 上传时间:2023-04-17
- 格式:DOCX
- 页数:83
- 大小:58.46KB
VBS函数大全.docx
《VBS函数大全.docx》由会员分享,可在线阅读,更多相关《VBS函数大全.docx(83页珍藏版)》请在冰豆网上搜索。
VBS函数大全
VBS函数大全
Abs函数
返回数字的绝对值。
Abs(number)
number参数可以是任意有效的数值表达式。
如果number包含Null,则返回Null;如果是未初始化变量,则返回0。
说明
数字的绝对值是其无符号的数值大小。
例如,Abs(-1)和Abs
(1)都返回1。
下面示例利用Abs函数计算数字的绝对值:
DimMyNumber
MyNumber=Abs(50.3) '返回50.3。
MyNumber=Abs(-50.3) '返回50.3。
Array函数
返回包含数组的Variant。
Array(arglist)
arglist参数是赋给包含在Variant中的数组元素的值的列表(用逗号分隔)。
如果没有指定此参数,则将会创建零长度的数组。
说明
用于引用数组元素的表示符,由跟随有括号的变量名组成,括号中包含指示所需元素的索引号。
在下面的示例中,第一条语句创建名为A的变量。
第二条语句将一个数组赋值给变量A。
最后一条语句将包含在第二个数组元素中的值赋值给另一个变量。
DimA
A=Array(10,20,30)
B=A
(2)'Bisnow30。
注意未作为数组声明的变量仍可以包含数组。
虽然包含数组的Variant变量与包含Variant元素的数组变量有概念上的不同,但访问数组元素的方法是相同的。
Asc函数
返回与字符串的第一个字母对应的ANSI字符代码。
Asc(string)
string参数是任意有效的字符串表达式。
如果string参数未包含字符,则将发生运行时错误。
说明
下面例子中,Asc返回每一个字符串首字母的ANSI字符代码:
DimMyNumber
MyNumber=Asc("A")'返回65。
MyNumber=Asc("a")'返回97。
MyNumber=Asc("Apple")'返回65。
注意 AscB函数和包含字节数据的字符串一起使用。
AscB不是返回第一个字符的字符代码,而是返回首字节。
AscW是为使用Unicode字符的32位平台提供的。
它返回Unicode(宽型)字符代码,因此可以避免从ANSI到Unicode的代码转换。
Atn函数
返回数值的反正切值。
Atn(number)
number参数可以是任意有效的数值表达式。
说明
Atn函数计算直角三角形两个边的比值(number)并返回对应角的弧度值。
此比值是该角对边的长度与邻边长度之比。
结果的范围是从-pi/2到pi/2弧度。
弧度变换为角度的方法是将弧度乘以pi/180。
反之,角度变换为弧度的方法是将角度乘以180/pi。
下面的示例利用Atn来计算pi的值:
Dimpi
pi=4*Atn
(1)'计算pi的值。
注意Atn是Tan(将角作为参数返回直角三角形两边的比值)的反三角函数。
不要混淆Atn与余切(正切的倒数(1/tangent))函数。
CBool函数
返回表达式,此表达式已转换为Boolean子类型的Variant。
CBool(expression)
expression是任意有效的表达式。
说明
如果expression是零,则返回False;否则返回True。
如果expression不能解释为数值,则将发生运行时错误。
下面的示例使用CBool函数将一个表达式转变成Boolean类型。
如果表达式所计算的值非零,则CBool函数返回True;否则返回False。
DimA,B,Check
A=5:
B=5'初始化变量。
Check=CBool(A=B)'复选框设为True。
A=0'定义变量。
Check=CBool(A)'复选框设为False。
CByte函数
返回表达式,此表达式已被转换为Byte子类型的Variant。
CByte(expression)
expression参数是任意有效的表达式。
说明
通常,可以使用子类型转换函数书写代码,以显示某些操作的结果应被表示为特定的数据类型,而不是默认类型。
例如,在出现货币、单精度、双精度或整数运算的情况下,使用CByte强制执行字节运算。
CByte函数用于进行从其他数据类型到Byte子类型的的国际公认的格式转换。
例如对十进制分隔符(如千分符)的识别,可能取决于系统的区域设置。
如果expression在Byte子类型可接受的范围之外,则发生错误。
下面的示例利用CByte函数把expression转换为byte:
DimMyDouble,MyByte
MyDouble=125.5678'MyDouble是一个双精度值。
MyByte=CByte(MyDouble)'MyByte包含126。
CCur函数
返回表达式,此表达式已被转换为Currency子类型的Variant。
CCur(expression)
expression参数是任意有效的表达式。
说明
通常,您可以使用子类型数据转换函数书写代码,以显示某些操作的结果应当被表达为特定的数据类型,而非默认的数据类型。
例如在整数运算的情况下,使用CCur函数强制进行货币计算。
CCur函数用于进行从其他数据类型到Currency子类型的国际公认的格式转换。
例如,对十进制分隔符和千位分隔符的识别取决于系统的区域设置。
下面的示例使用CCur函数将一个表达式转换成Currency类型:
DimMyDouble,MyCurr
MyDouble=543.214588'MyDouble是双精度的。
MyCurr=CCur(MyDouble*2)'把MyDouble*2(1086.429176)的结果转换为Currency(1086.4292)。
CDate函数
返回表达式,此表达式已被转换为Date子类型的Variant。
CDate(date)
date参数是任意有效的日期表达式。
说明
IsDate函数用于判断date是否可以被转换为日期或时间。
CDate识别日期文字和时间文字,以及一些在可接受的日期范围内的数字。
在将数字转换为日期时,数字的整数部分被转换为日期,分数部分被转换为从午夜开始计算的时间。
CDate根据系统的区域设置识别日期格式。
如果数据的格式不能被日期设置识别,则不能判断年、月、日的正确顺序。
另外,如果长日期格式包含表示星期几的字符串,则不能被识别。
下面的示例使用CDate函数将字符串转换成日期类型。
一般不推荐使用硬件译码日期和时间作为字符串(下面的例子已体现)。
而使用时间和日期文字(如#10/19/1962#,#4:
45:
23PM#)。
MyDate="October19,1962" '定义日期。
MyShortDate=CDate(MyDate) '转换为日期数据类型。
MyTime="4:
35:
47PM" '定义时间。
MyShortTime=CDate(MyTime) '转换为日期数据类型。
CDbl函数
返回表达式,此表达式已被转换为Double子类型的Variant。
CDbl(expression)
expression参数是任意有效的表达式。
说明
通常,您可以使用子类型数据转换函数书写代码,以显示某些操作的结果应当被表达为特定的数据类型,而非默认的数据类型。
例如在出现货币或整数运算的情况下,使用CDbl或CSng函数强制进行双精度或单精度算术运算。
CDbl函数用于进行从其他数据类型到Double子类型的国际公认的格式转换。
例如,十进制分隔符和千位分隔符的识别取决于系统的区域设置。
下面的示例利用CDbl函数把expression转换为Double。
DimMyCurr,MyDouble
MyCurr=CCur(234.456784)'MyCurr是Currency型(234.4567)。
MyDouble=CDbl(MyCurr*8.2*0.01)'把结果转换为Double型(19.2254576)。
Chr函数
返回与指定的ANSI字符代码相对应的字符。
Chr(charcode)
charcode参数是可以标识字符的数字。
说明
从0到31的数字表示标准的不可打印的ASCII代码。
例如,Chr(10)返回换行符。
下面例子利用Chr函数返回与指定的字符代码相对应的字符:
DimMyChar
MyChar=Chr(65)'返回A。
MyChar=Chr(97)'返回a。
MyChar=Chr(62)'返回>。
MyChar=Chr(37)'返回%。
注意 ChrB函数与包含在字符串中的字节数据一起使用。
ChrB不是返回一个或两个字节的字符,而总是返回单个字节的字符。
ChrW是为使用Unicode字符的32位平台提供的。
它的参数是一个Unicode(宽字符)的字符代码,因此可以避免将ANSI转化为Unicode字符。
CInt函数
返回表达式,此表达式已被转换为Integer子类型的Variant。
CInt(expression)
expression参数是任意有效的表达式。
说明
通常,可以使用子类型转换函数书写代码,以显示某些操作的结果应被表示为特定的数据类型,而不是默认类型。
例如,在出现货币、单精度或双精度运算的情况下,使用CInt或CLng强制执行整数运算。
CInt函数用于进行从其他数据类型到Integer子类型的国际公认的格式转换。
例如对十进制分隔符(如千分符)的识别,可能取决于系统的区域设置。
如果expression在Integer子类型可接受的范围之外,则发生错误。
下面的示例利用CInt函数把值转换为Integer:
DimMyDouble,MyInt
MyDouble=2345.5678'MyDouble是Double。
MyInt=CInt(MyDouble)'MyInt包含2346。
注意 CInt不同于Fix和Int函数删除数值的小数部分,而是采用四舍五入的方式。
当小数部分正好等于0.5时,CInt总是将其四舍五入成最接近该数的偶数。
例如,0.5四舍五入为0,以及1.5四舍五入为2.
CLng函数
返回表达式,此表达式已被转换为Long子类型的Variant。
CLng(expression)
expression参数是任意有效的表达式。
说明
通常,您可以使用子类型数据转换函数书写代码,以显示某些操作的结果应当被表达为特定的数据类型,而非默认的数据类型。
例如,在出现货币运算、单精度或双精度算术运算的情况下,使用CInt或CLng函数强制进行整数运算。
CLng函数用于进行从其他数据类型到Long子类型的的国际公认的格式转换。
例如,对十进制分隔符和千位分隔符的识别取决于系统的区域设置。
如果expression取值不在Long子类型的允许范围内,则会出现错误。
下面的示例利用CLng函数把值转换为Long:
DimMyVal1,MyVal2,MyLong1,MyLong2
MyVal1=25427.45:
MyVal2=25427.55 'MyVal1,MyVal2是双精度值。
MyLong1=CLng(MyVal1) 'MyLong125427。
MyLong2=CLng(MyVal2) 'MyLong2包含25428。
注意 CLng不同于Fix和Int函数删除小数部分,而是采用四舍五入的方式。
当小数部分正好等于0.5时,CLng函数总是将其四舍五入为最接近该数的偶数。
如,0.5四舍五入为0,以及1.5四舍五入为2。
Cos函数
返回某个角的余弦值。
Cos(number)
number参数可以是任何将某个角表示为弧度的有效数值表达式。
说明
Cos函数取某个角并返回直角三角形两边的比值。
此比值是直角三角形中该角的邻边长度与斜边长度之比。
结果范围在-1到1之间。
角度转化成弧度方法是用角度乘以pi/180。
反之,弧度转化成角度的方法是用弧度乘以180/pi。
下面的示例利用Cos函数返回一个角的余弦值:
DimMyAngle,MySecant
MyAngle=1.3'用弧度定义一个角。
MySecant=1/Cos(MyAngle)'计算正割。
CreateObject函数
创建并返回对Automation对象的引用。
CreateObject(servername.typename[,location])
参数
servername
必选项。
提供对象的应用程序名称。
typename
必选项。
要创建的对象类型或类。
location
可选项。
对象所在的网络服务器将被创建。
说明
Automation服务器至少提供一种对象类型。
例如,字处理应用程序可以提供应用程序对象、文档对象和工具条对象。
要创建Automation对象,将CreateObject函数返回的对象赋值给某对象变量:
DimExcelSheet
SetExcelSheet=CreateObject("Excel.Sheet")
上述代码启动创建对象(在此实例中,是MicrosoftExcel电子表格)的应用程序。
对象创建后,就可以在代码中使用定义的对象变量引用此对象。
在下面的示例中,可使用对象变量、ExcelSheet和其他Excel对象,包括Application对象和Cells集合访问新对象的属性和方法。
例如:
'MakeExcelvisiblethroughtheApplicationobject.
ExcelSheet.Application.Visible=True
'Placesometextinthefirstcellofthesheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value="ThisiscolumnA,row1"
'Savethesheet.
ExcelSheet.SaveAs"C:
\DOCS\TEST.XLS"
'CloseExcelwiththeQuitmethodontheApplicationobject.
ExcelSheet.Application.Quit
'Releasetheobjectvariable.
SetExcelSheet=Nothing
在远程服务器上创建一个对象,当Internet安全关闭时只能完成。
通过传递计算机名到CreateObject服务器名的参数,能在远程网络上创建对象。
该名称如同共享部份的机器名。
例如网络共享名命名为:
"\\myserver\public",servername是"myserver"。
另外,只能指定servername使用DNS格式或IP地址。
以下代码返回运行在命名为"myserver"的远程网络计算机上Excel实例的版本号:
FunctionGetVersion
DimXLApp
SetXLApp=CreateObject("Excel.Application","MyServer")
GetVersion=XLApp.Version
EndFunction
错误发生在指定的远程服务器不存在或无法找到。
CSng函数
返回表达式,该表达式已被转换为Single子类型的Variant。
CSng(expression)
expression参数是任意有效的表达式。
说明
通常,可以使用子类型转换函数书写代码,以显示某些操作的结果应被表示为特定的数据类型,而不是默认类型。
例如,在出现货币或整数运算的情况下,使用CDbl或CSng强制执行双精度或单精度运算。
CSng函数用于进行从其他数据类型到Single子类型的国际公认的格式转换。
例如,对十进制分隔符(如千分符)的识别取决于系统的区域设置。
如果expression在Single子类型允许的范围之外,则发生错误。
下面的示例利用CSng函数把值转换为Single:
DimMyDouble1,MyDouble2,MySingle1,MySingle2'MyDouble1,MyDouble2是双精度值。
MyDouble1=75.3421115:
MyDouble2=75.3421555
MySingle1=CSng(MyDouble1)'MySingle1包含75.34211。
MySingle2=CSng(MyDouble2)'MySingle2包含75.34216。
CStr函数
返回表达式,该表达式已被转换为String子类型的Variant。
CStr(expression)
expression参数是任意有效的表达式。
说明
通常,可以使用子类型转换函数书写代码,以显示某些操作的结果应被表示为特定的数据类型,而不是默认类型。
例如,使用CStr强制将结果表示为String。
CStr函数用于替代Str函数来进行从其他数据类型到String子类型的国际公认的格式转换。
例如对十进制分隔符的识别取决于系统的区域设置。
expression根据下表决定返回的数据:
如果expression为
CStr返回
Boolean
字符串,包含True或False。
Date
字符串,包含系统的短日期格式日期。
Null
运行时错误。
Empty
零长度字符串("")。
Error
字符串,包含跟随有错误号码的单词Error。
其他数值
字符串,包含此数字。
下面的示例利用CStr函数把数字转换为String:
DimMyDouble,MyString
MyDouble=437.324'MyDouble是双精度值。
MyString=CStr(MyDouble)'MyString包含"437.324"。
Date函数
返回当前系统日期。
Date
说明
下面的示例利用Date函数返回当前系统日期:
DimMyDate
MyDate=Date'MyDate包含当前系统日期。
DateAdd函数
返回已添加指定时间间隔的日期。
DateAdd(interval,number,date)
参数
interval
必选项。
字符串表达式,表示要添加的时间间隔。
有关数值,请参阅“设置”部分。
number
必选项。
数值表达式,表示要添加的时间间隔的个数。
数值表达式可以是正数(得到未来的日期)或负数(得到过去的日期)。
date
必选项。
Variant或要添加interval的表示日期的文字。
DateDiff函数
返回两个日期之间的时间间隔。
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])
DateDiff函数的语法有以下参数:
参数
interval
必选项。
Stringexpression表示用于计算date1和date2之间的时间间隔。
有关数值,请参阅“设置”部分。
date1,date2
必选项。
日期表达式。
用于计算的两个日期。
Firstdayofweek
可选项。
指定星期中第一天的常数。
如果没有指定,则默认为星期日。
有关数值,请参阅“设置”部分。
Firstweekofyear
可选项。
指定一年中第一周的常数。
如果没有指定,则默认为1月1日所在的星期。
有关数值,请参阅“设置”部分。
DatePart函数
返回给定日期的指定部分。
DatePart(interval,date[,firstdayofweek[,firstweekofyear]])
Arguments
interval
必选项。
字符串表达式表示要返回的时间间隔。
有关数值,请参阅“设置”部分。
Date
必选项。
要计算的日期表达式。
firstdayofweek
可选项。
指定星期中的第一天的常数。
如果没有指定,则默认为星期日。
有关数值,请参阅“设置”部分。
Firstweekofyear
可选项。
指定一年中第一周的常数。
如果没有指定,则默认为1月1日所在的星期。
有关数值,请参阅“设置”部分。
设置
interval参数可以有以下值:
设置
描述
yyyy
年
q
季度
m
月
y
一年的日数
d
日
w
一周的日数
ww
周
h
小时
n
分钟
s
秒
firstdayofweek参数可以有以下值:
常数
值
描述
vbUseSystem
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函数获得日期并显示该日所在的季节。
Funct
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBS 函数 大全
![提示](https://static.bdocx.com/images/bang_tan.gif)