Visual Basic > API and Miscellaneous
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
Visual Basic Codes
ActiveX
Miscellaneous
Applications
Code Snippets
Common Dialogs
Special Effects
Database Stuff
Date Time
Files Drives
Forms
Graphics Games
Internet Stuff
Multimedia
Other
Strings
Windows