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.
AI
ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Исходный код
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
Оригинальные комментарии (3)
Восстановлено из Wayback Machine