| | 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. | | |
| | | | |
| | Expression_Boolean = JourFérié (dtDate) La synthaxe de la fonction JourFérié comprend l'élément suivant : Eléments | Description | dtDate | Expression de type Date correspondant à la date que l'on souhaite vérifier. |
| | |
| | | | |
| | Aucun exemple disponible pour le moment. | | |
| | | | |
| | 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
Imprimer la page