存储过程时间格式验证

create or replace procedure sp_HRM_PunchTimeCheck(
o_Ret out int,
o_RetInfo out varchar2,
i_PunchTime varchar2
)
AS
v_PunchTime date;
Begin
o_Ret:=1;
o_RetInfo:='';
if length(i_PunchTime)!=8 then
o_Ret:=-1;
o_RetInfo:='时间长度必须为8！请按时间格式认真填写';
return;
else
begin
select to_date(i_PunchTime,'hh24:mi:ss') into v_PunchTime from dual;
exception when others then o_Ret:=-1;
end;
if o_Ret=-1 then
o_RetInfo:='填写的时间格式有误！请按时间格式认真填写';
return;
end if;
end if;

end;