完整word版VBS函数大全推荐文档Word格式文档下载.docx
《完整word版VBS函数大全推荐文档Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《完整word版VBS函数大全推荐文档Word格式文档下载.docx(69页珍藏版)》请在冰豆网上搜索。
)'
返回65。
a"
返回97。
Apple"
注意
AscB函数和包含字节数据的字符串一起使用。
AscB不是返回第一个字符的字符代码,而是返回首字节。
AscW是为使用Unicode字符的32位平台提供的。
它返回Unicode(宽型)字符代码,因此可以避免从ANSI到Unicode的代码转换。
Atn函数
返回数值的反正切值。
Atn(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)
通常,您可以使用子类型数据转换函数书写代码,以显示某些操作的结果应当被表达为特定的数据类型,而非默认的数据类型。
例如在整数运算的情况下,使用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)
例如在出现货币或整数运算的情况下,使用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)
例如,在出现货币、单精度或双精度运算的情况下,使用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)
例如,在出现货币运算、单精度或双精度算术运算的情况下,使用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地址。
以下代码返回运行在命名为"
的远程网络计算机上Excel实例的版本号:
FunctionGetVersion
DimXLApp
SetXLApp=CreateObject("
Excel.Application"
"
MyServer"
GetVersion=XLApp.Version
EndFunction
错误发生在指定的远程服务器不存在或无法找到。
CSng函数
返回表达式,该表达式已被转换为Single子类型的Variant。
CSng(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)
例如,使用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函数返回当前系统日期:
DimMyDate
MyDate=Date'
MyDate包含当前系统日期。
DateAdd函数
返回已添加指定时间间隔的日期。
DateAdd(interval,number,date)
interval
字符串表达式,表示要添加的时间间隔。
有关数值,请参阅“设置”部分。
number
数值表达式,表示要添加的时间间隔的个数。
数值表达式可以是正数(得到未来的日期)或负数(得到过去的日期)。
date
Variant或要添加interval的表示日期的文字。
DateDiff函数
返回两个日期之间的时间间隔。
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])
DateDiff函数的语法有以下参数:
Stringexpression表示用于计算date1和date2之间的时间间隔。
date1,date2
日期表达式。
用于计算的两个日期。
Firstdayofweek
指定星期中第一天的常数。
如果没有指定,则默认为星期日。
Firstweekofyear
指定一年中第一周的常数。
如果没有指定,则默认为1月1日所在的星期。
DatePart函数
返回给定日期的指定部分。
DatePart(interval,date[,firstdayofweek[,firstweekofyear]])
Arguments
字符串表达式表示要返回的时间间隔。
要计算的日期表达式。
firstdayofweek
指定星期中的第一天的常数。
设置
interval参数可以有以下值:
描述
yyyy
年
q
季度
m
月
y
一年的日数
d
日
w
一周的日数
ww
周
h
小时
n
分钟
s
秒
firstdayofweek参数可以有以下值:
常数
值
vbUseSystem
使用区域语言支持(NLS)API设置。
vbSunday
1
星期日(默认)
vbMonday
2
星期一
vbTuesday
3
星期二
vbWednesday
4
星期三
vbThursday
5
星期四
vbFriday
6
星期五
vbSaturday
7
星期六
firstweekofyear参数可以有以下值:
vbFirstJan1
由1月1日所在的星期开始(默认)。
vbFirstFourDays
由在新年中至少有四天的第一周开始。
vbFirstFullWeek
由在新的一年中第一个完整的周(不跨年度)开始。
DatePart函数用于计算日期并返回指定的时间间隔。
例如使用DatePart计算某一天是星期几或当前的时间。
firstdayofweek参数会影响使用“w”和“ww”间隔符号的计算。
如果date是日期文字,则指定的年度会成为日期的固定部分。
但是如果date被包含在引号("
)中,并且省略年份,则在代码中每次计算date表达式时,将插入当前年份。
这样就可以编写适用于不同年份的程序代码。
.
下面的示例利用DatePart函数获得日期并显示该日所在的季