WEB开发网
开发学院WEB开发ASP 将身份证从15位升级为18位的函数 阅读

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

 2004-09-28 10:28:31 来源:WEB开发网   
核心提示: '将身份证从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,

   '将身份证从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

Tags:身份证 升级 函数

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接