您的位置 : 网站首页 > 帮助中心  >  程序代码

15位身份证号换成18位号的处理方法

转换模块:


Function GetNewIDCard(IDCard)

Dim i,S,Wi,Wf,result
Wi= split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",",-1,1)
Wf= Split("1,0,X,9,8,7,6,5,4,3,2", ",",-1,1)
IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9)
S=0
For i = 0 To ubound(wi)
S = cint(Wi(i)) *cint(Mid(IDCard, i + 1, 1)) +S
Next
GetNewIDCard=IDCard & Wf(S Mod 11)

End Function


得到18位身份证号:GetNewIDCard(15位身份证号)


本页网址:http://www.gdibn.com/newsv_89.html
十年独立网站程序开发、网站美工经验。所有网站程序均为原创开发,绝不使用免费网站程序修改。原创版网站绝不会再卖给第三方使用。所售出网站程序请不要给第三方使用。