Recherche
Recherche
Les mémos
Je débute...
Visites

 1002167 visiteurs

 1 visiteur en ligne

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
Catégorie : Les mémos - Dates - Heures
Page lue 3945 fois