身份证号码15位18位相互转化算法，Powerbuiler、Oracle函数

身份证号码15位18位相互转化算法，Powerbuiler、Oracle函数


    身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》中做了明确的规定。
    GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。GB11643-1999《公民身份号码》主要内容如下：
一、范围
该标准规定了公民身份号码的编码对象、号码的结构和表现形式，使每个编码对象获得一个唯一的、不变的法定号码。
二、编码对象
公民身份号码的编码对象是具有中华人民共和国国籍的公民。
三、号码的结构和表示形式
1、号码的结构
公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。
排列顺序从左至右依次为：
六位数字地址码
八位数字出生日期码
三位数字顺序码
一位数字校验码。
2、地址码
表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
3、出生日期码
表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日代码之间不用分隔符。
4、顺序码
表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
5、校验码
（1）十七位数字本体码加权求和公式
S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求和
Ai:表示第i位置上的身份证号码数字值
Wi:表示第i位置上的加权因子
Wi: 7  9  10  5  8  4  2  1  6  3  7  9  10  5  8  4  2
（2）计算模
Y = mod(S, 11)
（3）通过模得到对应的校验码
Y: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2


本人写的身份证号码15位18位相互转化的Powerbuilder函数

global type getid from function_object
end type

forward prototypes
global function string getnewid (string old_id)
global function string getid (string idcard)
end prototypes

global function string getid (string idcard);
//Leehost写的新旧身份证号码转换函数
//如果输入的身份证号为15位，则返回18位对应号
//如果输入的身份证号为18位，则返回15位对应号
//如果为其它长度，则返回"0"
if len(IDCard)=15 then
       int Wi[]={7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1}
       string Wf[]= {'1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'}
       IDCard = Mid(IDCard, 1, 6) + "19" + Mid(IDCard, 7, 9)
       int i,S=0
       For i = 1 To 17
              S = Wi[ i ]  * integer(Mid(IDCard, i , 1)) +S
       Next
       return IDCard + Wf[Mod(S,11) + 1]
elseif len(IDCard)=18 then
       return Mid(IDCard, 1, 6) +  Mid(IDCard, 9, 9)
end if
return "0"
end function
  

身份证号码15位18位相互转化Oracle数据库函数
FUNCTION GetID(Prm_Id15 IN VARCHAR2) RETURN VARCHAR2 IS
    Prm_Id18 VARCHAR2(20);

    TYPE Wi IS VARRAY(18) OF NUMBER(2);
    TYPE Wf IS VARRAY(11) OF VARCHAR2(1);
    i     NUMBER := 1;
    Str   VARCHAR2(18);
    v_Sum NUMBER(10);
    Ai    NUMBER(2);
    w     Wi := Wi(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1);
    a     Wf := Wf('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2');
  BEGIN

    IF Length(Prm_Id15) = 15 THEN
      Str   := Substr(Prm_Id15, 1, 6) || '19' || Substr(Prm_Id15, 7, 9);
      v_Sum := 0;
      FOR i IN 1 .. 17 LOOP
        v_Sum := v_Sum + To_Number(Substr(Str, i, 1)) * w(i);
      END LOOP;
      Ai       := MOD(v_Sum, 11);
      Prm_Id18 := Str || a(Ai + 1);
      RETURN Prm_Id18;
    ELSIF Length(Prm_Id15) = 18 THEN
      Prm_Id18 := Prm_Id15;
      RETURN Prm_Id18;
    ELSE
      RETURN Prm_Id15;
    END IF;
  EXCEPTION
    WHEN OTHERS THEN
      RETURN Prm_Id15;
   
  END GetID;