VBS中有哪些常用函數(shù)

本篇文章為大家展示了VBS中有哪些常用函數(shù)，內(nèi)容簡(jiǎn)明扼要并且容易理解，絕對(duì)能使你眼前一亮，通過(guò)這篇文章的詳細(xì)介紹希望你能有所收獲。

vbs常用函數(shù)

注釋：

Rnd 函數(shù)

語(yǔ)法：Rnd[(number)]

返回一隨機(jī)數(shù)。參數(shù) number 可以是任何的數(shù)值表達(dá)式。

注解:

Rnd 函數(shù)返回的隨機(jī)數(shù)介于 0 和 1 之間，可等于 0，但不等于 1。

number 的值會(huì)影響 Rnd 返回的隨機(jī)數(shù)：

各種轉(zhuǎn)換函數(shù)及功能

注釋：

1整型
以Integer 表示整型，其范圍為 -32,768 到 32,767 之間。

2、長(zhǎng)整型
Long(長(zhǎng)整型) ，其范圍從 -2,147,483,648 到 2,147,483,647。

3、單精度型(Single) 
Single(單精度浮點(diǎn)型)，它的范圍在負(fù)數(shù)的時(shí)候是從 -3.402823E38 到 -1.401298E-45，而在正數(shù)的時(shí)候是從 1.401298E-45 到 3.402823E38。

4、雙精度型(Double)
Double(雙精度浮點(diǎn)型)它的范圍在負(fù)數(shù)的時(shí)候是從 -1.79769313486232E308 到 -4.94065645841247E-324，而正數(shù)的時(shí)候是從 4.94065645841247E-324 到 1.79769313486232E308。

常用的字符串函數(shù)及功能

常用的字符串函數(shù)及功能

常用日期和時(shí)間函數(shù)及說(shuō)明

日期或時(shí)間間隔因子

常用的檢驗(yàn)函數(shù)及功能

下面給大家一個(gè)常見(jiàn)實(shí)例，大家可以運(yùn)行測(cè)試

Option?Explicit
'*********************************Date/Time函數(shù)*******************************
'CDate函數(shù)把一個(gè)合法的日期和事件表達(dá)式轉(zhuǎn)換為Date類型，并返回結(jié)果
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函數(shù)返回當(dāng)前系統(tǒng)的日期
'日期
MsgBox?Date
'日期+時(shí)間
MsgBox?Now
'時(shí)間
MsgBox?Time

'DateAdd函數(shù)可返回已添加指定時(shí)間間隔的日期
MsgBox?DateAdd("yyyy",1,"31-Jan-2003")'加一年
MsgBox?DateAdd("yyyy",1,"31-Jan-2003")'減一年
MsgBox?DateAdd("q",1,"31-Jan-2003")'加一個(gè)季度
MsgBox?DateAdd("m",1,"31-Jan-2003")'加一個(gè)月
MsgBox?DateAdd("y",1,"31-Jan-2003")'當(dāng)年的第幾天
MsgBox?DateAdd("d",1,"31-Jan-2003")'增加一天
MsgBox?DateAdd("w",1,"31-Jan-2003")'當(dāng)周的第幾天
MsgBox?DateAdd("ww",1,"31-Jan-2003")'增加一個(gè)周
MsgBox?DateAdd("h",1,"31-Jan-2003")'某日期的第一個(gè)小時(shí)
MsgBox?DateAdd("n",1,"31-Jan-2003")'某日期的第一分鐘
MsgBox?DateAdd("s",1,"31-Jan-2003")'某日期的第一秒

'DateDiff函數(shù)可返回兩個(gè)日期之間的時(shí)間間隔數(shù)
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函數(shù)可返回給定日期的指定部分
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函數(shù)可返回指定的年、月、日的子類型Date的Variant
MsgBox?DateSerial(2012,2,30)

'DateValue函數(shù)返回一個(gè)日期類型
MsgBox?DateValue("31-Jan-2012?2:39:49?AM")

'Day函數(shù)可返回介于1到31之間的一個(gè)代表月的天數(shù)的數(shù)字
MsgBox?Day(Date)

'FormatDateTime函數(shù)可格式化并返回一個(gè)額合法的日期或時(shí)間表達(dá)式
MsgBox?FormatDateTime(Now,0)
MsgBox?FormatDateTime(Now,1)
MsgBox?FormatDateTime(Now,2)
MsgBox?FormatDateTime(Now,3)
MsgBox?FormatDateTime(Now,4)

'Hour函數(shù)可返回介于0到23之間的代表天的小時(shí)數(shù)的數(shù)字
MsgBox?Hour(Now)

'IsDate函數(shù)可返回一個(gè)布爾值，指示經(jīng)計(jì)算的表達(dá)式是否可被轉(zhuǎn)換為日期，如果表達(dá)式是日期或可被轉(zhuǎn)換為日期，則返回True，否則，返回False。
MsgBox?IsDate("15-3-2012")

'Minute函數(shù)可返回表示小時(shí)的分鐘數(shù)的數(shù)字
MsgBox?Minute(Now)

'Month函數(shù)可返回表示年的月份的數(shù)字
MsgBox?Month(Now)

'Second函數(shù)可返回表示分鐘的秒數(shù)的數(shù)字
MsgBox?Second(Now)

'Time函數(shù)可返回當(dāng)前的系統(tǒng)時(shí)間
MsgBox?Time

'Timer函數(shù)可返回午夜12時(shí)以后已經(jīng)過(guò)去的秒數(shù)
MsgBox?Timer

'TimeSerial函數(shù)可把時(shí)、分、秒合并成為時(shí)間
MsgBox?TimeSerial(3,45,50)

'TimeValue函數(shù)可返回包含時(shí)間的日期子類型的變量
MsgBox?TimeValue(Now)

'Weekday函數(shù)可返回表示一周的天數(shù)的數(shù)字，介于1和7之間。
MsgBox?Weekday(Date,0)

'WeekdayName函數(shù)可返回一周中指定一天的星期名
MsgBox?WeekdayName(3)
MsgBox?WeekdayName(Weekday(Date,1))

'Year函數(shù)可返回表示年份的一個(gè)數(shù)字
MsgBox?Year(date)

'*********************************Conversion函數(shù)*******************************
'Asc函數(shù)可把字符串中的第一個(gè)字母轉(zhuǎn)換為對(duì)應(yīng)的ANSI代碼，并返回結(jié)果
MsgBox?Asc("A")
MsgBox?Asc("a")

'CBool函數(shù)可把表達(dá)式轉(zhuǎn)換為布爾類型
Dim?a
a=5
MsgBox?CBool(a)

'CByte函數(shù)可把表達(dá)式轉(zhuǎn)換為字節(jié)類型
Dim?b
b=134.12345
MsgBox?CByte(b)

'CCur函數(shù)可把表達(dá)式轉(zhuǎn)換為貨幣類型
Dim?c
c=12345.12345656
MsgBox?CCur(c)

'CDbl函數(shù)可把表達(dá)式轉(zhuǎn)換為雙精度類型
Dim?e
e=123.12454656577435235436
MsgBox?CDbl(e)

'Chr函數(shù)可把指定的ANSI字符代碼轉(zhuǎn)換為字符
MsgBox?Chr(65)

'CInt函數(shù)可把表達(dá)式轉(zhuǎn)換為整數(shù)類型
MsgBox?CInt(12.3435)

'CLng函數(shù)可把表達(dá)式轉(zhuǎn)換為長(zhǎng)整形類型
MsgBox?CLng(12.676)
MsgBox?CLng(12.243)

'CSng函數(shù)可把表達(dá)式轉(zhuǎn)換為單精度類型
MsgBox?CSng(122.355465)
MsgBox?CSng(21.23222)

'CStr函數(shù)可把表達(dá)式轉(zhuǎn)換為字符串類型
MsgBox?CStr(false)
MsgBox?CStr(Date)
MsgBox?CStr(Empty)
MsgBox?CStr(Error)


'*********************************Format函數(shù)*******************************

'FormatCurrency函數(shù)可返回作為貨幣值被格式化的表達(dá)式，使用系統(tǒng)控制面板中定義的貨幣符號(hào)
MsgBox?FormatCurrency(21.23456)

'FormatNumber函數(shù)可返回作為數(shù)字被格式化的表達(dá)式
MsgBox?FormatNumber(12.23456775,3)

'FormatPercent函數(shù)可返回作為百分?jǐn)?shù)被格式化的表達(dá)式
MsgBox?FormatPercent(3/7,3)

'*********************************Math函數(shù)*******************************
'Abs函數(shù)可返回指定的數(shù)字的絕對(duì)值
MsgBox?Abs(-9)

'Atn函數(shù)可返回指定數(shù)字的正切
MsgBox?Atn(9)

'Cos函數(shù)可返回指定數(shù)字的余弦
MsgBox?Cos(9)

'Exp函數(shù)可e的冪次方
MsgBox?Exp(2.3)

'Fix函數(shù)可返回指定數(shù)字的整數(shù)部分
MsgBox?Fix(-6.325)
MsgBox?Int(-6.325)

'Log函數(shù)可返回指定數(shù)據(jù)的自然對(duì)數(shù)
MsgBox?Log(10)

'Rnd函數(shù)可返回一個(gè)隨機(jī)數(shù)，數(shù)字總是小于1但大于或等于0.
MsgBox?Rnd

'Sgn函數(shù)可返回指定數(shù)字的符號(hào)的整數(shù)
MsgBox?Sgn(15)
MsgBox?Sgn(-5)
MsgBox?Sgn(0)

'Sin函數(shù)可返回指定數(shù)字的正弦
MsgBox?Sin(9)

'Sqr函數(shù)可返回一個(gè)數(shù)的平方根
MsgBox?Sqr(9)

'Tan函數(shù)可返回指定數(shù)字的正切
MsgBox?Tan(9)


'*********************************Array函數(shù)*******************************
'Array可返回一個(gè)包含數(shù)組的變量
Dim?Arr
Arr=Array(1,2,3,4,5)
MsgBox?Arr(0)

'Filter函數(shù)可返回一個(gè)基于0的數(shù)組，此數(shù)組包含以特定過(guò)濾條件為基礎(chǔ)的字符串?dāng)?shù)組的子集
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函數(shù)可返回一個(gè)指示指定的變量是否為數(shù)組的布爾值。如果變量為數(shù)組，則返回True，否則返回False。
Dim?a(3)
a(0)=1
a(1)=2
a(2)=3
MsgBox?IsArray(a)

'Join函數(shù)可返回一個(gè)由某個(gè)數(shù)組中一系列子字符串組成的字符串
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函數(shù)可返回指示數(shù)組維數(shù)的最小下標(biāo)。（始終為0）
'UBound函數(shù)可返回指示數(shù)組維數(shù)的最大下標(biāo)。
Dim?a(5)
MsgBox?LBound(a)
MsgBox?UBound(a)

'Split函數(shù)可返回基于0的一維數(shù)組，此數(shù)組包含指定的子字符串
Dim?txt,a
txt="hello/world!"
a=Split(txt,"/")
MsgBox?a(0)
MsgBox?a(1)

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

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

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

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

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

'LTrim函數(shù)可刪除字符串左側(cè)的空格
'RTrim函數(shù)可刪除字符串右側(cè)的空格
'Trim函數(shù)可刪除字符串兩端的空格
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函數(shù)可從字符串中返回指定數(shù)目的字符
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函數(shù)可使用一個(gè)字符串替換另一個(gè)字符串指定的次數(shù)
Dim?txt
txt="This?is?a?beautiful?day!"
MsgBox?Replace(txt,"is","AA",4,2)

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

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

'String函數(shù)可返回包含指定長(zhǎng)度的重復(fù)字符的一個(gè)字符串
MsgBox?String(10,"*")

'StrReverse函數(shù)可反轉(zhuǎn)一個(gè)字符串
Dim?txt
txt="This?is?a?beautiful?day!"
MsgBox?StrReverse(txt)

'*********************************其他函數(shù)*******************************

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

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

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

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

上述內(nèi)容就是VBS中有哪些常用函數(shù)，你們學(xué)到知識(shí)或技能了嗎？如果還想學(xué)到更多技能或者豐富自己的知識(shí)儲(chǔ)備，歡迎關(guān)注億速云行業(yè)資訊頻道。