ID_Card.rar_PowerBuilder_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;