功能：将15的身份证号升为18位(根据GB 11643-1999) 
参数：原来的号码（15位） 
返回：升位后的18位号码 
用法：=IDCODE(a1)  （假设A1放的是原15位号码）

关于身份证号码最后一位的校验码的算法如下：

我国现行使用公民身份证号码有两种尊循两个国家标准，〖GB 11643-1989〗和〖GB 11643-1999〗。
〖GB 11643-1989〗中规定的是15位身份证号码：排列顺序从左至右依次为：六位数字地址码，六位数字出生日期码，三位数字顺序码，其中出生日期码不包含世纪数。
〖GB 11643-1999〗中规定的是18位身份证号码：公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。
生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。
顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。
校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。
公式如下：
　　∑(a[i]*W[i]) mod 11 ( i = 2, 3, …, 18 ) (1)
　　”*” 表示乘号
　　i——–表示身份证号码每一位的序号，从右至左，最左侧为18，最右侧为1。
　　a[i]—–表示身份证号码第 i 位上的号码
　　W[i]—–表示第 i 位上的权值 W[i] = 2^(i-1) mod 11
　　计算公式 (1) 令结果为 R
根据下表找出 R 对应的校验码即为要求身份证号码的校验码C。
　　R 0 1 2 3 4 5 6 7 8 9 10
　　C 1 0 X 9 8 7 6 5 4 3 2
由此看出 X 就是 10，罗马数字中的 10 就是X，所以在新标准的身份证号码中可能含有非数字的字母X。

Function IDCode(sCode15)
  Dim i,num
  Dim code
  num = 0
  IDCode = Left(sCode15, 6) + “19″ + Right(sCode15, 9)
  ‘　计算校验位
  For i = 18 To 2 Step -1
    num = num + (2 ^ (i - 1) Mod 11) * (Mid(IDCode, 19 - i, 1))
  Next
  num = num Mod 11
  Select Case num
  Case 0
    code = “1″
  Case 1
    code = “0″
  Case 2
    code = “X”
  Case Else
    code = Trim(CStr(12 - num))
  End Select
  IDCode = IDCode + code
End Function