RemoveWeekEnds
Returns number of business days from a start date and total number of days. There are more pieces coming. Building a routine that calculates holidays and weekends to tell you strictly business days.
Original Author: UstesGreenridge
Inputs
strStartDate and totalsdays
Returns
total number of business days
Code
Public Function RemoveWeekends(strStartDate As String, intNumberOfDays) As Integer
Dim i As Integer
For i = 0 To intNumberOfDays
Select Case Weekday(DateAdd("d", i, CDate(strStartDate)))
Case vbSaturday, vbSunday
intNumberOfDays = intNumberOfDays - 1
End Select
Next i
RemoveWeekends = intNumberOfDays
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.