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

 1008415 visiteurs

 8 visiteurs en ligne

Nous contacter
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 3975 fois