Question

vbscript中怎样判断得到的一个数是整数

从text中得到一个值，我想判断他是不是整数。

Answer 1

'调用函数方式
msgbox vt("23.8")

Function vt(byref s)
if IsNumeric(s) and instr(s,".")=0 then
vt="是整数"
Else
vt="不是整数"
end if
End Function

'非调用函数方式
s="123"
if IsNumeric(s) and instr(s,".")=0 then
msgbox "是整数"
Else
msgbox "不是整数"
end if

Answer 2

Function varTest(text)
if VarType(text)=2 then
varTest=" 整数"
Else
varTest="不是整数"
End If
End Function

MsgBox(varTest("234")) '得到“整数”
MsgBox(varTest("abc")) '得到“不是整数”

Answer 3

if int(a)=a then 整数