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