[VBScript] IsArray関数,IsDate関数,IsEmpty関数,IsNumeric関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
IsArray(varname)
IsDate(expression)
IsEmpty(expression)
IsNumeric(expression)

■説明
IsArray…配列かどうか判定する。配列の時True。それ以外はFalseを返す。
IsDate…日付かどうか判定する。日付の時True。それ以外はFalseを返す。
IsEmpty…Empty値かどうか判定する。Empty値の時True。それ以外はFalseを返す。
IsNumeric…数値かどうか判定する。数値の時True。それ以外はFalseを返す。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. 'IsArray  
4. Dim aaa  
5. Wscript.Echo IsArray(aaa) ' 0 (False)  
6. aaa = Split("Excel,VBA", ",")  
7. Wscript.Echo IsArray(aaa) '-1 (True)  
8. Wscript.Echo "---"  
9.      
10.   
11. 'IsDate  
12. Wscript.Echo IsDate("2010年11月8日") '-1 (True)  
13. Wscript.Echo IsDate("10時30分25秒")  '-1 (True)  
14. Wscript.Echo IsDate("2010.11.08")    ' 0 (False)  
15. Wscript.Echo "---"  
16.   
17.   
18. 'IsEmpty  
19. Dim bbb  
20. Wscript.Echo IsEmpty(bbb) '-1 (True)  
21. bbb = ""  
22. Wscript.Echo IsEmpty(bbb) ' 0 (False) 空文字でも何かセットするとFalseになる  
23. Wscript.Echo "---"  
24.   
25.   
26. 'IsNumeric  
27. Wscript.Echo IsNumeric("123456")  '-1 (True)  
28. Wscript.Echo IsNumeric("123,456") '-1 (True)  
29. Wscript.Echo IsNumeric("\123456") '-1 (True)  
30. Wscript.Echo "---"  

Option Explicit

'IsArray
Dim aaa
Wscript.Echo IsArray(aaa) ' 0 (False)
aaa = Split("Excel,VBA", ",")
Wscript.Echo IsArray(aaa) '-1 (True)
Wscript.Echo "---"
   

'IsDate
Wscript.Echo IsDate("2010年11月8日") '-1 (True)
Wscript.Echo IsDate("10時30分25秒")  '-1 (True)
Wscript.Echo IsDate("2010.11.08")    ' 0 (False)
Wscript.Echo "---"


'IsEmpty
Dim bbb
Wscript.Echo IsEmpty(bbb) '-1 (True)
bbb = ""
Wscript.Echo IsEmpty(bbb) ' 0 (False) 空文字でも何かセットするとFalseになる
Wscript.Echo "---"


'IsNumeric
Wscript.Echo IsNumeric("123456")  '-1 (True)
Wscript.Echo IsNumeric("123,456") '-1 (True)
Wscript.Echo IsNumeric("\123456") '-1 (True)
Wscript.Echo "---"

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧