最全VB常用函数

ASP纯ASPVBscript常用函数：1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根num>0int(num): 取整int(99.8)=99; int(-99.2)=100fix(num): 取整fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num) 2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零True；反之FalseCdate(str)：转换日期格式0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）DateValue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认）[包含]为false则取不包含的元素Join(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝Value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],..) 引用函数子程序和自定义函数可以递归调用；ASP六大对象常用语句示范：Response：Response.write StrVar/"String"：向网页写出参数值或字符串等同于在Html标记中嵌入<%=StrVar/"String"%>Response.End：停止页面编译，并将已经编译内容输出到浏览器Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置Response.Flush：强制输出页面已编译部分内容Response.Clear：将缓冲区内的数据清除Response.Redirect URL：停止页面编译或输出，转载指定所需页面Response.IsClientConnected：返回True|False，检测用户是否还处于连接状态Response.Charset(CharsetName)：设置页面编码类型，即<meta http-equiv="Content-Type" content="text/html; charset=gb2312">Response.ContentType [= ContentType ]：设置页面文件类型，同上Response.Expires [= number]：设置页面失效时间，单位分钟Response.ExpiresAbsolute [= [date] [time]]：设置页面失效的绝对时间Response.Status = StatusDescription：设置页面状态描述Request：Request("PassStrName")：读取网页传递值，包括表单及以？PassStrName＝value&PassStrName_n＝value_n形式Request[.collection|property|method](variable)Request.querystring("PassStrName")：读取Get方法传递的表单值和？PassStrName＝value Request.QueryString(Varible)[(Index).Count]Request.form("PassStrName")：读取Post方法传递的纯表单域的值Request.Form(Parameter)[(Index).Count]Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考Request.BinaryRead(Count)：读取指定字节数的传送值Request.TotalBytes：查询体的长度，以字节为单位，只读注：同名表单如：CheckBox如有多项值，传递形式如右，StrName=value1,value2,...需要用Split函数分割各项值Multiple的Select表单与CheckBox类似，TextArea的值可包含换行字符，用Replace转为<br>，以满足格式需要Session：（用户全局变量）Session("SesName")＝value：存储Session变量值，也可读取该值Session("SesName")＝Empty：判断Session值是否存在的两种方法IsEmpty(Session("SesName"))=True|False：判断Session值是否存在的两种方法Session.TimeOut=num：设置Session变量的存在时效，单位分钟Session.Abandon：清除所有Session变量值Session.SessionID：Session变量的ID序列号，只读Application：（应用程序全局变量）Application("AppName")＝value：存储Application变量值，也可读取该值Application("AppName")＝Empty：判断Application值是否存在的两种方法IsEmpty(Application("AppName"))=True|False：判断Application值是否存在的两种方法Application.Lock：Application变量值锁定，防止同时更改变量值Application.UnLock：Application变量值解锁，允许更改变量值注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已，但不能直接改变其值，需要借助临时数组修改值后，再赋给Session与Application变量Global.asa文件的结构：<% @language="VBscript"%><% Sub Application_OnStart ...End SubSub Application_OnEnd ... End SubSub Session_OnStart ...End SubSub Session_OnEnd ... End Sub%>Server:Server.MapPath("FileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径Server.HtmlEncode("string")：转换为可以直接显示带Html格式的字符串，如：<,>等Server.URLEncode( "string")：转换为浏览器地址编码set Var＝Server.CreatObject("ObjName")：创建对象变量Server.ScriptTimeout = NumSeconds：ASP程序页面执行时限，以秒为单位Cookies: 存储在用户本机的临时变量，每个Cookie的最大字节4KB，最多可以有300个Cookie 1.2MBResponse.cookies("StrCookieName")＝value：存储Cookie变量值，也可读取该值Response.cookies("StrCookieName")＝""：判断是否为空Response.cookies("StrCookieName").Expires=Date：变量有效期，以天为单位，小于当前时间立即失效Response.Cookies(Cookie[(key).Attribute])：标准语法ObjectContext 控制ASP的事务处理ObjectContext.OnTransactionAbort：由放弃的事务处理事件激发，在脚本完成处理后发生ObjectContext.OnTransactionCommit：由成功的事务处理事件激发，在脚本完成处理后发生ObjectContext.SetAbort：显式的放弃一次事务处理ObjectContext.SetComplete：覆盖前面任何调用ObjectContext.SetAbort方法的调用Msgbox "string"/StrName：VBscript提示框表单的Onsubmit事件：在同一页面写入FunctionFormName_onsubmit()..FormName_onsubmit＝True/False..end Function，页面会在提交前先执行语句，并根据返回值判断是否完成提交任务。

VB常用函数介绍在VB (Visual Basic) 中，有许多常用函数可以帮助我们处理数据、操作字符串、进行数学计算等。

下面是一些VB常用函数的介绍：1. MsgBox函数：MsgBox函数用于显示一个消息框，通常用于向用户显示一些信息或提示。

它接受一个字符串参数作为要显示的消息文本。

例如：MsgBox("Hello World!")2. InputBox函数：InputBox函数用于显示一个输入框，允许用户输入一个值。

它接受一个字符串参数作为提示文本，并返回用户输入的值。

例如：Dim name as Stringname = InputBox("请输入您的姓名：")MsgBox("您的姓名是：" & name)3. Len函数：Len函数用于返回一个字符串的长度。

它接受一个字符串参数，并返回该字符串的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("该字符串的长度为：" & Len(str))4. Left函数和Right函数：Left函数和Right函数用于返回一个字符串的左侧或右侧指定数量的字符。

它们接受两个参数：一个是要截取的字符串，另一个是要截取的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("左侧的3个字符为：" & Left(str, 3))MsgBox("右侧的5个字符为：" & Right(str, 5))5. Mid函数：Mid函数用于返回一个字符串的中间一部分字符。

它接受三个参数：一个是要截取的字符串，另一个是要截取的起始位置，最后一个是要截取的字符数。

例如：Dim str as Stringstr = "Hello World!"MsgBox("中间的5个字符为：" & Mid(str, 7, 5))6. InStr函数：InStr函数用于在一个字符串中查找指定的子字符串，并返回第一次出现的位置。

VB常用函数：1.数值型函数：int(num): 取整int(99.8)=99; int(-99.2)=-100fix(num):取整fix(99.8)=99; fix(-99.2)=-99round(num,n):四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3sqr(num) 取根号2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串trim(str)：去除字符串两端空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrrev()split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选CHR（num）通过ASCII值获取一个字符chr(32) 空格chr(13) 回车Ucase(str)所有字符转成大写Lcase(str)所有字符转成小写3.数据类型转换函数：Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssCsng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Cdate()4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一d m yyyyweekday(date)：计算星期几Sunday 1Monday 2Tuesday 3Wednsday 4Thurday 5Friday 6Saturday 7year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒IsnumericIsdateFormatDateTime(datetime,n)n 0~4FormatNumber(m,n) 对象按钮\图片\表格.... 事件onclick 单击ondblclick 双击onbeforecopy 拷贝onload 对象加载onunload 对象关闭onchange 对象改变onfocus 对象获得焦点onblur 对象失去焦点动作网页与表单进行关联1.sub 对象名_事件名end sub2.sub xend sub<input type="button" name="Submit" value="按钮" onclick="x()"/>。

v b常用函数一览表(总3页) -CAL-FENGHAI.-(YICAI)-Company One1-CAL-本页仅作为文档封面，使用请直接删除常用内部函数数学函数函数功能示例结果说明Abs(x)绝对值Abs(-50.3)50.3Exp(x) 自然指数Exp(2) e*e e（自然对数的底）的某次方Fix(x) 取整(取参数的整数部分)Fix(-99.8) -99Int(x)取整(取小于或等于参数的最大整数)Int(-99.8)Int(99.8)-10099Log(x) 常用对数Log(1) 0 求自然对数值Rnd 随机产生0～1的单精度值Int(6*Rnd)+11～6要产生一个从Min到Max的整数，应使用公式Int((Max-Min+1)*Rnd+Min)Round(x,n)按小数位数四舍五入Round(3.14159,3) 3.142第2个参数为小数位数Sgn(x) 取参数的符号值Sgn(8.8)Sgn(-8.8)Sgn(0) 1-10 参数大于0，返回1参数小于0，返回-1参数等于0，返回0Sin(x) 正弦 1三角函数以“弧度”为单位Cos(x) 余弦/180*180) -1Atn(x) 计算反正切Atn(1) 0.7854Tan(x) 计算正切 1Sqr(x) 算术平方根Sqr(9) 3 相当于字符串函数函数功能示例结果说明Len(x)求字符串的长度(字符个数)Len("Vb技术")4LenB(x) 求字符串的字节个数LenB("Vb技术") 8 VB中采用Unicode（ISO 字符标准）来存储字符，所有字符都占2个字节Mid(x,n1,n2)从x字符串左边第n1个位置开始向右取n2个字符Mid("Vb技术",2,2)"b技"。

VB常用函数解释及语法IsNumeric 函数返回Boolean 值，指出表达式的运算结果是否为数。

语法IsNumeric(expression)必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明如果整个expression的运算结果为数字，则IsNumeric 返回True；否则返回False。

如果expression是日期表达式，则IsNumeric 返回False。

IsObject 函数返回Boolean 值，指出标识符是否表示对象变量。

语法IsObject(identifier)必要的identifier 参数是一个变量名。

说明IsObject 只用于确定 Variant 是否属于VarTypevbObject。

如果Variant 实际引用（或曾经引用过）一个对象，或者如果Variant 包含Nothing，则可能出现这种情况。

如果identifier 是 Object类型或任何有效的类类型，或者，如果identifier是VarTypevbObject 的Variant 或用户自定义的对象，则IsObject 返回True；否则返回False。

即使变量已设置成Nothing，IsObject 也仍返回True。

使用错误捕获方法可以确认对象引用是否有效。

Chr 函数返回 String，其中包含有与指定的字符代码相关的字符。

语法Chr(charcode)必要的charcode参数是一个用来识别某字符的Long。

说明0 到 31 之间的数字与标准的非打印 ASCII 代码相同。

例如，Chr(10)可以返回换行字符。

charcode 的正常范围为0 –255。

然而，在DBCS 系统，charcode 的实际范围为-32768 到65535。

注意ChrB函数作用于包含在String 中的字节数据。

ChrB 总是返回一个单字节，而不是返回一个字符，一个字符可能是一个或两个字节。

2005函數大全2009-09-21 15:53:16| 分类： 2005 |字号订阅一、数学函数函数说明Abs (num) 取绝对值。

Exp (num) 返回以e为底、以num为指数的值，如Exp(2)返回e^2值。

Log (num) 返回参数num的自然对数值，为Double类型，即以e为底的对数。

Hex (num)` 将参数num转换为16进制。

Oct (num) 将参数num转换为8进制Sign (num) 返回参数的正负符号，若num大于0，则返回值为1；若num等于0，则返回值为0；若num小于0，则返回值为-1。

Sqrt (num) 返回参数平方根为，Double类型。

Atan (num) 反正切函数Sin (num) 正弦函数Cos (num) 余弦函数Tan (num) 正切函数Rand (num,[int]) 将参数num四舍五入，若要指定四舍五入到哪位小数，可以加上第二个参数int。

如：Round (12. 456 )返回值为12；Round (12 . 4567,3 ) 返回值为12. 457。

Rnd [(nun)] 产生一个小于1，大于或等于0的随机数，类型为Single。

若参数num小于0，那么每次都会返回相同的随机数；若没有提供参数或参数大于0，那么会依序产生下一个随机数，此为默认值；若参数num等于0，那么会返回最近一次产生的随机数。

为了每次产生不同的随机数，在使用Rand ()函数之前，最好使用Randomize语句。

若要随机产生一个N到M的整数，可利用如下公式：Int (Rand ()*M-N+1)+N。

Pow (x,y) 求x的y次方。

Val (str) 将字符串内的数字转换成Integer或Double类型返回。

Str (num) 将数值类型参数转换成字符串返回。

Fix (num) 参数大于0时，去掉小数部分；参数小于0时，返回大于或等于该参数值。

Int (num) 参数大于0时，去掉小数部分；数小于0时，返回小于或等于该参数值。

vb常用函数大全和公式以下是一些VBA常用的函数和公式:## 函数### 整型函数- Asc() - 将一个整数转换为字符长整数- Chr() - 将一个字符长整数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个字符串分解成子字符串- Len() - 返回一个字符串的长度- Num() - 返回一个整数值### 浮点型函数- Asc() - 将一个浮点数转换为字符长整数- Chr() - 将一个浮点数转换为字符整数- Conv() - 将一个浮点数转换为字符长整数- Dis() - 将一个浮点数转换为字符串- Len() - 返回一个浮点数字符串的长度- Num() - 返回一个浮点数的数值### 布尔型函数- IsTrue() - 返回一个布尔值的真假- IsFalse() - 返回一个布尔值的真假- And() - 将两个布尔值合并为一个新的布尔值- Or() - 将两个布尔值合并为一个新的布尔值,如果它们均为假则返回False- Not() - 返回一个布尔值的真假## 公式### 代数公式- + 表示两个数相加- - 表示两个数相减- * 表示两个数相乘- / 表示两个数相除- % 表示两个数的取模### 几何公式- + 表示两个向量相加- - 表示两个向量相减- * 表示两个向量相乘- / 表示两个向量相除- *x 表示向量x乘以另一个向量x- /x 表示向量x除以另一个向量x- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值### 三角函数公式- sin(angle) 表示向量x在坐标系中沿着方向angle的sin函数值- cos(angle) 表示向量x在坐标系中沿着方向angle的cos函数值- tan(angle) 表示向量x在坐标系中沿着方向angle的tan函数值- asin(x) 表示x在实数范围内取sin函数值- acos(x) 表示x在实数范围内取cos函数值- ceil(x) - 向上取整,返回x的最小值-floor(x) - 向下取整,返回x的最大值- log10(x) 表示将x乘以10的指数幂,返回其百分数### 统计学公式- 方差(Standard Deviation) 表示一组数值的平均平方和与标准差的差值- 标准差(Standard Error) 表示一组数值的标准差。

Abs 函数返回数的绝对值。

And 运算符执行两个表达式的逻辑连接。

Array 函数返回含一数组的变体。

Asc 函数返回字符串首字母的 ANSI 字符代码。

赋值运算符 (=) 给变量或属性赋值。

Atn 函数返回数的反正切值。

调用语句将控制移交 Sub 或 Function 过程。

CBool 函数返回已被转换为 Boolean 子类型的变体的表达式。

CByte 函数返回已被转换为字节子类型的变体的表达式。

CCur 函数返回已被转换为货币子类型的变体的表达式。

CDate 函数返回已被转换为日期子类型的变体的表达式。

CDbl 函数返回已被转换为双精度子类型的变体的表达式。

Chr 函数返回指定 ANSI 字符码的字符。

CInt 函数返回已被转换为整数子类型的变体的表达式。

Class 对象提供对已创建的类的事件的访问。

Class 语句声明类名Clear 方法清除 Err 对象的所有属性设置。

CLng 函数返回已被转换为 Long 子类型的变体的表达式。

颜色常数颜色常数列表。

比较常数用于比较运算的常数列表。

连接运算符 (&) 强制两个表达式的字符串连接。

Const 语句声明用于字母值的常数。

Cos 函数返回角度的余弦值。

CreateObject 函数创建并返回对“自动”对象的引用。

CSng 函数返回已被转换为单精度子类型的变体的表达式。

CStr 函数返回已被转换为字符串子类型的变体的表达式。

日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。

日期格式常数用于日期和时间格式的常数列表。

Date 函数返回当前系统日期。

DateAdd 函数返回加上了指定的时间间隔的日期。

DateDiff 函数返回两个日期之间的间隔。

DatePart 函数返回给定日期的指定部分。

DateSerial 函数返回指定年月日的日期子类型的变体。

DateValue 函数返回日期子类型的变体。

Day 函数返回日期，取值范围为 1 至 31。

常用内部函数一、数学函数1、三角函数Sin(x):求正弦值,x必须为弧度值求sin30。

的值Sin(30*3.14/180)Cos(x):求余弦值，x必须为弧度值Tan(x):求x正切值，x必须为弧度值Atan(x):求x反正切值，x必须为弧度值2、绝对值函数Abs(x):求x的绝对值，x是数值型3、Exp(x):求e的指定的次幂,即e x4、Log(x):求lnx，即log e x5、符号函数Sgn(x):根据x值返回-1、0、1 当x>0,Sgn(x)=1当x=0,Sgn(x)=0当x<0,Sgn(x)=-16、Sqr(x):返回x的平方根,x>=0二、转换函数1、取整函数Int(x):返回小于等于x的最大整数Int(9.59)=9Int(-9.59)=-10Fix(x):截断取整，即去掉小数部分Fix(9.59)=9Fix(-9.59)=-9问题：若要对x实现四舍五入取整：Int(x+0.5)或Fix(x+0.5)2、Chr和Asc函数Chr(x):x必须为ASCII码值(0-255)，将x指定的ASCII码值转换成对应的字符Chr(65)=“A”Chr(97)=“a”注意：Chr函数得到那些非显示的控制字符。

Chr(13):回车键Chr(8):退格键Asc(x):x为字符串型数据,将x指定的字符串的首字符转换成ASCII码值。

例如：Asc(“A”)=65Asc(“Asdger”)=653、Val(x)和Str(x)函数——重点Val(x):x为数字字符串，将该数字字符串转换成相应的数值。

若x中出现数值规定字符以外的字符，则只将最前面的符合数值型规定字符转换成对应的数值。

Val(“-3.14”)=-3.14Val(“1.2sa10”)=1.2Val(“-1.2E3Eg”)=-1200Str(x):x为数值型数据,将x转换成字符串，若x为正数，则转换的字符串的第一位一定是空格;若x的小数点最后有多个”0”，则将去掉。

VB函数大全可在代码中的任何地方用下列常数代替实际值：常数值描述vbCalGreg0指出使用的是阳历。

vbCalHijri1指出使用的是伊斯兰历法。

--------------------------------------------------------------------------------Color常数可在代码中的任何地方用下列常数代替实际值：常数值描述vbBlack0某0黑色vbRed0某FF红色vbGreen0某FF00绿色vbYellow0某FFFF黄色vbBlue0某FF0000蓝色vbMagenta0某FF00FF紫红色vbCyan0某FFFF00青色vbWhite0某FFFFFF白色下列常数由ViualBaicforApplication中的类型库定义，可用来在代码中的任何地方代替实际值：常数值描述ViualBaicforApplication定义了一些不能与#If...Then...#Ele指令一起使用的常数。

这些常数除了其范围是全局的；也就是说，除了可在工程中到处应用，在功能上与#If...Then...#Ele指令定义的常数相同。

在16位开发平台上，编译常数定义如下：常数值描述Win16True指出开发环境是16位。

Win32Fale指出开发环境不是32位。

在32位开发平台上，编译常数定义如下：常数值描述Win16Fale指出开发环境不是16位。

Win32True指出开发环境是32位。

--------------------------------------------------------------------------------Date常数可在代码中的任何地方用下列常数代替实际值：参数值firtdayofweek参数具有以下这些值：常数值描述vbUeSytem0使用NLSAPI设置。

vbSunday1星期日（缺省）vbMonday2星期一vbTueday3星期二vbWedneday4星期三vbThurday5星期四vbFriday6星期五vbSaturday7星期六firtdayofyear参数具有以下这些值：常数值描述vbUeSytem0使用NLSAPI设置。