Visual Basic Programming Code Examples Visual Basic > API and Miscellaneous Code Examples Function to find the number of working days there are between two dates. Function to find the number of working days there are between two dates. 'Here is function that will find the number of working 'days (weekdays) there are between two dates. Function getBusDays(SDate As Date, EDate As Date) As Integer ' ' This function will find the number of ' business days between two dates. Dim tmpDay As Integer getBusDays = 0 Do Until SDate = EDate tmpDay = Format(SDate, "w") Select Case tmpDay Case 2, 3, 4, 5, 6 getBusDays = getBusDays + 1 End Select SDate = DateAdd("d", 1, SDate) Loop End Function
