1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Nombre de jours ouvrables entre deux dates

Nombre de jours ouvrables entre deux dates

0/5 (5 avis)

Snippet vu 26 467 fois - Téléchargée 81 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
dhawsami
Messages postés
2
Date d'inscription
dimanche 18 avril 2010
Statut
Membre
Dernière intervention
29 avril 2010
29 avril 2010 à 01:34
CODE source= la defference entre deux date qui doit afficher dans datagridview et merci
cs_fonio
Messages postés
56
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
15 février 2013
 1
18 févr. 2010 à 12:06
bonjour,

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

=> DateDébut.AddDays(1)
akbi_9702
Messages postés
1
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
16 novembre 2009
16 nov. 2009 à 11:17
COMMENT REMPLIR UN DATAGRID AVEC LES PRIX MOYENS DE MARCHANDISES ENTRE DEUX DATES CONNUES

DATAGRID:

PRODUIT PRIX MOYEN
AZERTY 100,00
teckmicro2008
Messages postés
64
Date d'inscription
lundi 4 décembre 2000
Statut
Membre
Dernière intervention
27 janvier 2017
5 mars 2009 à 01:28
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
Kendj
Messages postés
2
Date d'inscription
mardi 14 novembre 2006
Statut
Membre
Dernière intervention
9 décembre 2006
9 déc. 2006 à 16:11
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
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)