将身份证从15位升级为18位代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】将身份证从15位升级为18位

作者: / 发布于2011/1/6/ 683

<div>
<div><font face="新宋体">Function GetNewIDCard(ByVal IDCard As String) As String</font></div>
<div><font face="新宋体"> Dim i, S As Integer</font></div>
<div><font face="新宋体"> Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")</font></div>
<div><font face="新宋体"> Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",")</font></div>
<div></div>
<div><font face="新宋体"> If Mid(IDCard, 7, 2) >= Mid(Now.AddYears(-14).Year, 3, 2) Then</font></div>
<div><font face="新宋体"> IDCard = Mid(IDCard, 1, 6) & "18" & Mid(IDCard, 7, 9)</font></div>
<div><font face="新宋体"> Else</font></div>
<div><font face="新宋体"> IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9)</font></div>
<div><font face="新宋体"> End If</font></div>
<div></div>
<div><font face="新宋体"> For i = 0 To 16</font></div>
<div><font face="新宋体"> S += Wi(i) * Mid(IDCard, i + 1, 1)</font></div>
<div><font face="新宋体"> Next</font></div>
<div></div>
<div><font face="新宋体"> Return IDCard & Wf(S Mod 11)</font></div>
<div><font face="新宋体"> End Function</font></div>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label