VBA基础
将15的身份证号升码为18位的函数
2004-11-23 22:47:17
作 者：李啸林 摘 要：将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 |