Aantal weekdagen in een maand

Op Twitter verscheen de volgende vraag over het aantal weekdagen in een maand:

“Ik wil alle zaterdagen tellen in een bepaalde maand. Weet iemand hoe ik dat doe in Excel?”

Een zelfgeschreven functie biedt hier uitkomst. Die voorkomt dat je allerlei extra kolommen moet gaan toevoegen aan je Excel bestand. De functie die je hieronder ziet telt het aantal dagen in de opgegeven maand.

Stel dat je in cel A2 het jaar hebt opgegeven, in cel B2 het maandnummer en in cel C2 het nummer van de weekdag dan luidt de formule:

=NDagInMaand(A2;B2;C2)

De zaterdag heeft in dit voorbeeld het nummer 7. Excel start de week standaard met de zondag. Zet daarvoor in de het macroblad (Alt-F11) van het betreffende blad deze code:

Public Function NDagInMaand(Jaar As Integer, Maand As Integer, Weekdag As Byte) As Byte

Dim x As Date

start = DateSerial(Jaar, Maand, 1)

If Maand = 12 Then
last = DateSerial(1 + Jaar, 1, 1)
Else
last = DateSerial(Jaar, 1 + Maand, 1)
End If

NDagInMaand = 0

For x = start To last – 1
If WeekDay(x, vbSunday) = Weekdag Then NDagInMaand = NDagInMaand + 1
Next x

End Function

Download voorbeeldbestand aantal weekdagen

Vragen?

Heb je vragen over dit specifieke voorbeeld of over Excel in het algemeen? Neem dan contact met mij op!