Oracle函数获取IDCARD中年龄

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

新的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这三个字要当做敏感信息被过滤掉了呢）