热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

判断输入值全为数字的函数

在实际项目中有时候需要判断输入的值是否全为数字,然而直接用判断数字的一些函数如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


推荐阅读
author-avatar
f永远喜爱捉迷藏
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有