一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

判断数字是否整形

时间:2010-04-14 编辑:简简单单 来源:一聚教程网

function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function

热门栏目