判断是否是日期格式YYYYMM

写个判断某数值是否是指定的日期格式：

CREATE OR REPLACE FUNCTION f_is_date(in_date        IN VARCHAR2,
                                     in_date_format IN VARCHAR2)
  RETURN NUMBER IS
  l_date DATE;
BEGIN
  l_date := to_date(in_date, in_date_format);
  RETURN 1;
EXCEPTION
  WHEN OTHERS THEN
    RETURN 0;
END;

TEST:

SQL> SELECT f_is_date('20130711', 'yyyymmdd') FROM dual;
 
F_IS_DATE('20130711','YYYYMMDD
------------------------------
                             1
 
SQL> SELECT f_is_date('2013071D', 'yyyymmdd') FROM dual;
 
F_IS_DATE('2013071D','YYYYMMDD
------------------------------
                             0
 
SQL> SELECT f_is_date('20130711', 'yyyymm') FROM dual;
 
F_IS_DATE('20130711','YYYYMM')
------------------------------
                             0
 
SQL>