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

闪联信息技术

闪联信息技术

2016-01-29 18:44

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

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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)

    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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/) 
展开更多 50%)
分享

猜你喜欢

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

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

Excel中将15位身份证号转换为18位

excel
Excel中将15位身份证号转换为18位

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

新身份证校验位算法

PHP
新身份证校验位算法

身份证函数 查看身份证地区信息(2)

Web开发
身份证函数 查看身份证地区信息(2)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

身份证15To18 的算法(C#)

电脑网络
身份证15To18 的算法(C#)

身份证方面的函数

Web开发
身份证方面的函数

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

ACCESS转化成SQL2000需要注意的几个问题

ACCESS转化成SQL2000需要注意的几个问题

windows XP系统初步优化技巧集

windows XP系统初步优化技巧集
下拉加载更多内容 ↓