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
114 Abonnés
 
 

Dates & Heures - Ajouter jours ouvrés

Description 

Cette fonction permet de retourner une date correspondant à une date de départ + un nombre de jours ouvrés.

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_Date = fAddOpenDay (dtDeb, dtFin)

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

ElémentsDescription

dt

Expression de type date correspondant à la date à laquelle on souhaite ajouter des jours ouvrés.

nbDay

Expression numérique correspondant au nombre de jours ouvrés que l'on veut ajouter.
 
Exemple 

Cet exemple permet de retourner un msgBox indiquant la date de départ, le nombre de jours ouvrés que l'on veut y ajouter et le résultat obtenue.

Public Function fAddOpenDay_EXE()

Dim dtStart As Date
Dim intDay As Integer
Dim strMsgBox As String

dtStart = Format(#3/31/2005#, "dd/mm/yyyy")
intDay = 30

strMsgBox = "Si on ajoute " & intDay & " jours ouvrés" & vbCrLf
strMsgBox = strMsgBox & "à la date " & dtStart & "," & vbCrLf
strMsgBox = strMsgBox & "la fonction AddOpenDay retournera la date :" & vbCrLf
strMsgBox = strMsgBox & Format(fAddOpenDay(dtStart, intDay), "dd/mm/yyyy") 

MsgBox strMsgBox

End Function

Cet exemple retournera le msgBox suivant :

 
Code de la fonction 


Public Function fAddOpenDay(dt As Date, nbDay As Integer) As Date
'** Ajouter des jours ouvrés à une date

Dim dblDt As Double
Dim nb%

dblDt = CDbl(dt)
Do Until nb = nbDay
    dblDt = dblDt + 1
    If WeekDay(CDate(dblDt)) <> 1 _
        And WeekDay(CDate(dblDt)) <> 7 _
        And JourFérié(CDate(dblDt)) = False Then
            nb = nb + 1
    End If
Loop

fAddOpenDay = CDate(dblDt)

End Function

 


Date de création : 18/10/2006 @ 10:49
Dernière modification : 20/10/2006 @ 14:37
Catégorie : Dates & Heures
Page lue 3085 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 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonyme en ligne : Anonyme en ligne : 1

Total visites : Total visites : 120383  
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.11 seconde