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

    '将身份证从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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值