已经某天是星期几，求某天是星期几

昨天在一家公司面试，叫我用存储过程求得下述问题：已知某一天是星期几，求某天是星期几，例：已知2010年8月5号星期四，求2010年8月23号星期几？
下面是我写的存储过程，由于是刚刚学，所以问题还很多，望各位大虾们指教。

/* Formatted on 2010-8-23 16:29:26 (QP5 v5.149.1003.31008) */
CREATE OR REPLACE PROCEDURE get_weekday (
                                         in_date       IN     VARCHAR, -- 输入日期
                                         in_weekday    IN     INTEGER, -- 星期几 0 星期天、1  星期一 类推
                                         out_date      IN     VARCHAR,  -- 要查询的日期
                                         out_weekday      OUT INTEGER) -- 输入星期几  0 星期0、1  星期1 类推【人懒，就不转换了】
AS
   out_day   INTEGER;
BEGIN
   SELECT TO_DATE (out_date, 'yyyy-mm-dd') - TO_DATE (in_date, 'yyyy-mm-dd') -- 查询的日期和提供的日期相减
     INTO out_day
     FROM DUAL;

   IF out_day >= 0 -- 相减得到的如果是正数
   THEN
      SELECT MOD (MOD (out_day, 7) + in_weekday, 7)
        INTO out_weekday
        FROM DUAL;
   ELSE -- 如果是负数
      SELECT MOD (MOD (out_day + 7, 7) + in_weekday, 7)
        INTO out_weekday
        FROM DUAL;
   END IF;
END;

执行后调用此存储过程

/* Formatted on 2010-8-23 16:13:01 (QP5 v5.149.1003.31008) */
set serverout on;                 --打开输出开关

DECLARE
   v_ret   INTEGER;
BEGIN
   get_weekday ('2010-08-25',
                3,
                '2010-08-24',
                v_ret);                                           --执行上面的存储过程

   DBMS_OUTPUT.put_line ('2010年8月24号，星期' || v_ret );
END;

得到如下结果

2010年8月24号，星期2

初步实现