En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1155654 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

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 4909 fois
Vous êtes ici :   Accueil » Nombre de lundi