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