Oracle 创建存储函数校验日期（日期格式：yyyyMMdd)

CREATE OR REPLACE FUNCTION FN_CHECKDATE(V_DATESTR IN VARCHAR2)
  RETURN NUMBER AS
  --返回值
  FLAG NUMBER;
BEGIN
  --得到返回值
  SELECT CASE
           WHEN REGEXP_LIKE(V_DATESTR,
                            '^((\d{2}(([02468][048])|([13579][26]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|([1-2][0-9])))))|(\d{2}(([02468][1235679])|([13579][01345789]))[\-\/\s]?((((0?[13578])|(1[02]))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(3[01])))|(((0?[469])|(11))[\-\/\s]?((0?[1-9])|([1-2][0-9])|(30)))|(0?2[\-\/\s]?((0?[1-9])|(1[0-9])|(2[0-8]))))))?$') THEN
            1
           ELSE
            0
         END
    INTO FLAG
    FROM DUAL;

  DBMS_OUTPUT.PUT_LINE(FLAG);

  RETURN FLAG;

END;