Oracle 验证是否是日期

create or replace function FN_ISDATE_JAVA(v_tjrq VARCHAR2 --日期
                                          ) return number --返回1为正确，0为错误。
 as
  /*------------------------------------------------------------------------
   公用函数：日期检查函数
   调用范例: select F_ISDATE_JAVA('20100101') from dual;
  ------------------------------------------------------------------------*/
  i_year  number; --年
  i_month number; --月
  i_day   number; --日
  d_tjrq  date; --日期类型的日期
begin

  if v_tjrq is null then
    return 0;
  end if;

  if length(trim(v_tjrq)) <> 8 then
    return 0;
  end if;

  if regexp_substr(trim(v_tjrq), '[[:digit:]]+') is null then
    return 0;
  end if;

  if regexp_substr(trim(v_tjrq), '[[:digit:]]+') <> trim(v_tjrq) then
    return 0;
  end if;

  i_year  := to_number(substr(rtrim(v_tjrq), 1, 4));