作者:f永远喜爱捉迷藏 | 来源:互联网 | 2023-09-06 21:23
在实际项目中有时候需要判断输入的值是否全为数字,然而直接用判断数字的一些函数如Val()和Isnumeric()等对"+"号,"-"号,还有小数点不能直接过滤
在实际项目中有时候需要判断输入的值是否全为数字,然而直接用判断数字的一些函数如Val()和Isnumeric()等 对"+"号,"-"号,还有小数点不能直接过滤,下面的函数实现判断功能,如果全为数字返回True,如果有非数字返回False。
Public Function Number_Check(ByVal str As String) As Boolean
Dim i As Integer = Len(str)
Dim j As Integer
Dim flag As Boolean = True
For j = 1 To i
If IsNumeric(Mid(str, j, 1)) Then
flag = True
Else
flag = False
Exit For
End If
Next
Return flag
End Function