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

 

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

你可能感兴趣的:(VB实现的身份证校验位算法)