HTML - CSS
Files Directories Drives
Windows and Controls
Visual Basic > API and Miscellaneous sample source codes
Visual Basic Code > 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
Link to Us