MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Dates & Heures - Nombre jours ouvrés
| | Cette fonction permet de calculer le nombre de jours ouvrés entre 2 dates.
On considère dans cette fonction qu'un jour ouvré est un jour qui n'est ni un samedi, ni un dimanche et ni un jour férié.
Cette fonction fait appel à 2 autres fonctions qui sont : | | | | | | | |
| | Expression_Numérique = NbOpenDay (dtDeb, dtFin) La synthaxe de la fonction NbOpenDay comprend les éléments suivants : Eléments | Description | dtDeb | Expression de type date correspondant à la date début de la plage de calcul. | dtFin | Expression de type date correspondant à la date de fin de la plage de calcul. |
| | | | | | | |
| | Aucun exemple disponible pour le moment. | | | | | | | |
| |
Public Function NbOpenDay(dtDeb As Date, dtFin As Date) As Integer ' Calculer le nombre de jours ouvrables entre deux dates ' Utilise la fonction JourFérié(dtDate As Date) Dim dblDateDeb As Double Dim dblDateFin As Double Dim DateCourante As Date Dim resultat As Integer
If IsNull(dtDeb) Or IsNull(dtFin) _ Or IsEmpty(dtDeb) Or IsEmpty(dtFin) Then NbOpenDay = 0 Exit Function ElseIf Not IsDate(dtDeb) Or Not IsDate(dtFin) Then NbOpenDay = 0 Exit Function ElseIf dtDeb > dtFin Then Dim dhTemp As Date dhTemp = dtDeb dtDeb = dtFin dtFin = dhTemp End If
dblDateDeb = CDbl(dtDeb) dblDateFin = CDbl(dtFin)
Do Until dblDateDeb > dblDateFin DateCourante = CDate(dblDateDeb) If WeekDay(DateCourante) <> 1 And _ WeekDay(DateCourante) <> 7 And _ JourFérié(DateCourante) = False Then resultat = resultat + 1 End If dblDateDeb = dblDateDeb + 1 Loop
NbOpenDay = resultat
End Function | | |
Date de création : 18/10/2006 @ 10:11
Dernière modification : 18/10/2006 @ 10:17
Catégorie : Dates & Heures
Page lue 2239 fois
Prévisualiser la page
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 6
Total visites : 174545
Affluence record: 102
le 17/06/2007 @ 07:36
|