• Home
 · 
• Miscellaneous
 · 
• Calculate how many WeekDays or WeekEnds are between two dates. THIS IS THE WAY ITS DONE.

Calculate how many WeekDays or WeekEnds are between two dates. THIS IS THE WAY ITS DONE.

Calculate how many WeekDays or WeekEnds are between two dates. THIS IS THE WAY IT"S DONE.

Rate Calculate how many WeekDays or WeekEnds are between two dates. THIS IS THE WAY ITS DONE.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
    Dim nSunCounter As Integer      'count Sundays
    Dim nSatCounter As Integer      'count Saturdays
    Dim nWeekdayCounter As Integer  'count Weekdays
    Dim dDateStart As Date          'Starting date
    Dim dDateEnd As Date            'Ending date
    Dim nLoop As Integer            'set end point of loop
    Dim x As Integer                'for loop
    
    dDateStart = Format("01/13/2000", "mm/dd/yy")       'Assign date to start of loop
    dDateEnd = Format("1/13/2001", "mm/dd/yy")          'assign value to end of loop(this is where loop should END
    nLoop = DateDiff("d", dDateStart, dDateEnd)         'calculate how many days to loop through
    
    For x = 0 To nLoop                                  'loop those many days
        If Weekday(dDateStart) = vbSaturday Then        '(Check if Sat)
            nSatCounter = nSatCounter + 1               'count Sat
        ElseIf Weekday(dDateStart) = vbSunday Then      'Check if Sun
            nSunCounter = nSunCounter + 1               'Count Sun
        Else
            nWeekdayCounter = nWeekdayCounter + 1       'Count Weekdays
        End If
        dDateStart = dDateStart + 1                     'increment 1 day at a time (For loop ONLY)
    Next x
    
    MsgBox "Weekdays: " & nWeekdayCounter & " Sat: " & nSatCounter & " Sun: " & nSunCounter
    
End Sub