CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES

'**********************************************
'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