Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

手机号码正确性校验函数

时 间:2021-04-06 21:13:36
作 者:李志能   ID:29924  城市:文山
摘 要:手机号码正确性校验函数。
正 文:

      不能100%校验成功,比如将来有了154号段,那么154开头的号码将认为是错误的,请修改正则表达式就好。
'============================================
'函数名称: CheckPhoneNumber
'功能描述: 校验手机号码是否正确
'输入参数: PhoneNumber    字符串,必需的,手机号码
'返回参数: 手机号码正确返回True,否则返回False
'使用说明:
'引    用: 无
'作    者: 李志能
'创建日期: 2021-04-6
'============================================
Public Function CheckPhoneNumber(PhoneNumber As String) As Boolean
    Dim oregExp As Object
    
    Set oregExp = CreateObject("vbscript.regexp")
    With oregExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "^((13[0-9])|(14[1]|[4-9])|(15([0-3]|[5-9]))|(16[2]|[5-7])|(17[0-3]|[5-8])|(18[0-9])|(19[1|8|9]))\d{8}$"
    End With
    
    If oregExp.Test(PhoneNumber) Then
        CheckPhoneNumber = True
    Else
        CheckPhoneNumber = False
    End If
    
End Function


Access软件网QQ交流群 (群号:39785885)       Access源码网店

最新评论: 查看更多评论(0)

发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!

用户名:
密 码:
内 容:
 

常见问答:

技术分类:

相关资源:

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助