Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008415 visiteurs
8 visiteurs en ligne
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