Calcul du nombre de jours ouvrés entre deux dates

Soyez le premier à donner votre avis sur cette source.

Snippet vu 84 826 fois - Téléchargée 33 fois

Contenu du snippet

Calcul le nombre de jours ouvrés entre 2 dates c'est à dire sans les Week-end et les jours. ce code marche avec mon code de décompte des jours fériés que j'ai dans la rubrique CODE / CATEGORIES des CODES/DATE/HEURE.

En espérent que ça aide

A+!

les tits loups et bonne année 2005

Source / Exemple :


'**********************************************
'Trouver les Weeks-end .                                                   *
'cette petite fonction n'est pas de moi                               *
'Et remercie la personne ça m'a permis d'aller plus vite     *
'Pour ma fonction  joursouvres(date1,date2)                     *
'**********************************************

Function SD(jour)
Dim numjour
numjour=Weekday(jour,vbMonday)      'fixe à 6 et 7 la valeur du samedi & dimanche
If numjour=6 Or numjour=7 Then SD=true : Exit Function
End Function

'**********************************************
'Trouver le nombre de jours ouvrés.                                  *
'Pour exemple:(recopier avant de faire appel à la fonction*
'Dim AA, Date1, Date2                                                        *
'AA = Year(now)                                                                 *
'Date1 = CDate ("01/05/" &AA )                                         *
'Date2 =  CDate ("31/05/" &AA ) 
'Ensuite après avoir recopier la fonction faire ce qui suit   *
'response .write  joursouvres(date1,date2)                      *   
'Fait par Jessie                                                                            *
'**********************************************

Function joursouvres(date1,date2)
Dim q, s, f ,m, r 

r = DateDiff("d",date1,date2)+1
q = DateDiff("d",date1,date2)

For s = 0 to q

ladate = formatdatetime(date1+s,vbMonday)
If SD(ladate) = true Then
  f = f+1
  m = r-f	
End If 

Next

'**********************************************
'Pour enlever les jours fériés qui apparaissent ici avec la  *
'fonction Decptejrsferie(date1,date2)                                *
'il faut utiliser ma source "décompte des jours fériés" que*
'j'ai sur ce site dans la rubrique                                         *
'CODE / CATEGORIES des CODES/DATE/HEURE.                *
'*********************************************
joursouvres = m-Decptejrsferie(date1,date2)
End Function

A voir également

Ajouter un commentaire

Commentaire

thierrybo
Messages postés
17
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
12 novembre 2010
1 -
Bonjour,

je suis en train de tester ce script avec les jours fériés :

2008 jours fériés / jours ouvrés
Janvier : 1 / 22 OK
Février : 0 / 21 OK
Mars : 1 / 20 OK
Avril : 0 / 22 OK
Mai : 4 / 18 NOK (sans compter le 12/5 !)
Juin : 0 / 21 OK
Juillet : 1 / 22 OK
Aout : 1 / 21 OK
Septembre : 0 / 22 OK
Octobre : 0 / 23 OK
Novembre : 2 / 18 NOK
Décembre : 1 / 22 OK

Pour info

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.