Office中国论坛/Access中国论坛

标题: 请问如何判断一个字符串是不是数字字符串？ [打印本页]

作者: 网络蜘蛛 时间: 2013-2-25 09:11
标题: 请问如何判断一个字符串是不是数字字符串？
同问！

作者: access新闻爱好者 时间: 2013-2-25 09:37

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 时间: 2013-2-25 10:36
IsNumberic函数

作者: 网络蜘蛛 时间: 2013-2-25 12:12

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

多谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)