Récuperer le prochain jour ouvrable (weekend et jour ferié)

**lah80** · 03/08/2010, 17h36

Bonjour,

J'ai besoin de savoir la prochaine journée ouvrable en tenant compte des weekend (samedi, dimanche) et des jours fériés.

Je dispose d'une table des jours fériés qui contient une colonne de la date, et une colonne du nombre de jours de vacances.

Cette table contient deux lignes (deux fêtes d'un jour chacune) ayant des dates successifs : une fête le 01/10 et une autre le 02/10.
D'autre fêtes ont deux jours de vacances.

Les weekend je les gère comme suit :

Code PL/SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
-- Prochain Jour Ouvrable .
   X_PROCHAIN_JOUR_OUVRABLE := G_DATEJOUR_D + 1;
   IF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'DAY')) IN ('SAMEDI','SATURDAY') THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 2;
   ELSIF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'D')) IN ('DIMANCHE','SUNDAY') THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 1;
   END IF;

Reste la problématique des jours fériés !

Merci pour votre aide.

**McM** · 04/08/2010, 09h47

Fais une boucle infinie (avec une gestion de boucle infinie au cas où) qui rajoute un jour à chaque boucle.
Dans la boucle, tu testes le week end ou l'existence d'un jour férié. Si aucun des 2, tu sors du loop (par un exit).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
LOOP
	v_nb := v_nb + 1; 
        IF v_nb > 365
        THEN
        	v_date := TO_DATE('99/99/99999'); -- On Force une erreur de date car il y a une boucle infinie.
        END IF;
 
        v_date := v_date + 1;
 
		  -- Si le site est fermé, ou que c'est un jour férié, on continue.
	 IF v_ferm1 = TRIM(TO_CHAR(v_date, 'DAY', 'NLS_DATE_LANGUAGE=French')) 
        OR v_ferm2 = TRIM(TO_CHAR(v_date, 'DAY', 'NLS_DATE_LANGUAGE=French')) 
        OR F_JOUR_FERIE(v_date)
	THEN
		NULL;
        ELSE
		EXIT;
	END IF;
END LOOP; -- Fin boucle jour ouvert suivant.

F_JOUR_FERIE est une fonction qui renvoie TRUE si la date est un jour férié, sinon FALSE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
BEGIN SELECT 1 INTO v FROM TABLE_JOUR_FERIE WHERE ladate = p_date; v_retour : TRUE; EXCEPTION WHEN OTHERS THEN NULL; END; 
Return FALSE;

Attention ton code pour le dimanche a 'D' au lieu de 'DAY', et je te conseille d'utiliser le NLS_LANG pour tester le jour SAMEDI, ça évite d'être dépendant de la base.

**king_abdel** · 04/08/2010, 09h55

Bonjour,

Supposons que la table où est stockée les jours fériés est appelée TAB et ses colonnes sont C_DAT et NBR.

Alors on commence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
-- Prochain Jour Ouvrable .
    -- compter le nombre d´entrée pour le lendemain dans la table TAB s´ils existent
   select count(*) into VC from TAB where G_Datejour_d+1=C_DATE;
 
   X_PROCHAIN_JOUR_OUVRABLE := G_DATEJOUR_D + 1;
 
   IF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'DAY')) IN  ('SAMEDI','SATURDAY') and VC = 0 THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 2;
   ELSIF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'D')) IN ('DIMANCHE','SUNDAY') AND VC = 0 THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 1;
   ELSIF VC = 1 THEN 
        --Affecter le champs NBR de la table tab qui contient le nombre de jours ferriée
       SELECT NBR INTO VN FROM TAB WHERE G_DATEJOUR_D + 1=C_DATE
          X_PROCHAIN_JOUR_OUVRABLE:=X_PROCHAIN_JOUR_OUVRABLE+ 1+ VN
 
             -- SI la date du prochain jour ouvrable apres la vacance arrive le weekend
            IF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'DAY')) IN    ('SAMEDI','SATURDAY') THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 2;
            ELSIF TRIM(TO_CHAR(X_PROCHAIN_JOUR_OUVRABLE,'D')) IN ('DIMANCHE','SUNDAY') THEN 
      X_PROCHAIN_JOUR_OUVRABLE := X_PROCHAIN_JOUR_OUVRABLE + 1;
            END IF;
   END IF;

Si la notation des variables était moins longue, le code serait plus lisible.