关于oracler的create function

Question

之前问了个找出错误数据的问题，高手帮写了一段function
create or replace function is_valid_date(p_yyyymmdd varchar2)return number is i_date date;
begin
if i_date=to_date(p_yyyymmdd,'yyyymmdd') then
return 1;
end if ;
exception when others then
return 0;
end;
这一段是要找出时间格式错误的，然后编译成功
执行语句
select * from zp_ryxx where is_valid_date(substr(pcsj,1,8))=0

提示
ORA-06503: PL/SQL:Function returned without value
ORA-06512: at “ZHXT_DBA.IS_VALID_DATE", line 8
查看错误堆栈的程序源？

怎么解决，或者这个FUNCTION应该怎么写，要求找出pcsj字段时间时间格式错误的方法，pcsj字段是varchar2（14),但是里面存在着有些错误数据
如：（2009 40311111111，）不能用 to_date(pcsj,'yyyymmdd')来转换，导致查询的不方便，高手来帮忙
按一楼的方法我改了，自定义函数是正确了，但是实际运用后确没有结果，我在表里面还特意加了个错误的日期，但是用这个自定义函数确检索不出来，能不能再看看啊

Answer 1

该程序有·逻辑问题，就是只有当 i_date = to_date(p_yyyymmdd,'yyyymmdd') 判断结果是 true以及程序出现异常时有返回值，分别是 1 和 0, 但 i_date = to_date(p_yyyymmdd,'yyyymmdd') 结果是 false 时没有返回值， 应该改为:

......
begin
if i_date=to_date(p_yyyymmdd,'yyyymmdd') then
return 1;
else
return 0;
end if ;
......