Nombre de jours ouvrables entre deux dates

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 947 fois - Téléchargée 79 fois

Commenter

Contenu du snippet

Petite fonction qui calcul le nombre de jours ouvrables entre deux dates. Elle compte la journée en cours et la dernière journée. ATTENTION: Ne tiens pas compte des jours fériés!!!

Source / Exemple : 


Public Function JoursOuvrables(ByVal DateDébut As Date, ByVal DateFin As Date) As Integer
  'Initialisation selon si c'est un jour de semaine (<6) ou de fin de semaine (>=6)
  If WeekDay(DateDébut, vbMonday) < 6 Then
    JoursOuvrables = 1
  Else
    JoursOuvrables = 0
  End If

  Do Until DateDébut > DateFin
    If WeekDay(DateDébut, vbMonday) < 6 Then
      JoursOuvrables = JoursOuvrables + 1
    End If
    DateDébut = DateDébut + 1
  Loop
End Function

A voir également

Ajouter un commentaire

Commentaires

Signaler
Kendj
Messages postés
2
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
9 décembre 2006
 -
je voudrai comment om peut compter le nombre de samedi et de dimanche comprise entre 2 date avec ce code. envoyer lme moi sur mon adresse:ken_vip_dj@yahoo.fr
merci
Signaler
teckmicro2008
Messages postés
64
Date d'inscription
lundi 4 décembre 2000
Statut
Membre
Dernière intervention
27 janvier 2017
 -
bonjour ! j'ai essayer votre code mais j'ai problème !!

JoursOuvrables(ByVal DateDébut As Date, ByVal DateFin As Date) As Integer

je voudrais comment vous proceder pour si j'ai texte1=datedebut et texte2=datedefin !

voila je n'arrives pas a entree votre formule entier !

car avec as date et byval ! ça pose problème

merci de m'aider !!!

cordialement
Signaler
akbi_9702
Messages postés
1
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
16 novembre 2009
 -
COMMENT REMPLIR UN DATAGRID AVEC LES PRIX MOYENS DE MARCHANDISES ENTRE DEUX DATES CONNUES

DATAGRID:

PRODUIT PRIX MOYEN
AZERTY 100,00
Signaler
cs_fonio
Messages postés
56
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
15 février 2013
 -
bonjour,

ligne 13 : DateDébut DateDébut + 1
addition d'un entier à une date !!!

=> DateDébut.AddDays(1)
Signaler
dhawsami
Messages postés
2
Date d'inscription
dimanche 18 avril 2010
Statut
Membre
Dernière intervention
29 avril 2010
 -
CODE source= la defference entre deux date qui doit afficher dans datagridview et merci
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Black_Pit)