Nombre de jours ouvrables entre deux dates
Soyez le premier à donner votre avis sur cette source.
Snippet vu 25 589 fois - Téléchargée 79 fois
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
- Calcul jours ouvrés
- Nombre de jours ouvrés - Meilleures réponses
- Nombre de jours ouvrés par an - Meilleures réponses
- PHP : Calcul simple du nombre de jours ouvrés entre deux dates (jours fériés in - Guide
- Calcul jour ouvre ✓ - Forum - Visual Basic 6
- ASP / ASP.NET : Calcul du nombre de jours ouvrés entre deux dates - CodeS SourceS - Guide
- PHP : Formulaire de congés avec calcul des jours ouvrés - CodeS SourceS - Guide
- Calcule des jours ouvrés + jours feriés - Codes sources - PHP (Date / Heure)
ligne 13 : DateDébut DateDébut + 1
addition d'un entier à une date !!!
=> DateDébut.AddDays(1)
DATAGRID:
PRODUIT PRIX MOYEN
AZERTY 100,00
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
merci
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.