请问如何判断一个字符串是不是数字字符串？

网络蜘蛛

同问！

access新闻爱好者

Public Function IsNumbersOnly(chkStr As String) As Boolean
'检测字符串是否全部由数字组成
   Dim i As Long
   Const AllNumbers = "0123456789"

   IsNumbersOnly = True
   For i = 1 To Len(chkStr)
       If InStr(AllNumbers, Mid(chkStr, i, 1)) = 0 Then
           IsNumbersOnly = False
           Exit Function
       End If
   Next i
End Function

admin

IsNumberic函数

网络蜘蛛

admin 发表于 2013-2-25 10:36
IsNumberic函数

多谢！