vbs常用函數
| 函數名 | 語法 | 功能 |
| Abs | Abs(number) | 返回一個數的絕對值 |
| Sqr | Sqr(number) | 返回一個數的平方根 |
| Sin | Sin(number) | 返回角度的正玄值 |
| Cos | Cos(number) | 返回角度的余玄值 |
| Tan | Tan(number) | 返回角度的正切值 |
| Atn | Atn(number) | 返回角度的反正切值 |
| Log | Log(number) | 返回一個數的自然對數 |
| Int | Int(number) | 取整函數，返回一個小于number的第一整數 |
| FormatNumber | FormatNumber(number， numdigitsafterdecimal) | 轉化為指定小數位數(numdigitsafterdecimal)的數字 |
| Rnd | Rnd() | 返回一個從0到1的隨機數 |
| Ubound | Ubound(數組名，維數) | 返回該數組的最大下標 |
| Lbound | Lbound(數組名，維數) | 返回最小下標數 |
注釋：
Rnd 函數
語法：Rnd[(number)]
返回一隨機數。參數 number 可以是任何的數值表達式。
注解:
Rnd 函數返回的隨機數介于 0 和 1 之間，可等于 0，但不等于 1。
number 的值會影響 Rnd 返回的隨機數：
| Number的取值 | 返回值 |
| 小于0 | 每次都是使用numbe當做隨機結果。 |
| 大于0 | 隨機序列中的下一個隨機數。 |
| 等于0 | 最近一次產生過的隨機數。 |
| 省略 | 隨機序列中的下一個隨機數。 |
各種轉換函數及功能
| 函數 | 功能 |
| CStr(variant) | 將變量variant轉化為字符串類型 |
| CDate(variant) | 將變量variant轉化為日期類型 |
| CInt(variant) | 將變量variant轉化為整數類型 |
| CLng(variant) | 將變量variant轉化為長整數類型 |
| CSng(variant) | 將變量variant轉化為single類型 |
| CDbl(variant) | 將變量variant轉化為double類型 |
| CBool(variant) | 將變量variant轉化為布爾類型 |
注釋：
1整型
以Integer 表示整型，其范圍為 -32,768 到 32,767 之間。
2、長整型
Long(長整型) ，其范圍從 -2,147,483,648 到 2,147,483,647。
3、單精度型(Single)
Single(單精度浮點型)，它的范圍在負數的時候是從 -3.402823E38 到 -1.401298E-45，而在正數的時候是從 1.401298E-45 到 3.402823E38。
4、雙精度型(Double)
Double(雙精度浮點型)它的范圍在負數的時候是從 -1.79769313486232E308 到 -4.94065645841247E-324，而正數的時候是從 4.94065645841247E-324 到 1.79769313486232E308。
常用的字符串函數及功能
| 函數 | 語法 | 功能 |
| Len | Len(string) | 返回string字符串里的字符數目 |
| Trim | Trim(string) | 將字符串前后的空格去掉 |
| Ltrim | Ltrim(string) | 將字符串前面的空格去掉 |
| Rtrim | Rtrim(string) | 將字符串后面的空格去掉 |
| Mid | Mid(string,start,length) | 從string字符串的start字符開始取得length長度的字符串，如果省略第三個參數表示從start字符開始到字符串結尾的字符串 |
| Left | Left(string,length) | 從string字符串的左邊取length長度的字符串 |
| Right | Right(string,length) | 從srting字符串的右邊取得length長度的字符串 |
| LCase | LCase(string) | 將字符串里的所有大寫字母轉化成小寫字母 |
| UCase | UCase(string) | 將字符串里的小寫字母轉化成大寫字母 |
| StrComp | Strcomp(string1,string1) | 返回string1字符串與string2字符串的比較結果，如果兩個字符串相同，返回0 |
| InStr | InStr(string1,string2) | 返回string2字符串在string1字符串中第一次出現的位置 |
| Split | Split(string1,delimiter | 將字符串根據delimiter拆分成一維數組，其中delimiter用于表示子字符串界限的字符，如果省略，使用空格(“”)當作分隔符 |
| Replace | Replace(string1,find,replacewith) | 返回字符串，其中指定的子字符串(find)被替換為另一個子字符串(replacewith) |
常用的字符串函數及功能
| 函數 | 語法 | 功能 |
| Len | Len(string) | 返回string字符串里的字符數目 |
| Trim | Trim(string) | 將字符串前后的空格去掉 |
| Ltrim | Ltrim(string) | 將字符串前面的空格去掉 |
| Rtrim | Rtrim(string) | 將字符串后面的空格去掉 |
| Mid | Mid(string,start,length) | 從string字符串的start字符開始取得length長度的字符串，如果省略第三個參數表示從start字符開始到字符串結尾的字符串 |
| Left | Left(string,length) | 從string字符串的左邊取length長度的字符串 |
| Right | Right(string,length) | 從srting字符串的右邊取得length長度的字符串 |
| LCase | LCase(string) | 將字符串里的所有大寫字母轉化成小寫字母 |
| UCase | UCase(string) | 將字符串里的小寫字母轉化成大寫字母 |
| StrComp | Strcomp(string1,string1) | 返回string1字符串與string2字符串的比較結果，如果兩個字符串相同，返回0 |
| InStr | InStr(string1,string2) | 返回string2字符串在string1字符串中第一次出現的位置 |
| Split | Split(string1,delimiter | 將字符串根據delimiter拆分成一維數組，其中delimiter用于表示子字符串界限的字符，如果省略，使用空格(“”)當作分隔符 |
| Replace | Replace(string1,find,replacewith) | 返回字符串，其中指定的子字符串(find)被替換為另一個子字符串(replacewith) |
常用日期和時間函數及說明
| 函數 | 語法 | 功能 |
| Now | Now() | 取得系統當前的日期和時間 |
| Date | Date() | 取得系統當前的日期 |
| Time | Time() | 取得系統當前的時間 |
| Year | Year() | 取得給定日期的年份 |
| Month | Month(Date) | 取得給定日期的月份 |
| Day | Day(Date) | 取得給定日期是幾號 |
| Hour | Hour(time) | 取得給定時間是第幾小時 |
| Minute | Minute(time) | 取得給定時間是第幾分鐘 |
| Second | Second(time) | 取得給定時間是第幾秒 |
| WeekDay | WeekDay(Date) | 取得給定日期是星期幾的整數 1 表示星期一 2 表示星期二 依次類推 |
| DateDiff | DateDiff(“Var”, Var1,Var2) Var:日期或時間間隔因子 Var1：第一個日期或時間 Var2：第二個日期或時間 | 計算兩個日期或時間的間隔 |
| DateAdd | DateAdd(“Var”, Var1,Var2) Var:日期或時間間隔因子 Var1：日期或時間 Var2：日期或時間 | 對兩個日期或時間作加法 DateAdd(“d”，10，Date()) 10天后是幾號 |
| FormatDateTime | FortDateTime(Date,vbShortDate) | 轉化為短日期格式 |
| FortDateTime(Date,vblongDate) | 轉化為長日期格式 | |
| FortDateTime(Date,vbShortTime) | 轉化為短時間格式 | |
| FortDateTime(Date,vbLongTime) | 轉化為長時間格式 |
日期或時間間隔因子
| 間隔因子 | yyyy | m | d | ww | h | s |
| 說明 | 年 | 月 | 日 | 星期 | 小時 | 秒 |
常用的檢驗函數及功能
| 函數 | 功能 |
| VarType(variant) | 檢查變量vriant的值，函數值為該變量的數據子類型，0表示空，2表示整數，7表示日子，8表示字符串，11表示布爾變量，8192表示數組 |
| IsNumeric(variant) | 檢查變量variant的值，如果variant是數值類型，則函數值為ture |
| IsNull(variant) | 檢查變量variant的值，如果variant為null，則函數值為ture |
| IsEmpty(variant) | 檢查變量的值，如果variant是empty，則函數值為ture |
| IsObject(variant) | 檢查變量variant的值，如果variant是對象類型，則函數值為ture |
| IsDate(variant) | 檢查變量variant的值，如果variant是日期類型，則函數值為ture |
| IsArray(variant) | 檢查變量variant的值，如果variant是數組類型，則函數值為ture |
下面給大家一個常見實例，大家可以運行測試
Option Explicit'*********************************Date/Time函數*******************************'CDate函數把一個合法的日期和事件表達式轉換為Date類型，并返回結果Dim d1Dim d2Dim d3d1="April 22,2001"If IsDate(d1) Then MsgBox CDate(d1)End Ifd2=#2/22/01#If IsDate(d2) Then MsgBox CDate(d2)End Ifd3="3:18:40 AM"If IsDate(d3) Then MsgBox CDate(d3)End If'Date函數返回當前系統的日期'日期MsgBox Date'日期+時間MsgBox Now'時間MsgBox Time'DateAdd函數可返回已添加指定時間間隔的日期MsgBox DateAdd("yyyy",1,"31-Jan-2003")'加一年MsgBox DateAdd("yyyy",1,"31-Jan-2003")'減一年MsgBox DateAdd("q",1,"31-Jan-2003")'加一個季度MsgBox DateAdd("m",1,"31-Jan-2003")'加一個月MsgBox DateAdd("y",1,"31-Jan-2003")'當年的第幾天MsgBox DateAdd("d",1,"31-Jan-2003")'增加一天MsgBox DateAdd("w",1,"31-Jan-2003")'當周的第幾天MsgBox DateAdd("ww",1,"31-Jan-2003")'增加一個周MsgBox DateAdd("h",1,"31-Jan-2003")'某日期的第一個小時MsgBox DateAdd("n",1,"31-Jan-2003")'某日期的第一分鐘MsgBox DateAdd("s",1,"31-Jan-2003")'某日期的第一秒'DateDiff函數可返回兩個日期之間的時間間隔數MsgBox DateDiff("yyyy",Date,"31-Jan-2012")MsgBox DateDiff("q",Date,"31-Jan-2012")MsgBox DateDiff("m",Date,"31-Jan-2012")MsgBox DateDiff("y",Date,"31-Jan-2012")MsgBox DateDiff("d",Date,"31-Jan-2012")MsgBox DateDiff("w",Date,"31-Jan-2012")MsgBox DateDiff("ww",Date,"31-Jan-2012")MsgBox DateDiff("h",Date,"31-Jan-2012")MsgBox DateDiff("n",Date,"31-Jan-2012")MsgBox DateDiff("s",Date,"31-Jan-2012")'DatePart函數可返回給定日期的指定部分Dim dd="2/10/2012 16:25:56"MsgBox DatePart("yyyy",d)MsgBox DatePart("m",d)MsgBox DatePart("q",d)MsgBox DatePart("w",d)MsgBox DatePart("ww",d)MsgBox DatePart("y",d)MsgBox DatePart("s",d)MsgBox DatePart("h",d)MsgBox DatePart("n",d)MsgBox DatePart("d",d)'DateSerial函數可返回指定的年、月、日的子類型Date的VariantMsgBox DateSerial(2012,2,30)'DateValue函數返回一個日期類型MsgBox DateValue("31-Jan-2012 2:39:49 AM")'Day函數可返回介于1到31之間的一個代表月的天數的數字MsgBox Day(Date)'FormatDateTime函數可格式化并返回一個額合法的日期或時間表達式MsgBox FormatDateTime(Now,0)MsgBox FormatDateTime(Now,1)MsgBox FormatDateTime(Now,2)MsgBox FormatDateTime(Now,3)MsgBox FormatDateTime(Now,4)'Hour函數可返回介于0到23之間的代表天的小時數的數字MsgBox Hour(Now)'IsDate函數可返回一個布爾值，指示經計算的表達式是否可被轉換為日期，如果表達式是日期或可被轉換為日期，則返回True，否則，返回False。MsgBox IsDate("15-3-2012")'Minute函數可返回表示小時的分鐘數的數字MsgBox Minute(Now)'Month函數可返回表示年的月份的數字MsgBox Month(Now)'Second函數可返回表示分鐘的秒數的數字MsgBox Second(Now)'Time函數可返回當前的系統時間MsgBox Time'Timer函數可返回午夜12時以后已經過去的秒數MsgBox Timer'TimeSerial函數可把時、分、秒合并成為時間MsgBox TimeSerial(3,45,50)'TimeValue函數可返回包含時間的日期子類型的變量MsgBox TimeValue(Now)'Weekday函數可返回表示一周的天數的數字，介于1和7之間。MsgBox Weekday(Date,0)'WeekdayName函數可返回一周中指定一天的星期名MsgBox WeekdayName(3)MsgBox WeekdayName(Weekday(Date,1))'Year函數可返回表示年份的一個數字MsgBox Year(date)'*********************************Conversion函數*******************************'Asc函數可把字符串中的第一個字母轉換為對應的ANSI代碼，并返回結果MsgBox Asc("A")MsgBox Asc("a")'CBool函數可把表達式轉換為布爾類型Dim aa=5MsgBox CBool(a)'CByte函數可把表達式轉換為字節類型Dim bb=134.12345MsgBox CByte(b)'CCur函數可把表達式轉換為貨幣類型Dim cc=12345.12345656MsgBox CCur(c)'CDbl函數可把表達式轉換為雙精度類型Dim ee=123.12454656577435235436MsgBox CDbl(e)'Chr函數可把指定的ANSI字符代碼轉換為字符MsgBox Chr(65)'CInt函數可把表達式轉換為整數類型MsgBox CInt(12.3435)'CLng函數可把表達式轉換為長整形類型MsgBox CLng(12.676)MsgBox CLng(12.243)'CSng函數可把表達式轉換為單精度類型MsgBox CSng(122.355465)MsgBox CSng(21.23222)'CStr函數可把表達式轉換為字符串類型MsgBox CStr(false)MsgBox CStr(Date)MsgBox CStr(Empty)MsgBox CStr(Error)'*********************************Format函數*******************************'FormatCurrency函數可返回作為貨幣值被格式化的表達式，使用系統控制面板中定義的貨幣符號MsgBox FormatCurrency(21.23456)'FormatNumber函數可返回作為數字被格式化的表達式MsgBox FormatNumber(12.23456775,3)'FormatPercent函數可返回作為百分數被格式化的表達式MsgBox FormatPercent(3/7,3)'*********************************Math函數*******************************'Abs函數可返回指定的數字的絕對值MsgBox Abs(-9)'Atn函數可返回指定數字的正切MsgBox Atn(9)'Cos函數可返回指定數字的余弦MsgBox Cos(9)'Exp函數可e的冪次方MsgBox Exp(2.3)'Fix函數可返回指定數字的整數部分MsgBox Fix(-6.325)MsgBox Int(-6.325)'Log函數可返回指定數據的自然對數MsgBox Log(10)'Rnd函數可返回一個隨機數，數字總是小于1但大于或等于0.MsgBox Rnd'Sgn函數可返回指定數字的符號的整數MsgBox Sgn(15)MsgBox Sgn(-5)MsgBox Sgn(0)'Sin函數可返回指定數字的正弦MsgBox Sin(9)'Sqr函數可返回一個數的平方根MsgBox Sqr(9)'Tan函數可返回指定數字的正切MsgBox Tan(9)'*********************************Array函數*******************************'Array可返回一個包含數組的變量Dim ArrArr=Array(1,2,3,4,5)MsgBox Arr(0)'Filter函數可返回一個基于0的數組，此數組包含以特定過濾條件為基礎的字符串數組的子集Dim Arr1(5),bArr1(0)="Saturday"Arr1(1)="Sunday"Arr1(2)="Monday"Arr1(3)="Tuesday"Arr1(4)="Wednesday"b=Filter(Arr1,"n",True)MsgBox b(0)MsgBox b(1)MsgBox b(2)'ISArray函數可返回一個指示指定的變量是否為數組的布爾值。如果變量為數組，則返回True，否則返回False。Dim a(3)a(0)=1a(1)=2a(2)=3MsgBox IsArray(a)'Join函數可返回一個由某個數組中一系列子字符串組成的字符串Dim a(5),ba(0)="Saturday"a(1)="Sunday"a(2)="Monday"a(3)="Wendesday"a(4)="Tuesday"b=Filter(a,"n",True)MsgBox Join(b,",")'LBound函數可返回指示數組維數的最小下標。（始終為0）'UBound函數可返回指示數組維數的最大下標。Dim a(5)MsgBox LBound(a)MsgBox UBound(a)'Split函數可返回基于0的一維數組，此數組包含指定的子字符串Dim txt,atxt="hello/world!"a=Split(txt,"/")MsgBox a(0)MsgBox a(1)'*********************************String函數*******************************'InStr函數可返回一個字符串在另一個字符串中首次出現的位置Dim txt,postxt="This is a beautiful day!"pos=InStr(4,txt,"is",1)MsgBox pos'InStrRev函數可返回一個字符串在另一個字符串中首次出現的位置，搜索從字符串的末端開始，但是返回的位置是從字符串的起點開始計數的。Dim txt,postxt="This is a beautiful day!"pos=InStrRev(txt,"i",-1,1)MsgBox pos'LCase函數可把指定的字符串轉換為小寫'UCase函數可把指定的字符串轉換為大寫Dim txt,pos1,pos2txt="This Is A Beautiful Day!"pos1=LCase(txt)pos2=UCase(txt)MsgBox pos1MsgBox pos2'Left函數可從字符串的左側返回指定數目的字符'Right函數可從字符串的右側返回指定數目的字符Dim txt,pos1,pos2txt="This is a beautiful day!"pos1=Left(txt,5)pos2=Right(txt,6)MsgBox pos1MsgBox pos2'Len函數可返回字符串中字符的數目Dim txt,postxt="This is a beautiful day!"pos=Len(txt)MsgBox pos'LTrim函數可刪除字符串左側的空格'RTrim函數可刪除字符串右側的空格'Trim函數可刪除字符串兩端的空格Dim txt,pos1,pos2,pos3txt=" This is a beautiful day! "pos1=LTrim(txt)pos2=RTrim(txt)pos3=Trim(txt)MsgBox pos1MsgBox pos2MsgBox pos3MsgBox Len(pos1)MsgBox Len(pos2)MsgBox Len(pos3)'Mid函數可從字符串中返回指定數目的字符Dim txttxt="This is a beautiful day!"MsgBox Mid(txt,1,5)MsgBox Mid(txt,2,5)MsgBox Mid(txt,1)MsgBox Mid(txt,5)'Replace函數可使用一個字符串替換另一個字符串指定的次數Dim txttxt="This is a beautiful day!"MsgBox Replace(txt,"is","AA",4,2)'Space函數可返回一個由指定數目的空格組成的字符串Dim txttxt=Space(20)MsgBox txtMsgBox Len(txt)'StrComp函數可比較兩個字符串，并返回表示比較結果的一個值Dim txt1,txt2txt1="hello"txt2="hell"MsgBox StrComp(txt1,txt2)'String函數可返回包含指定長度的重復字符的一個字符串MsgBox String(10,"*")'StrReverse函數可反轉一個字符串Dim txttxt="This is a beautiful day!"MsgBox StrReverse(txt)'*********************************其他函數*******************************'InputBox函數可顯示一個對話框，用戶可在其中輸入文本或點擊一個按鈕。Dim fnamefname=InputBox("Enter your name:")MsgBox ("Your name is "&fname)'IsEmpty函數可返回指定的變量是否被初始化的布爾值。Dim x,yy=10MsgBox IsEmpty(x)MsgBox IsEmpty(y)'IsNull函數可返回指定表達式是否無效數據的布爾值Dim x,y,zx=Nully=10z=""MsgBox IsNull(x)MsgBox IsNull(y)MsgBox IsNull(z)'IsNumeric函數可返回指示指定的表達式是否可作為數字來計算的布爾值。Dim xx=10MsgBox IsNumeric(x)x=EmptyMsgBox IsNumeric(x)x="1 h"MsgBox IsNumeric(x)這篇關于vbscript常見函數的文章就介紹到這里，希望大家以后多多支持VEVB武林網。
新聞熱點
疑難解答
