一组与身份证号码相关的自定义小函数

1、验证是否为数字

CREATE OR REPLACE FUNCTION IS_NUMBER(STRING VARCHAR2) RETURN INTEGER IS
BEGIN
  IF (LENGTH(TRIM(TRANSLATE(STRING, ' +-.0123456789', ' '))) IS NULL) THEN
    RETURN 1;
  ELSE
    RETURN 0;
  END IF;
END IS_NUMBER;

2、验证是否为日期

CREATE OR REPLACE FUNCTION IS_DATE(PARMIN VARCHAR2) RETURN NUMBER IS
  VAL DATE;
BEGIN
  VAL := TO_DATE(NVL(PARMIN, 'a'), 'yyyy-mm-dd hh24:mi:ss');
  RETURN 1;
EXCEPTION
  WHEN OTHERS THEN
    RETURN 0;
END;

3、验证身份证号码的有效性

CREATE OR REPLACE FUNCTION IS_IDCARD(P_IDCARD VARCHAR2) RETURN INTEGER IS
  IDCARDLEN INTEGER DEFAULT 0;
BEGIN
  IDCARDLEN := LENGTH(P_IDCARD);
  IF (IDCARDLEN = 18 AND IS_NUMBER(SUBSTR(P_IDCARD, 1, IDCARDLEN - 1)) = 1 AND
     IS_DATE(SUBSTR(P_IDCARD, 7,