brian.element 2014-02-20 weekday_dif This will calculate the number of business days between two dates. The function assumes that Saturday and Sunday are not business days. Numeric '**************************************************************************************************** '* Custom Function: weekday_dif '* Author: Brian Element - brian.element@ideascripting.com '* Date: Feb 20, 2014 '* Purpose: to calulate the number of business days between two dates '* This script is provided without any warranty or guarantee. Anybody using this script '* is encouraged to validate the effectiveness and reliability on their own. '* For instructions on how to use this script please see http://www.ideascripting.com/ideascript/import-multiple-files '**************************************************************************************************** Option Explicit Function weekday_dif(StartDate As Date,EndDate As Date) As Double Dim numWeekdays As Integer Dim totalDays As Integer Dim weekendDays As Integer Dim i As Integer numWeekdays = 0 WeekendDays = 0 totalDays = DateDiff("d", StartDate, EndDate) + 1 For i = 1 To totalDays If Weekday(startDate) = 1 Then WeekendDays = WeekendDays + 1 End If If Weekday(startDate) = 7 Then WeekendDays = WeekendDays + 1 End If startDate = DateSerial(Year(startDate), Month(startDate), Day(startDate) + 1) Next weekday_dif = totalDays - WeekendDays End Function Date StartDate Starting Date Date EndDate Ending Date