VBS函数大全文档格式.docx
《VBS函数大全文档格式.docx》由会员分享，可在线阅读，更多相关《VBS函数大全文档格式.docx（83页珍藏版）》请在冰点文库上搜索。
返回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函数获得日期并显示该日所在的季节。
Funct
升级会员 