将15的身份证号升码为18位的函数_access模块-access类模块-access函数-access VBA

将15的身份证号升码为18位的函数

时间：2004-11-23 22:47 来源：Office中国/Access中国作者：李啸林阅读：次

作    者：李啸林
摘    要：将15的身份证号码升为18位的函数。
　　在新旧身份证同时并存使用的情况下，最好将升位后的18位方式保存在数据库中，下面的函数能将用户输入的15位数据转化为18位。

正    文：

一个将15的身份证号码升为18位的函数(VB)
--------------------------------------------------------------------------------

程序员之家
在新旧身份证同时并存使用的情况下，最好将升位后的18位方式保存在数据库中，下面的函数能将用户输入的15位数据转化为18位。

Function IDCode15to18(sCode15 As String) As String
　　'*　功能:将15的身份证号升为18位(根据GB 11643-1999)
　　'*　参数:原来的号码
　　'*　返回:升位后的18位号码
　　Dim i As Integer
　　Dim num As Integer
　　Dim code As String
　　num = 0
　　IDCode15to18 = Left(sCode15, 6) + "19" + Right(sCode15, 9)
　　'　计算校验位
　　For i = 18 To 2 Step -1
　　　num = num + (2 ^ (i - 1) Mod 11) * (Mid(IDCode15to18, 19 - i, 1))
　　Next i
　　num = num Mod 11
　　Select Case num
　　Case 0
　　　code = "1"
　　Case 1
　　　code = "0"
　　Case 2
　　　code = "X"
　　Case Else
　　　code = Trim(Str(12 - num))
　　End Select
　　IDCode15to18 = IDCode15to18 + code
End Function

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：关闭所有打开的Access对象
下一篇：如何用VBA更改数据库密码