本篇文章為大家展示了VBS中有哪些常用函數，內容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細介紹希望你能有所收獲。

創(chuàng)新互聯基于成都重慶香港及美國等地區(qū)分布式IDC機房數據中心構建的電信大帶寬，聯通大帶寬，移動大帶寬，多線BGP大帶寬租用,是為眾多客戶提供專業(yè)托管服務器報價，主機托管價格性價比高，為金融證券行業(yè)服務器托管，ai人工智能服務器托管提供bgp線路100M獨享，G口帶寬及機柜租用的專業(yè)成都idc公司。

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()	取得系統(tǒng)當前的日期和時間
Date	Date()	取得系統(tǒng)當前的日期
Time	Time()	取得系統(tǒng)當前的時間
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?d1
Dim?d2
Dim?d3
d1="April?22,2001"
If?IsDate(d1)?Then
????MsgBox?CDate(d1)
End?If

d2=#2/22/01#
If?IsDate(d2)?Then
????MsgBox?CDate(d2)
End?If

d3="3:18:40?AM"
If?IsDate(d3)?Then
????MsgBox?CDate(d3)
End?If

'Date函數返回當前系統(tǒng)的日期
'日期
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?d
d="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的Variant
MsgBox?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函數可返回當前的系統(tǒng)時間
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?a
a=5
MsgBox?CBool(a)

'CByte函數可把表達式轉換為字節(jié)類型
Dim?b
b=134.12345
MsgBox?CByte(b)

'CCur函數可把表達式轉換為貨幣類型
Dim?c
c=12345.12345656
MsgBox?CCur(c)

'CDbl函數可把表達式轉換為雙精度類型
Dim?e
e=123.12454656577435235436
MsgBox?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函數可返回作為貨幣值被格式化的表達式，使用系統(tǒng)控制面板中定義的貨幣符號
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?Arr
Arr=Array(1,2,3,4,5)
MsgBox?Arr(0)

'Filter函數可返回一個基于0的數組，此數組包含以特定過濾條件為基礎的字符串數組的子集
Dim?Arr1(5),b
Arr1(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)=1
a(1)=2
a(2)=3
MsgBox?IsArray(a)

'Join函數可返回一個由某個數組中一系列子字符串組成的字符串
Dim?a(5),b
a(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,a
txt="hello/world!"
a=Split(txt,"/")
MsgBox?a(0)
MsgBox?a(1)

'*********************************String函數*******************************
'InStr函數可返回一個字符串在另一個字符串中首次出現的位置
Dim?txt,pos
txt="This?is?a?beautiful?day!"
pos=InStr(4,txt,"is",1)
MsgBox?pos

'InStrRev函數可返回一個字符串在另一個字符串中首次出現的位置，搜索從字符串的末端開始，但是返回的位置是從字符串的起點開始計數的。
Dim?txt,pos
txt="This?is?a?beautiful?day!"
pos=InStrRev(txt,"i",-1,1)
MsgBox?pos

'LCase函數可把指定的字符串轉換為小寫
'UCase函數可把指定的字符串轉換為大寫
Dim?txt,pos1,pos2
txt="This?Is?A?Beautiful?Day!"
pos1=LCase(txt)
pos2=UCase(txt)
MsgBox?pos1
MsgBox?pos2

'Left函數可從字符串的左側返回指定數目的字符
'Right函數可從字符串的右側返回指定數目的字符
Dim?txt,pos1,pos2
txt="This?is?a?beautiful?day!"
pos1=Left(txt,5)
pos2=Right(txt,6)
MsgBox?pos1
MsgBox?pos2

'Len函數可返回字符串中字符的數目
Dim?txt,pos
txt="This?is?a?beautiful?day!"
pos=Len(txt)
MsgBox?pos

'LTrim函數可刪除字符串左側的空格
'RTrim函數可刪除字符串右側的空格
'Trim函數可刪除字符串兩端的空格
Dim?txt,pos1,pos2,pos3
txt="??This?is?a?beautiful?day!??"
pos1=LTrim(txt)
pos2=RTrim(txt)
pos3=Trim(txt)
MsgBox?pos1
MsgBox?pos2
MsgBox?pos3
MsgBox?Len(pos1)
MsgBox?Len(pos2)
MsgBox?Len(pos3)

'Mid函數可從字符串中返回指定數目的字符
Dim?txt
txt="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?txt
txt="This?is?a?beautiful?day!"
MsgBox?Replace(txt,"is","AA",4,2)

'Space函數可返回一個由指定數目的空格組成的字符串
Dim?txt
txt=Space(20)
MsgBox?txt
MsgBox?Len(txt)

'StrComp函數可比較兩個字符串，并返回表示比較結果的一個值
Dim?txt1,txt2
txt1="hello"
txt2="hell"
MsgBox?StrComp(txt1,txt2)

'String函數可返回包含指定長度的重復字符的一個字符串
MsgBox?String(10,"*")

'StrReverse函數可反轉一個字符串
Dim?txt
txt="This?is?a?beautiful?day!"
MsgBox?StrReverse(txt)

'*********************************其他函數*******************************

'InputBox函數可顯示一個對話框，用戶可在其中輸入文本或點擊一個按鈕。
Dim?fname
fname=InputBox("Enter?your?name:")
MsgBox?("Your?name?is?"&fname)

'IsEmpty函數可返回指定的變量是否被初始化的布爾值。
Dim?x,y
y=10
MsgBox?IsEmpty(x)
MsgBox?IsEmpty(y)

'IsNull函數可返回指定表達式是否無效數據的布爾值
Dim?x,y,z
x=Null
y=10
z=""
MsgBox?IsNull(x)
MsgBox?IsNull(y)
MsgBox?IsNull(z)

'IsNumeric函數可返回指示指定的表達式是否可作為數字來計算的布爾值。
Dim?x
x=10
MsgBox?IsNumeric(x)
x=Empty
MsgBox?IsNumeric(x)
x="1?h"
MsgBox?IsNumeric(x)

上述內容就是VBS中有哪些常用函數，你們學到知識或技能了嗎？如果還想學到更多技能或者豐富自己的知識儲備，歡迎關注創(chuàng)新互聯行業(yè)資訊頻道。

網站標題：VBS中有哪些常用函數-創(chuàng)新互聯
瀏覽地址：http://aaarwkj.com/article36/gedpg.html

成都網站建設公司_創(chuàng)新互聯，為您提供云服務器、建站公司、靜態(tài)網站、自適應網站、做網站、網站維護

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯