主题：有关validPIN函数

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

 

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

 

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

 

 

 

http://www.foxtable.com/webhelp/scr/2624.htm

 

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

 

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

 

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

 

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

此主题相关图片如下：qq截图20180329113504.png


此主题相关图片如下：qq截图20180329113553.png

 

是的，大概率是身份证号有问题，小概率是算法问题。