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

 996167 visiteurs

 1 visiteur en ligne

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 3868 fois