Calcul du nombre de jours ouvrés entre deux dates

Commenter

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

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 (cs_jessie)