VB实现的身份证校验位算法

发布时间：2020-12-16 23:24:28 所属栏目：大数据来源：网络整理

导读：Function IDVerify(ID) t = 1 For i = 1 To 17 t = t + Val(Mid(ID,i,1)) * (2 ^ (23 - i) Mod 11) Next t = t Mod 11 If t = 10 Then IDVerify = "X" Else IDVerify = Trim(Str(t)) End IfEnd Function

Function IDVerify(ID) t = 1 For i = 1 To 17 t = t + Val(Mid(ID,i,1)) * (2 ^ (23 - i) Mod 11) Next t = t Mod 11 If t = 10 Then IDVerify = "X" Else IDVerify = Trim(Str(t)) End If End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!