Add Working Days Function

Question

All,
I have created the following function to add working days to a date...
create or replace function add_working_days(
p_days in number,
p_dt in date default trunc(sysdate)
return date
as
v_weeks number;
v_adj number;
begin
v_weeks := trunc(p_days/5);
if to_number(to_char(p_dt,'D')) + mod(p_days,5) >= 7 then
v_adj := 2;
else
v_adj := 0;
end if;
return p_dt + 7*v_weeks + v_adj+mod(p_days,5);
end add_working_days;
I am then calling the function to default a date field.
The hassle is that it keeps setting the year to 0006 instead of 2006.
Any suggestions?
Cheers,
Gart

Answer 1

Gart,
I ran your code -
SQL> select sysdate from dual;
SYSDATE
24-JAN-06
SQL> select to_char(sysdate, 'Day') as Today from dual;
Today
Tuesday
SQL> select
  next_working_date,
  to_char(next_working_date, 'Day') as next_working_day
from
  (select add_working_days(4, sysdate) as next_working_date from dual)
SQL> /
NEXT_WORKING_DATE    NEXT_WORKING_DAY
30-JAN-06            MondaySo it seems to work for me, are you sure it's not your NLS settings or your date formatting code that isn't displaying the year correctly?