您的位置 : 網站首頁 > 幫助中心  >  程序代碼

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.qsxyor.icu/newsv_89.html
十年獨立網站程序開發、網站美工經驗。所有網站程序均為原創開發,絕不使用免費網站程序修改。原創版網站絕不會再賣給第三方使用。所售出網站程序請不要給第三方使用。
2019王中王