1、正则表达式写法：

  1. CREATE OR REPLACE FUNCTION Func_checkidcard (p_idcard IN VARCHAR2) RETURN INT
  2. IS
  3.    v_regstr      VARCHAR2 (2000);
  4.    v_sum         NUMBER;
  5.    v_mod         NUMBER;
  6.    v_checkcode   CHAR (11)       := '10X98765432';
  7.    v_checkbit    CHAR (1);
  8.    v_areacode    VARCHAR2 (2000) := '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';
  9. BEGIN
  10.    CASE LENGTHB (p_idcard)
  11.       WHEN 15
  12.       THEN                                                            -- 15位
  13.          IF INSTRB (v_areacode, SUBSTR (p_idcard, 1, 2) || ',') = 0 THEN
  14.             RETURN 0;
  15.          END IF;
  16.  
  17.          IF MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 2)) + 1900, 400) = 0
  18.             OR
  19.             (
  20.                 MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 2)) + 1900, 100) <> 0
  21.                 AND
  22.                 MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 2)) + 1900, 4) = 0
  23.             )
  24.          THEN                                                          -- 闰年
  25.             v_regstr :=
  26.                '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}$';
  27.          ELSE
  28.             v_regstr :=
  29.                '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}$';
  30.          END IF;
  31.  
  32.          IF REGEXP_LIKE (p_idcard, v_regstr) THEN
  33.             RETURN 1;
  34.          ELSE
  35.             RETURN 0;
  36.          END IF;
  37.       WHEN 18
  38.       THEN                                                             -- 18位
  39.          IF INSTRB (v_areacode, SUBSTRB (p_idcard, 1, 2) || ',') = 0 THEN
  40.             RETURN 0;
  41.          END IF;
  42.  
  43.          IF MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 4)), 400) = 0
  44.             OR
  45.             (
  46.                 MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 4)), 100) <> 0
  47.                 AND
  48.                 MOD (TO_NUMBER (SUBSTRB (p_idcard, 7, 4)), 4) = 0
  49.             )
  50.          THEN                                                          -- 闰年
  51.             v_regstr :=
  52.                '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$';
  53.          ELSE
  54.             v_regstr :=
  55.                '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$';
  56.          END IF;
  57.  
  58.          IF REGEXP_LIKE (p_idcard, v_regstr) THEN
  59.             v_sum :=
  60.                    (  TO_NUMBER (SUBSTRB (p_idcard, 1, 1))
  61.                     + TO_NUMBER (SUBSTRB (p_idcard, 11, 1))
  62.                    )
  63.                  * 7
  64.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 2, 1))
  65.                     + TO_NUMBER (SUBSTRB (p_idcard, 12, 1))
  66.                    )
  67.                  * 9
  68.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 3, 1))
  69.                     + TO_NUMBER (SUBSTRB (p_idcard, 13, 1))
  70.                    )
  71.                  * 10
  72.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 4, 1))
  73.                     + TO_NUMBER (SUBSTRB (p_idcard, 14, 1))
  74.                    )
  75.                  * 5
  76.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 5, 1))
  77.                     + TO_NUMBER (SUBSTRB (p_idcard, 15, 1))
  78.                    )
  79.                  * 8
  80.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 6, 1))
  81.                     + TO_NUMBER (SUBSTRB (p_idcard, 16, 1))
  82.                    )
  83.                  * 4
  84.                +   (  TO_NUMBER (SUBSTRB (p_idcard, 7, 1))
  85.                     + TO_NUMBER (SUBSTRB (p_idcard, 17, 1))
  86.                    )
  87.                  * 2
  88.                + TO_NUMBER (SUBSTRB (p_idcard, 8, 1)) * 1
  89.                + TO_NUMBER (SUBSTRB (p_idcard, 9, 1)) * 6
  90.                + TO_NUMBER (SUBSTRB (p_idcard, 10, 1)) * 3;
  91.             v_mod := MOD (v_sum, 11);
  92.             v_checkbit := SUBSTRB (v_checkcode, v_mod + 1, 1);
  93.  
  94.             IF v_checkbit = upper(substrb(p_idcard,18,1)) THEN
  95.                RETURN 1;
  96.             ELSE
  97.                RETURN 0;
  98.             END IF;
  99.          ELSE
  100.             RETURN 0;
  101.          END IF;
  102.       ELSE
  103.          RETURN 0;   -- 身份证号码位数不对
  104.    END CASE;
  105. EXCEPTION
  106.    WHEN OTHERS
  107.    THEN
  108.       RETURN 0;
  109. END fn_checkidcard;
  110. /
  111. Show Err;

2、非正则表达式写法

  1. Create Or Replace Function Func_checkIdcard (p_idcard in varchar2) Return Number
  2. Is
  3.     v_sum         Number;
  4.     v_mod         Number;
  5.     v_length      Number;
  6.     v_date        Varchar2(10);
  7.     v_isDate      Boolean;
  8.     v_isNumber    Boolean;
  9.     v_isNumber_17 Boolean;
  10.     v_checkbit    CHAR (1);
  11.     v_checkcode   CHAR (11)       := '10X98765432';
  12.     v_areacode    VARCHAR2 (2000) := '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';
  13.  
  14.     --[isNumber]--
  15.     Function isNumber (p_string in varchar2) Return Boolean
  16.     Is
  17.         i           number;
  18.         k           number;
  19.         flag        boolean;
  20.         v_length    number;
  21.     Begin
  22.         /*
  23.         算法:
  24.             通过ASCII码判断是否数字，介于[48, 57]之间。
  25.             select ascii('0'),ascii('1'),ascii('2'),ascii('3'),ascii('4'),ascii('5'),ascii('6'),ascii('7'),ascii('8'),ascii('9') from dual;
  26.         */
  27.  
  28.         flag := True;
  29.         select length(p_string) into v_length from dual;
  30.  
  31.         for i in 1..v_length loop
  32.             k := ascii(substr(p_string,i,1));
  33.             if k < 48 or k > 57 then
  34.                 flag := False;
  35.                 Exit;
  36.             end if;
  37.         end loop;
  38.  
  39.         Return flag;
  40.     End isNumber;
  41.  
  42.     --[isDate]--
  43.     Function isDate (p_date in varchar2) Return Boolean
  44.     Is
  45.         v_flag          boolean;
  46.         v_year          number;
  47.         v_month         number;
  48.         v_day           number;
  49.         v_isLeapYear    boolean;
  50.     Begin
  51.         --[初始化]--
  52.         v_flag := True;
  53.  
  54.         --[获取信息]--
  55.         v_year  := to_number(substr(p_date,1,4));
  56.         v_month := to_number(substr(p_date,5,2));
  57.         v_day   := to_number(substr(p_date,7,2));
  58.  
  59.         --[判断是否为闰年]--
  60.         if (mod(v_year,400) = 0) Or (mod(v_year,100) <> 0 And mod(v_year,4) = 0) then
  61.             v_isLeapYear := True;
  62.         else
  63.             v_isLeapYear := False;
  64.         end if;
  65.  
  66.         --[判断月份]--
  67.         if v_month < 1 Or v_month > 12 then
  68.             v_flag := False;
  69.             Return v_flag;
  70.         end if;
  71.  
  72.         --[判断日期]--
  73.         if v_month in (1,3,5,7,8,10,12) and (v_day < 1 or v_day > 31) then
  74.             v_flag := False;
  75.         end if;
  76.         if v_month in (4,6,9,11) and (v_day < 1 or v_day > 30) then
  77.             v_flag := False;
  78.         end if;
  79.         if v_month in (2) then
  80.             if (v_isLeapYear) then
  81.                 --[闰年]--
  82.                 if (v_day < 1 or v_day > 29) then
  83.                     v_flag := False;
  84.                 end if;
  85.             else
  86.                 --[非闰年]--
  87.                 if (v_day < 1 or v_day > 28) then
  88.                     v_flag := False;
  89.                 end if;
  90.             end if;
  91.         end if;
  92.  
  93.         --[返回结果]--
  94.         Return v_flag;
  95.     End isDate;
  96. Begin
  97.     /*
  98.     返回值说明:
  99.         -1      身份证号码位数不对
  100.         -2      身份证号码出生日期超出范围
  101.         -3      身份证号码含有非法字符
  102.         -4      身份证号码校验码错误
  103.         -5      身份证号码地区码非法
  104.         1       身份证号码通过校验
  105.     */
  106.     --[长度校验]--
  107.     if p_idcard is null then
  108.       return -1;
  109.     end if ;
  110.     select lengthb(p_idcard) into v_length from dual;
  111.     if v_length not in (15,18) then
  112.         return -1;
  113.     end if;
  114.  
  115.     --[区位码校验]--
  116.     if instrb(v_areacode, substr(p_idcard, 1, 2)||',') = 0 then
  117.         return -5;
  118.     end if;
  119.  
  120.     --[格式化校验]--
  121.     if v_length = 15 then
  122.         v_isNumber := isNumber (p_idcard);
  123.         if not (v_isNumber) then
  124.             return -3;
  125.         end if;
  126.     elsif v_length = 18 then
  127.         v_isNumber    := isNumber (p_idcard);
  128.         v_isNumber_17 := isNumber (substr(p_idcard,1,17));
  129.         if not ((v_isNumber) or (v_isNumber_17 and upper(substr(p_idcard,18,1)) = 'X')) then
  130.             return -3;
  131.         end if;
  132.     end if;
  133.  
  134.     --[出生日期校验]--
  135.     if v_length = 15 then
  136.         select ''||substr(p_idcard,7,6) into v_date from dual;
  137.     elsif v_length = 18 then
  138.         select substr(p_idcard,7,8) into v_date from dual;
  139.     end if;
  140.     v_isDate := isDate (v_date);
  141.     if not (v_isDate) then
  142.         return -2;
  143.     end if;
  144.  
  145.     --[校验码校验]--
  146.     if v_length = 18 then
  147.         v_sum :=
  148.                (  TO_NUMBER (SUBSTRB (p_idcard, 1, 1))
  149.                 + TO_NUMBER (SUBSTRB (p_idcard, 11, 1))
  150.                )
  151.              * 7
  152.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 2, 1))
  153.                 + TO_NUMBER (SUBSTRB (p_idcard, 12, 1))
  154.                )
  155.              * 9
  156.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 3, 1))
  157.                 + TO_NUMBER (SUBSTRB (p_idcard, 13, 1))
  158.                )
  159.              * 10
  160.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 4, 1))
  161.                 + TO_NUMBER (SUBSTRB (p_idcard, 14, 1))
  162.                )
  163.              * 5
  164.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 5, 1))
  165.                 + TO_NUMBER (SUBSTRB (p_idcard, 15, 1))
  166.                )
  167.              * 8
  168.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 6, 1))
  169.                 + TO_NUMBER (SUBSTRB (p_idcard, 16, 1))
  170.                )
  171.              * 4
  172.            +   (  TO_NUMBER (SUBSTRB (p_idcard, 7, 1))
  173.                 + TO_NUMBER (SUBSTRB (p_idcard, 17, 1))
  174.                )
  175.              * 2
  176.            + TO_NUMBER (SUBSTRB (p_idcard, 8, 1)) * 1
  177.            + TO_NUMBER (SUBSTRB (p_idcard, 9, 1)) * 6
  178.            + TO_NUMBER (SUBSTRB (p_idcard, 10, 1)) * 3;
  179.         v_mod := MOD (v_sum, 11);
  180.         v_checkbit := SUBSTRB (v_checkcode, v_mod + 1, 1);
  181.  
  182.         if v_checkbit = upper(substrb(p_idcard,18,1)) then
  183.            return 1;
  184.         else
  185.            return -4;
  186.         end if;
  187.     else
  188.         return 1;
  189.     end if;
  190. End Func_checkIdcard;
  191. /
  192. Show Err;

oracle 身份证校验函数的更多相关文章

  1. Oracle 身份证校验

    SELECT SUBSTR('&AI', 0, 17) || TRANSLATE(DECODE(MOD(SUM(SUBSTR(WI, REGEXP_INSTR(WI, ' ', 1, I) + ...

  2. 完美实现身份证校验 js正则

    注意: 1.只针对18为身份证号码进行校验,现在15位的应该很少了, 2.不区分xX大小写, 3.出生年份1900-2099,每月的天数也进行相关验证(考虑的闰月的情况), 4.校验规则详见,这个写的 ...

  3. Java 常用正则表达式，Java正则表达式，Java身份证校验，最新手机号码正则表达式

    Java 常用正则表达式,Java正则表达式,Java身份证校验,最新手机号码校验正则表达式 ============================== ©Copyright 蕃薯耀 2017年11 ...

  4. Oracle的nvl函数和nvl2函数

    一.基本语法 介绍一下oracle的nvl函数和nvl2函数. nvl函数 nvl函数基本语法为nvl(E1,E2),意思是E1为null就返回E2,不为null就返回E1. nvl2函数 nvl2函 ...

  5. Oracle 中 decode 函数用法

    Oracle 中 decode 函数用法 含义解释:decode(条件,值1,返回值1,值2,返回值2,...值n,返回值n,缺省值) 该函数的含义如下:IF 条件=值1 THEN RETURN(翻译 ...

  6. 重写Oracle的wm_concat函数，自定义分隔符、排序

    oracle中,wm_concat函数是一个聚合函数,和mysql中的group_concat函数类似,不过group_concat函数比较强大,可以定义分隔符和排序,当然所谓强大是相对的,这里假使我 ...

  7. 篇二：JS身份证校验

    身份证校验 function identityCodeValid(code) { var city={11:"北京",12:"天津",13:"河北&q ...

  8. Oracle日期时间函数大全

    ORACLE日期时间函数大全 TO_DATE格式(以时间:2007-11-02 13:45:25为例) Year: yy two digits 两位年 显示值:07 yyy three digits ...

  9. Oracle过程及函数的参数模式，In、out、in out模式

    Oracle过程及函数的参数模式 In.out.in out模式 在Oracle中过程与函数都可以有参数,参数的类型可以指定为in.out.in out三种模式. 三种参数的具体说明,如下图所示: ( ...

随机推荐

  1. sql语句-ALTER TABLE

    在工作中常遇到要维护数据库表的列,这里主要介绍sql语句中的ALTER TABLE 语句.ALTER TABLE 语句用于在已有的表中添加.修改或删除列. 如需在表中添加列,请使用下列语法: ALTE ...

  2. SimpleThreadPool实践

    前言 并发(Concurrency)一直谈论java绕不开的一个话题,从移动开发工程师到后端工程师,几乎所有的面试都要涉及到并发/多线程的一些问题.虽然多数时候我们使用线程池,都是已经实现好的框架—— ...

  3. XMLHttpRequest简单总结

    一.概念 XMLHttpRequest 对象用于在后台与服务器交换数据. XMLHttpRequest 对象是能够: 在不重新加载页面的情况下更新网页 在页面已加载后从服务器请求数据 在页面已加载后从 ...

  4. PHP5.6.15连接Sql Server 2008配置方案

    php5.6的如果想连接Sql Server 2008数据库,需要手动配置扩展和安装一个驱动. 下载SQL Server Driver for PHP的扩展包,64位系统的官方不支持,找到一个非官方的 ...

  5. iPad 控件 UIPopoverPresentationController 使用 iPhone可用

    UIPopoverController 在iOS9之后被废弃了,,, iOS8 新控件UIPopoverPresentationController可运用在iphone和iPad上,使用基本同 UIP ...

  6. 监控数据库运行 - MS SQL 日常维护管理常用脚本(二)

    查看数据库登录名信息 use mastergoSELECT name AS LoginName , dbname AS DefaultDB , createdate AS CreateDate, up ...

  7. win 7,win2008 无法给新建用户完全权限

    明明把这个用户添加到管理员组了啊,为什么在运行一些程序时老是提示没有权限,实在是郁闷.在网上Google 了半天也没找到个所以然来. 后来发现是系统用户帐户控制搞的鬼,到 控制面板/用户帐户和家庭安全 ...

  8. 【转】Java关键字final、static使用总结

    转自:http://lavasoft.blog.51cto.com/62575/18771/   Java关键字final.static使用总结   一.final        根据程序上下文环境, ...

  9. redis 主从同步

    修改redis.conf配置文件 vi redis.conf 在编辑模式下 输入  /slaveof 来搜索 将slaveof启用 即 将#删除 依次配置所有 slave 并将进程 kill 掉 重启 ...

  10. HTTP权威协议笔记-4.连接管理

    4.1 TCP连接 TCP为HTTP提供了一条可靠的比特传输管道,按顺序正确的传输,步骤如下: 浏览器解析主机名. 查询这个主机名的IP地址(DNS) 获得端口号. 浏览器对服务器该端口号发起连接. ...