Binaryworld - BusinessDateAdd - Adding or subtracting a number of business days from ... [ VB.net -> Date-Time ]

' Add or subtract a number of business days from a date
' Example: Debug.WriteLine(BusinessDateAdd(#4/9/2003#, 5)) ' => 4/16/2003

Function BusinessDateAdd(ByVal startDate As Date, ByVal days As Integer, _
  Optional ByVal saturdayIsHoliday As Boolean = True) As Date
  Do While days
    ' increment or decrement the date
    startDate = startDate.AddDays(Math.Sign(days))
    ' check that it is a week day
    If startDate.DayOfWeek <> DayOfWeek.Sunday AndAlso (startDate.DayOfWeek _
      <> DayOfWeek.Saturday Or Not saturdayIsHoliday) Then
      ' days becomes closer to zero
      days -= Math.Sign(days)
    End If
  Loop
  Return startDate
End Function