Nombre de lundi

Cette fonction permet de calculer le nombre de lundi entre deux dates

Pour calculer la différence en semaines, en jours et autres entre deux dates, on utilise la fonction Access DateDiff(). Pour compter uniquement les lundis, il faut étoffer un peu et on utilisera la fonction suivante.

Function fnNombreDeLundi(dDate1 As Date, dDate2 As Date) As Integer
    '
    'Syntaxe:
    ' X = fnNombreDeLundi([date1],[date2])
    '
    Dim j As Double
    Dim dPremLundi As Date
    j = Weekday(dDate1)
    'si jour semaine > lundi
    If j > 2 Then
        j = 7 - j
        dDate1 = DateAdd("d", j, dDate1)
    End If

    fnNombreDeLundi = DateDiff("d", dDate1, dDate2, 2, 2) / 7

End Function