Oracle 判断是否是日期格式

/**
 *　　I_DATE是日期格式返回1，反之返回0
 */

CREATE OR REPLACE FUNCTION FN_IS_DATE(I_DATE VARCHR2) RETURN NUMBER IS
    V_DATE DATE;
BEGIN
    V_DATE := TO_DATE(NVL(I_DATE, 'A'), 'YYYY-MM-DD');
    RETURN 1;
EXCEPTION
    WHEN OTHERS THEN
        RETURN 0;
END FN_IS_DATE;