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 - Nombre jours ouvrés

Description 

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 :

 
Synthaxe 

Expression_Numérique = NbOpenDay (dtDeb, dtFin)

La synthaxe de la fonction NbOpenDay comprend les éléments suivants :

ElémentsDescription

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.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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 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 : 6

Total visites : Total visites : 174545  
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.1 seconde