欢迎进入广州凡科互联网科技有限公司网站
全国服务热线
4000-399-000
15位真实身份证号换为1八位号的解决方式
时间: 2021-02-18 17:08 浏览次数:
15位真实身份证号换为1八位号的解决方式 变换控制模块:Function GetNewIDCard(IDCard)Dim i,S,Wi,Wf,resultWi= 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(ID
15位真实身份证号换为1八位号的解决方式

变换控制模块:
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
获得1八位真实身份证号:GetNewIDCard(15位真实身份证号) 十年单独网站源代码开发设计、网页美工工作经验。全部网站源代码均为原創开发设计,决不应用完全免费网站源代码改动。原創版网站决不会再卖给第三方应用。所卖出网站源代码请不必给第三方应用。



Copyright © 广州凡科互联网科技有限公司 版权所有 粤ICP备10235580号
全国服务电话:4000-399-000   传真:021-45545458
公司地址:广州市海珠区工业大道北67号凤凰创意园