【VBScript】数値であるかのチェック

2023年2月4日VBScript

数値であるかのチェック

VBScriptで、ある文字が数値であるか（数値に変換できるか）のチェックができる関数です。

引数　target：チェックする文字、数値

結果　数値である：True、数値でない：False

Function IsNumeric(target)
On Error Resume Next

	'空である時はFalseで返す
	if target = "" then
		IsNumeric = false
		exit function
	end if

	'数値に変換
	dim temp
	temp = cint(target)

	'エラーがあるかで分岐
	If Err.Number <> 0  Then
        	'数値でない時
		IsNumeric = false
	else
        	'数値の時
		IsNumeric = true
	end if

On Error Goto 0
End Function

 

 

実行するとこうなります

'実行例
msgbox IsNumeric(123)        '結果：True
msgbox IsNumeric("012345")   '結果：True
msgbox IsNumeric("abc")      '結果：False
msgbox IsNumeric("")         '結果：False