Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
 -  Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Dates & Heures - Jour férié

Description 

Cette fonction permet de savoir si une date est un jour férié ou non.

Elle est basé sur les jours fériés qui sont fixes dans le calendrier français mais également sur le calcul du jour de Pâques en utilisant la fonction fPaques.

 
Synthaxe 

Expression_Boolean = JourFérié (dtDate)

La synthaxe de la fonction JourFérié comprend l'élément suivant :

ElémentsDescription

dtDate

Expression de type Date correspondant à la date que l'on souhaite vérifier.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


 Public Function JourFérié(dtDate As Date) As Boolean

Dim dtPaques As Date

dtPaques = fPaques(Year(dtDate))
Select Case dtDate
    Case CDate("01/01/" & Year(dtDate)) 'Jour de l'an
        JourFérié = True
    Case CDate("01/05/" & Year(dtDate)) 'Fête du travail
        JourFérié = True
    Case CDate("08/05/" & Year(dtDate)) 'Victoire de 1945
        JourFérié = True
    Case CDate("14/07/" & Year(dtDate)) 'Fête nationale
        JourFérié = True
    Case CDate("15/08/" & Year(dtDate)) 'Assomption
        JourFérié = True
    Case CDate("01/11/" & Year(dtDate)) 'Toussaint
        JourFérié = True
    Case CDate("11/11/" & Year(dtDate)) 'Armistie 1918
        JourFérié = True
    Case CDate("25/12/" & Year(dtDate)) 'Noël
        JourFérié = True
    Case dtPaques + 1 'Lundi de Pâques
        JourFérié = True
    Case dtPaques + 39 'Ascension
        JourFérié = True
    Case dtPaques + 50 'Lundi de pentcôte
        JourFérié = True
    Case Else
         JourFérié = False
End Select

End Function

 


Date de création : 17/10/2006 @ 15:27
Dernière modification : 17/10/2006 @ 15:31
Catégorie : Dates & Heures
Page lue 1833 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 7

Total visites : Total visites : 174546  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.14 seconde