明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

將身份證從15位升級為18位的函數(shù)

發(fā)表時間：2024-01-17 來源：明輝站整理相關軟件相關文章人氣：

[摘要]'將身份證從15位升級為18位的函數(shù) Function GetNewIDCard(ByVal IDCard As String) As String Dim i, S As Integer Dim Wi() As String = Split("...

    '將身份證從15位升級為18位的函數(shù)

    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