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

已经某天是星期几，求某天是星期几
昨天在一家公司面试，叫我用存储过程求得下述问题：已知某一天是星期几，求某天是星期几，例：已知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