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 |
下面給大家一個常見實例，大家可以運行測試
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
|
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常見函數的文章就介紹到這里，希望大家以后多多支持服務器之家。
原文鏈接：https://www.cnblogs.com/top5/archive/2010/03/10/1682487.html
