Oracle函数获取IDCARD中年龄

   IDCARD的第一代是15位号码，第二代是18位号码，

创新互联建站长期为数千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为霸州企业提供专业的成都网站设计、成都做网站，霸州网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。

   新的18位IDCARD号码各位的含义:1-2位省、自治区、直辖市代码 

                                3-4位地级市、盟、自治州代码  

                                5-6位县、县级市、区代码  

                                7-14位出生年月日，比如19670401代表1967年4月1日

                                15-17位为顺序号，其中17位男为单数，女为双数  

                                18位为校验码，0-9和X，由公式随机产生。

     15位IDCARD号码各位的含义: 1-2位省、自治区、直辖市代码；  

                               3-4位地级市、盟、自治州代码；  

                               5-6位县、县级市、区代码；   

                               7-12位出生年月日,比如670401代表1967年4月1日,这是和18位号码的第一个区别；  

                               13-15位为顺序号，其中15位男为单数，女为双数

                               与18位***号的第二个区别：没有最后一位的验证码

从IDCARD中获取用户年龄信息，要对IDCARD合法性进行校验。

--判断是否为数字，返回True,False
CREATE OR REPLACE FUNCTION DT_ISNUMBER(P_IN VARCHAR2) RETURN BOOLEAN AS
  I NUMBER ;
BEGIN
  I := TO_NUMBER(P_IN);
  RETURN TRUE;
EXCEPTION
  WHEN OTHERS THEN
    RETURN FALSE;
END;

--判断是否为日期，返回True,False
CREATE OR REPLACE FUNCTION DT_ISDATE(P_IN VARCHAR2) RETURN BOOLEAN AS
  I DATE;
BEGIN
  I := TO_DATE(P_IN,'YYYYMMDD');
  RETURN TRUE;
EXCEPTION
  WHEN OTHERS THEN
    RETURN FALSE;
END;


--判断是否为合法的***号
CREATE OR REPLACE FUNCTION DT_ISIDCARD(P_IDCARD VARCHAR2) RETURN BOOLEAN IS
  IDCARDLEN INTEGER;
BEGIN
  IDCARDLEN := LENGTH(P_IDCARD);
  IF (IDCARDLEN = 18 AND DT_ISNUMBER(SUBSTR(P_IDCARD, 1, IDCARDLEN - 1)) AND
     DT_ISDATE(SUBSTR(P_IDCARD, 7, 8)) ) OR
     (IDCARDLEN = 15 AND DT_ISNUMBER(SUBSTR(P_IDCARD, 1, IDCARDLEN)) AND
     DT_ISDATE('19' || SUBSTR(P_IDCARD, 7, 6)) ) THEN
    RETURN TRUE;  
  ELSE
    RETURN FALSE;
  END IF;
END DT_ISIDCARD;


--获取***号信息的年龄并返回
CREATE OR REPLACE FUNCTION DT_GETAGE(P_IDCARD VARCHAR2) RETURN INTEGER IS
IDCARDLEN INTEGER;
IDCARDYEAR INTEGER;
BEGIN 
  IDCARDLEN :=LENGTH(P_IDCARD);  
   IF DT_ISIDCARD(P_IDCARD) AND IDCARDLEN = 18 THEN
     IDCARDYEAR := TO_NUMBER(SUBSTR(P_IDCARD,7,4));  
  END IF;
  IF DT_ISIDCARD(P_IDCARD) AND IDCARDLEN = 15 THEN  
     IDCARDYEAR := TO_NUMBER('19'||SUBSTR(P_IDCARD,7,2));
  END IF;
  RETURN  TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))-IDCARDYEAR;       
END DT_GETAGE;

 以上针对***年龄获取常用函数做个记录，方便日后直接使用或者对***中其他地址、性别做进一步解析使用

（PS：为啥shenfenzheng这三个字要当做敏感信息被过滤掉了呢）