0/5 (5 avis)
Snippet vu 26 467 fois - Téléchargée 81 fois
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
29 avril 2010 à 01:34
18 févr. 2010 à 12:06
ligne 13 : DateDébut DateDébut + 1
addition d'un entier à une date !!!
=> DateDébut.AddDays(1)
16 nov. 2009 à 11:17
DATAGRID:
PRODUIT PRIX MOYEN
AZERTY 100,00
5 mars 2009 à 01:28
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
9 déc. 2006 à 16:11
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.