PL/SQL - Días hábiles

por javier | Jun 17, 2009 | Tecnología | 13 Comentarios

Hoy vamos a ver una pequeña función PL/SQL que me hice en su día que sirve para sumarle a una fecha dada, N días hábiles. Es una función sencillita que, por ahora, sólo tiene en cuenta Sábados y Domingos, pero que puede ser muy práctica para cuando se quiere trabajar con fechas y realizar este tipo de cálculos.

Código días hábiles PL/SQL

create or replace function Sumar_Dias_Habiles
       (fecha_inicio in date, dias_habiles in number)
       Return date
As
  dia         number;
  dia_habil   number;
  hoy         date;
  fecha_fin   date;
begin
     dia := 0;
     dia_habil := dias_habiles; -- variable numdias
     while dia = dia_habil loop
         hoy := fecha_inicio+dia;

         if  (to_char(hoy,'DY') = 'SAT' or to_char(hoy,'DY') = 'SUN' or
             to_char(hoy,'DY') = 'SÁB' or to_char(hoy,'DY') = 'DOM') then

            -- Es sábado o domingo
            dia_habil := dia_habil + 1;

         end if;
         dia := dia + 1;
     end loop;

     fecha_fin := fecha_inicio + dia_habil;

     return fecha_fin;
end Sumar_Dias_Habiles;

13 Comentarios

Patricia el 3 marzo, 2010 a las 14:55

Hola Javier, gracias por tu función, para solucionar lo de los otros días no hábiles, cree una tabla en la que incluyo las fechas de los días no laborales y tu función quedó así

create or replace function GETSUMDIAHABIL(v_fecha in date, v_num_dias in number) return date is
dia number;
dia_habil number;
hoy date;
fecha_fin date;
dia_no_habil number;

begin
dia := 0;
dia_habil := v_num_dias; -- variable numdias
while dia <= dia_habil loop
hoy := v_fecha+dia;
begin
select 1
into dia_no_habil
from ba_calendar c
where trunc(c.day) = trunc(hoy);
exception
when no_data_found then
dia_no_habil := 0;
end;
if dia_no_habil = 1 then -- Es sábado o domingo
dia_habil := dia_habil + 1;
end if;
dia := dia + 1;
end loop;
fecha_fin := v_fecha + dia_habil;
return(fecha_fin);
end GETSUMDIAHABIL;

Que tengas buen días
Responder
- roger el 19 enero, 2011 a las 13:59
  
  Cual es la estructura de la tabla de los otros dias no habiles
  Gracias por tu respuesta
- javierrguez el 19 enero, 2011 a las 14:47
  
  Es una tabla con una única columna de tipo Date.
- Patricia el 19 enero, 2011 a las 19:18
  
  calendar_id number(22)
  location_id number(10)
  day date
  is_holiday varchar2(1)
  is_laboral_day varchar2(1)
javierrguez el 9 marzo, 2010 a las 11:38

Gracias a tí Patricia. Esa solución es sencilla y fácil de implementar. Habría que mantener esa tabla todos los años, pero no es complicado. Un saludo.
Responder
Garess el 11 noviembre, 2010 a las 17:53

Saludos y gracias por sus aportes, son estupendos.
La verdad apenas y empiezo en plsql y pos aun programo en visual basic 6, quisiera preguntar de que manera puedo ejecutar esta funcion desde visual basic 6.

Gracias.
Responder
- javierrguez el 27 noviembre, 2010 a las 14:19
  
  Lo siento, en visual basic no sé cómo será porque no he programado nunca en VB pero imagino que su traducción no es complicada.
Jorge Soteldo el 7 marzo, 2014 a las 22:11

Como haria el llamado desde el query ? ??
Responder
- javierrguez el 7 marzo, 2014 a las 22:13
  
  Igual que cualquier otra función, como concat() por ejemplo.
jesus el 2 agosto, 2018 a las 18:43

Falla cuando la fecha es domingo, recomiendo cambiar

-- Es sábado o domingo
dia_habil := dia_habil + dia;

Se bueno.
Responder
- javier el 2 agosto, 2018 a las 20:26
  
  Hola Jesús. Es una función que hice hace muchos años, cuando usaba Oracle 9i. Puede que si estás usando versiones nuevas de Oracle haya que adaptarla. Ahora mismo no te la puedo adaptar porque no tengo ningún Oracle donde poder hacerlo. Un saludo.
Jesus el 2 agosto, 2018 a las 21:10

Esta es una posible solución, se vería así el while y declarar la variable adicional usada cae_sab o cae_dom:

Días Siguientes:
while dia <= dia_habil loop
hoy := fecha_inicio+dia;

if (to_char(hoy,'DY') = 'SAT' or to_char(hoy,'DY') = 'SÁB') then
-- Es sábado
dia_habil := dia_habil + 1;
end if;

if (to_char(hoy,'DY') = 'SUN' or to_char(hoy,'DY') = 'DOM') then
-- Es domingo
if (dia 0)then
dom := dia - 1;
dia_habil := dia_habil + dom;
end if;
end if;

dia := dia + 1;
end loop;

fecha_fin := fecha_inicio + dia_habil;

Días Anteriores:
while dia <= dia_habil loop
hoy := fecha_inicio-dia;

if (to_char(hoy,'DY') = 'SAT' or to_char(hoy,'DY') = 'SÁB') then
-- Es sábado
if (dia 0)then
cae_sab := dia - 1;
dia_habil := dia_habil + cae_sab;
end if;
end if;

if (to_char(hoy,'DY') = 'SUN' or to_char(hoy,'DY') = 'DOM') then
-- Es domingo
dia_habil := dia_habil + 1;
end if;

dia := dia + 1;
end loop;

fecha_fin := fecha_inicio - dia_habil;
Responder
- javier el 9 agosto, 2018 a las 11:26
  
  Muchas gracias Jesús por tu aporte!