Oracle中判断日期是否合法 is_date 函数

CREATE OR REPLACE FUNCTION is_date (parmin VARCHAR2)
 RETURN NUMBER  IS
val DATE;
 BEGIN
 val := TO_DATE (NVL (parmin, 'a'), 'yyyy-MM-dd');
RETURN 1;
 EXCEPTION
WHEN OTHERS
THEN
 RETURN 0;
 END;