Oracle存储过程根据指定日期返回（N个）工作日的

一直都没写过Oracle的存储过程，今天突然来了一个需求：计算指定日期的前N个工作日或者后N个工作日日期（去除周末，法定节假日无法计算），然后研究了一下 Oracle的时间函数和循环方法。具体实现方法如下，也没啥难的，对数据库没研究过，也不知道下面的写法效率怎么样。

或者有没有更好的写法。o(︶︿︶)o 唉！

create or replace procedure proc_CalculationWorkDate
(
  plan_date in date,--登录日期
  flag in number,--1 往前日期，0往后日期
  date_number in number,--天数
  out_date out date--计算出的日期
)
is
  dayOfWeek number:=0;--星期的数字
  dates number:=date_number;--往前或者往后的天数（包含工作日的）初始化给他等于天数
  i int:=0;
  j int:=0;
begin
  if flag=1 then--计算往前日期
      while i<date_number+1 loop
        SELECT to_number(to_char(sysdate+i+j,'D')) into dayOfWeek  FROM DUAL;--返回星期代表的数值
        if dayOfWeek=1 or dayOfWeek=7 then --周六 周日
          dates:=dates+1;
          i:=i;
          j:=j+1;
        else
          i:=i+1;
        end if;
      end loop;
      select plan_date+dates into out_date from dual;
      --DBMS_OUTPUT.PUT_LINE(dates);
  end if;
  if flag=0 then --计算往后日期
      while i<date_number+1 loop
        SELECT to_number(to_char(sysdate-i-j,'D')) into dayOfWeek  FROM DUAL;
        if dayOfWeek=1 or dayOfWeek=7 then
          dates:=dates+1;
          i:=i;
          j:=j+1;
        else
          i:=i+1;
        end if;
      end loop;
      select plan_date-dates into out_date from dual;
      --DBMS_OUTPUT.PUT_LINE(dates);
  end if;
end;