Question

I would like to calculate a new invoice date as follows:

Starting Date + 14 days 
Where days includes weekends, but excludes holidays.

How can I do this?

The WorkDays and Networkdays functions don’t quite seem to meet my needs.

Answer 1

Thanks for your responses.

In the end I went for this:

Public Function GetCalendarDaysExHolidays(DateStart As Date, MaxDate As Date, NumDays As Integer) As Date
Dim i As Date
Dim DaysCounted As Integer
Dim Rng As Range

DaysCounted = 0

i = DateStart

Do While i < MaxDate

    Set Rng = Sheets("Bank holidays").Range("A1:A1000").Find(what:=Format(DateValue(i), "DD/MM/YYYY"), LookAt:=xlWhole, LookIn:=xlFormulas)
    If Rng Is Nothing Then
        DaysCounted = DaysCounted + 1
    End If

    i = i + 1

    If (DaysCounted = NumDays) Then
        GetCalendarDaysExHolidays = i
        Exit Do
    End If
Loop
Exit Function

End Function