--- Soumis par Michel Walsh ---

Combien de dimanches entre deux dates.

    D'une observation initiale de Lyle Fairfield, voici une solution pour obenir le nombre de jour, disons le nombre de mercredis, entre deux dates (utiliser WD = vbWednesday, par exemple):

'************* Code Start *************
Public Function HowManyWD(FromDate As Date, _
                            ToDate As Date, _
                            WD As Long)
   ' Fournir le traitement d'erreur approprié
    HowManyWD = DateDiff("ww", FromDate, ToDate, WD) _
                                 - Int(WD = WeekDay(FromDate))
End Function
'************* Code End *************

    Dans la même veine, on peut obtenir le nombre de jours de semaine entre deux date, excluant samedi et dimanche, simplement en soustrayant samedis et dimanches:

'************* Code Start *************
Public Function HowManyWeekDay(FromDate As Date, _
                            ToDate As Date, _
                            Optional ToDateIsIncluded As Boolean = True)
    
    HowManyWeekDay = DateDiff("d", FromDate, ToDate) - _
                    ToDateIsIncluded - _
                    HowManyWD(FromDate, ToDate, vbSunday) - _
                    HowManyWD(FromDate, ToDate, vbSaturday)
End Function
'************* Code End *************