Foxtable(狐表)用户栏目专家坐堂 → 有关validPIN函数


  共有2520人关注过本帖树形打印复制链接

主题:有关validPIN函数

帅哥哟,离线,有人找我吗?
www111998
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
有关validPIN函数  发帖心情 Post By:2018/3/29 10:45:00 [只看该作者]

狐表的validPIN的函数验证身份信息是不是权威的,为什么一个身份证号码在不同的电脑下验证结果不一样 ,难道是电脑设置的问题
求助有关validPIN函数的详解

 回到顶部
帅哥哟,离线,有人找我吗?
www111998
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
  发帖心情 Post By:2018/3/29 10:48:00 [只看该作者]

一个身份证号码,在试用版的代码下可以验证,
在开发版的代码下不能验证
同一代码下,其他的几百个身份证号码都能验证,就一个不能验证,

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 10:50:00 [只看该作者]

validPIN 只是简单的校验而已,有可能不准确,判断逻辑类似这样 https://jingyan.baidu.com/article/d5a880eb974b6513f147ccec.html

 

一些合法的身份证,通过此函数校验,有可能误报不正确的情况。

 

但是,你说的【不同电脑下执行得到不同结果】,这个是不可能的。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
www111998
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
  发帖心情 Post By:2018/3/29 11:05:00 [只看该作者]

看样子又是语法错误的问题,请教validPIN函数的使用方法,以及语法

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 11:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
www111998
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
  发帖心情 Post By:2018/3/29 11:15:00 [只看该作者]

If e.DataCol.Name = "身份证号码" Then
    Dim dr As DataRow = e.DataRow
    If ValidPIN(dr("身份证号码")) = False Then
        'If dr.IsNull("身份证号码") Then
        dr("出生年月") = Nothing
        dr("年龄") = Nothing
        dr("性别") = Nothing
    Else
        dr("出生年月") = ReadBirthday(dr("身份证号码"))
        dr("性别") = ReadSex(dr("身份证号码"))
        Dim t As TimeSpan = today - CDate(dr("出生年月"))
        dr("年龄") = Math.Round(t.TotalDays / 365.2422,2)
       ' End If
    End If
End If

这样下不能显示

 回到顶部
帅哥哟,离线,有人找我吗?
www111998
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
  发帖心情 Post By:2018/3/29 11:17:00 [只看该作者]

If e.DataCol.Name = "身份证号码" Then
    Dim dr As DataRow = e.DataRow
    If ValidPIN(dr("身份证号码")) = False Then
        If dr.IsNull("身份证号码") Then
        dr("出生年月") = Nothing
        dr("年龄") = Nothing
        dr("性别") = Nothing
    Else
        dr("出生年月") = ReadBirthday(dr("身份证号码"))
        dr("性别") = ReadSex(dr("身份证号码"))
        Dim t As TimeSpan = today - CDate(dr("出生年月"))
        dr("年龄") = Math.Round(t.TotalDays / 365.2422,2)
        End If
    End If
End If

这样下能够显示各种信息,但不验证身份证号码了

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 11:20:00 [只看该作者]

If e.DataCol.Name = "身份证号码" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("身份证号码") Then
        dr("出生年月") = Nothing
        dr("年龄") = Nothing
        dr("性别") = Nothing
    Else
        If ValidPIN(dr("身份证号码")) = False Then
            msgbox("身份证输入不正确")
        Else
            dr("出生年月") = ReadBirthday(dr("身份证号码"))
            dr("性别") = ReadSex(dr("身份证号码"))
            Dim t As TimeSpan = today - CDate(dr("出生年月"))
            dr("年龄") = Math.Round(t.TotalDays / 365.2422,2)
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
www111998
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:721 威望:0 精华:0 注册:2018/2/26 13:37:00
  发帖心情 Post By:2018/3/29 11:28:00 [只看该作者]

还是显示不了,但是明白了,也就是说这个身份证号码通过不了验证,ValidPIN认为这样号码是错的,但是不验证的情况下也是可以识别性别,出生日期和年龄等信息的,是这样的吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 11:31:00 [只看该作者]

以下是引用www111998在2018/3/29 11:28:00的发言:
还是显示不了,但是明白了,也就是说这个身份证号码通过不了验证,ValidPIN认为这样号码是错的,但是不验证的情况下也是可以识别性别,出生日期和年龄等信息的,是这样的吗?

 

身份证号码贴出来看看,有可能是误报。

 

提取出生日期、年龄、性别等信息,是从固定位置提取的,所以这个没问题。

 

ValidPIN校验处理你提取的那些信息,还有别的一些校验的。


 回到顶部
总数 14 1 2 下一页