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