Connexion

Jours fériés et dimanche

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 05/04/2007 14:30:28 et initié par Yogly [Liste]
Date de mise à jour : 07/04/2007 14:14:50
Vue : 4652
Catégorie(s) : Date & Heure
Langages dispo pour ce code :
- Windev
- Voir tous les langages pour ce code snippet

Proposer ce code dans un autre langage

Ajouter aux favoris

Langage : Windev
Date ajout : 05/04/2007
Posté par Yogly [Liste]
DateMAJ : 07/04/2007


// Résumé : renvoier Vrai si férier et faux si ouvrable

// Syntaxe :

//[ <Résultat> = ] Ferié ( [<Jour>])

//

// Paramètres :
// Jour : Jour a controler AAAAMMJJ 
// Valeur de retour :
// booléen : // Aucune 
//

// Exemple :

// Si Ferié(DateSys()) alors info("Nous somme une jours Ferié!")

//

PROCEDURE Ferié(Jour=DateSys())

JJ,MM,AA est un entier

Pa est un entier

JJ = Droite(Jour,2)

MM = Milieu(Jour,5,2)

AA = Gauche(Jour,4)

SI DateVersJour(Jour)=7 ALORS RENVOYER Vrai //Dimanche

SI JJ = 1 ET MM = 1 ALORS RENVOYER Vrai //1 Janvier

SI JJ = 1 ET MM = 5 ALORS RENVOYER Vrai //1 Mai

SI JJ = 8 ET MM = 5 ALORS RENVOYER Vrai //8 Mai

SI JJ = 14 ET MM = 7 ALORS RENVOYER Vrai //14 Juillet

SI JJ = 15 ET MM = 8 ALORS RENVOYER Vrai //15 Août

SI JJ = 1 ET MM = 11 ALORS RENVOYER Vrai //1 Novembre

SI JJ = 11 ET MM = 11 ALORS RENVOYER Vrai //11 Novembre

SI JJ = 25 ET MM = 12 ALORS RENVOYER Vrai //25 Décembre

Pa=DateVersEntier(Pâques(Gauche(Jour,4)))

SI Jour=EntierVersDate(Pa+1) ALORS RENVOYER Vrai //Lundi de Pâques

SI Jour=EntierVersDate(Pa+38) ALORS RENVOYER Vrai //Ascension

SI Jour=EntierVersDate(Pa+11) ALORS RENVOYER Vrai //Pentecote

RENVOYER Faux

Snippets en rapport avec : Jours, Fériés, Windev

21/07/2006 - Trouver le prochain jour ouvrable, à partir d'une date, et selon un delta en jours

21/03/2006 - Obtenir la distance en jours entre deux dates

Codes sources en rapport avec : Jours, Fériés, Windev

{PHP} JOURS OUVRES
Bon, une petite fonction toute simple, mais qui peut être un life saver! Trouve le prochain jour ou...

{Flash} HORLOGE SANS OBJET NEW DATE !
Alors voilà, le principe est simple: un écran de réglage de l'heure et du jour, puis une horloge à a...

{PHP} COMPTEUR DE JOURS RESTANTS DANS LE TOPIC D'UN CHANNEL IRC (À ÉXÉCUTER AVEC CRON)
Ce script met à jour le topic d'un chan IRC à chaque appel. Il permet de gérer la maj d'un compte à ...

{Javascript / DHTML} CALENDRIER
code pour créer un calendrier...

{PHP} NOMBRE DE JOURS ENTRE DEUX TIMESTAMP
Retourne le nombre de jours entre deux timestamp sans faire simplement la difference des timestamp, ...

{Javascript / DHTML} TEMPS PASSÉ APRÈS LA CRÉATION DU SITE (JOURS,MOIS,ANNÉES)
Et bien, on modifie le code à les lignes où c'est écrit "//Date sous form AAAA/MM/JJ" Et ça dit les...

{Flash} JOURS ET MOIS EN 55 LANGUES (OBJET DATE)
Idéal pour utilisation avec l’objet Date (class) ou avec les composantes (components) DateChooser ou...

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRIME FICHIERS DATANT DE PLUS DE 15 JOURS !!!!
Se script en VBS vous permet de suuprimer les fichiers datant de plus de 15 jours vous pouvez bien e...

{ASP / ASP.NET} CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES
Calcul le nombre de jours ouvrés entre 2 dates c'est à dire sans les Week-end et les jours. ce code ...

{ASP / ASP.NET} CALCUL DU NOMBRE DE JOURS ENTRE DEUX DATES
Mon exemple est très simple. Pour calculer le nombre de jours entre deux dates, il faut tout d'abord...

Les Snippets

Rechercher :

Par langages :

Par Catégorie

Compteurs

Jours fériés et dimanche

Snippets en rapport avec : Jours, Fériés, Windev

Codes sources en rapport avec : Jours, Fériés, Windev