将身份证从15位升级为18位的函数

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

'将身份证从15位升级为18位的函数

Function GetNewIDCard(ByVal IDCard As String) As String

Dim i, S As Integer

Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")

Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",")

If Mid(IDCard, 7, 2) >= Mid(Now.AddYears(-14).Year, 3, 2) Then

IDCard = Mid(IDCard, 1, 6) & "18" & Mid(IDCard, 7, 9)

Else

IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9)

End If

For i = 0 To 16

S += Wi(i) * Mid(IDCard, i + 1, 1)

Next

Return IDCard & Wf(S Mod 11)

End Function

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航