Next working date

Question

HI,
Can anyone help me with a function to find the next working date excluding holidays from a table 'holidays'
The input to the function would be a date and output as well.
Thanks

Answer 1

Hi,
Assuming work days are Monday through Friday, and all dts in the holiday table are at midnight:
FUNCTION  next_work_day (in_dt IN DATE)
RETURN     DATE
DETERMINISTIC
IS
--  next_work_day returns the frist working day (that is, anything except Saturday, Sunday or days
--  in the holiday table) after (not including) in_dt.
--  The value returned is always midnight (00:00:00).
     junk     PLS_INTEGER;
     return_dt     DATE     := TRUNC (in_dt);
BEGIN
     LOOP
          return_dt := return_dt +
                    CASE     return_dt - TRUNC (return_dt, IW')
                         WHEN  4      THEN  3     -- Friday   -> Monday
                         WHEN  5  THEN  2     -- Saturday -> Monday
                               ELSE  1
                    END;
          SELECT  1
          INTO     junk
          FROM     holidays
          WHERE     dt = return_dt;
          -- If the SELECT statement above didn't raise an error, this is a holiday,
          -- so repeat the loop and try the next day
     END LOOP;
EXCEPTION
     WHEN  NO_DATA_FOUND
     THEN
          RETURN  return_dt;
END     next_work_day;This solution does not depend on NLS settings.
(Untested.)
Edited by: Frank Kulash on Jun 4, 2009 3:58 PM