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

原创 2004年07月21日 10:17:00

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

Oracle常用函数:IDCARD15TO18() 身份证15位转18位函数

Create Or Replace Function IDCARD15TO18(CARD Varchar2) Return Varchar2 Is     Type TIARRAY Is Table...
  • mikean
  • mikean
  • 2013年12月29日 13:11
  • 3212

java 校验15位或18位身份证号码

package com.first.common.utility.idcard; import java.text.SimpleDateFormat; import java.util.C...
  • yuanquanl
  • yuanquanl
  • 2016年09月01日 17:26
  • 1817

php 验证 身份证号码 合法性 兼容 (15位 和 18位身份证号码)

  • mhhyoucom
  • mhhyoucom
  • 2014年03月28日 11:41
  • 1567

sqlserver 将15位身份证升级成18位的用户定义函数

--将15位身份证升级成18位的用户定义函数 CREATE FUNCTION ID15TO18 (@id15 char(15)) RETURNS CHAR(18) AS BEGIN DEC...
  • suenzheng1
  • suenzheng1
  • 2014年11月23日 10:26
  • 248

身份证号15位升级到18位易语言源码

  • 2013年07月16日 16:42
  • 49KB
  • 下载

java代码实现15位身份证号码升级到18位

18位身份证号码的组成: 公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码, 三位数字顺序码和一位数字校验码。 六位数字地址...
  • mhmyqn
  • mhmyqn
  • 2012年06月22日 12:14
  • 10545

java代码实现15位身份证号码升级到18位

转载网址   点击打开链接 转载一份作为记录,真心不错。受教! 18位身份证号码的组成: 公民身份号码是特征组合码,由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为:六位数字地...
  • u012271269
  • u012271269
  • 2013年09月27日 21:17
  • 302

15位身份证号升级为18位的SQL语句

  • 2011年03月15日 18:00
  • 2KB
  • 下载

SQL15位和18位公民身份证校验函数

  • 2012年04月06日 11:09
  • 2KB
  • 下载

Oracle常用函数:IDCARD15TO18() 身份证15位转18位函数

Create Or Replace Function IDCARD15TO18(CARD Varchar2) Return Varchar2 Is     Type TIARRAY Is Table...
  • mikean
  • mikean
  • 2013年12月29日 13:11
  • 3212
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将身份证从15位升级为18位的函数
举报原因:
原因补充:

(最多只允许输入30个字)