/**
*  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;