Compléments pour Microsoft Access

http://access.fr.free.fr/

Jour férié (Dates & Heures)

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