验证非浮点整数值

问题描述

代码如下：


函数isInt（输入）

isInt = true

for i = 1到len（输入）

d =中（输入，i，1）

如果Asc（d）< 48或Asc（d）> 57然后

isInt = false

退出

结束如果

next


结束功能

我尝试更换：


功能isInt（输入）


设置re =新的RegExp

re.Pattern =" [0-9]"

isInt = re.test（输入）


结束功能


但似乎没有用。


如何解决问题？


非常感谢您的帮助。


问候


Eugene Anthony

***发送来自开发人员指南 ***

解决方案

单程：


函数IsInt（str）

IsInt = CDbl（str）= Int（str）

结束功能

-

戴夫安德森


未经请求的商业电子邮件将以

The code bellow:

function isInt(input)

isInt = true
for i=1 to len(input)
d = Mid(input,i,1)
if Asc(d) < 48 OR Asc(d) > 57 then
isInt = false
exit for
end if
next

end function
I tried replacing with:

function isInt(input)

Set re = new RegExp
re.Pattern = "[0-9]"
isInt = re.test(input)

end function

But dont seem to work.

How do I solve the problem?.

Your help is kindly appreciated.

Regards

Eugene Anthony
*** Sent via Developersdex http://www.developersdex.com ***

解决方案

One way:

Function IsInt(str)
IsInt = CDbl(str) = Int(str)
End Function
--
Dave Anderson

Unsolicited commercial email will be read at a cost of

这篇关于验证非浮点整数值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！