Jour férié

Cette fonction permet de savoir si une date correspond à un jour férié ou non. Pour utiliser cette fonction, vous devez également disposer de la fonction "fPaques" décrite dans la rubrique précédente.

L'argument "dtDate" correspond à la date que l'on souhaite vérifier.

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

Cette fonction retournera True si la date fait partie des jours fériés et non dans le cas contraire.

Auteur : Jessy SEMPERE