Excluding Bank Holidays from working day calc

[AndyEd]

The following provides a date 20 working days from the date selected. Is there a way to exclude UK Bank Holidays within the calculation?

Dim d As Date, i As Integer
    If CLng(datevariable) > 0 Then
        d = CDate(Me.txtDateReceived.value)
        i = 20
        Me.txtDeadlineDate.value = CStr(WorkDayCalc(d, i))
    End If

Thank you

 

[awoohaw]

I am unsure if the WORKDAY or WORKDAY.INTL calculation is in the application excel worksheet formulas part of VBA.
But, if you can use that it would work for you.
But if you are just creating UDF to do just that, why not just use one of those in your workbook without creating a UDF.
(WORKDAY only has Sat & Sun as weekends, WORKDAY.INTL you can configure the days off).

Book1
	A	B	C	D
1
2
3	Date	Days
4	2024-02-13	20	Thu 2024-03-14	WORKDAY w HOLIDAY Sched
5			Thu 2024-03-14	WORKDAY.INTL w HOLIDAY Sched
6	HolidayList		Thu 2024-03-21	WORKDAY.INTL w HOLIDAY Sched & 3 Day Weekends
7	2024-02-19
8	2024-02-26
Sheet2

Cell Formulas
Range	Formula
C4	C4	=WORKDAY($A$4,$B4,$A$7:$A$8)
C5	C5	=WORKDAY.INTL($A$4,$B$4,1,$A$7:$A$8)
C6	C6	=WORKDAY.INTL($A$4,$B$4,"0000111",$A$7:$A$8)

 

[AndyEd]

Almost sorry I asked now I'll have a play.

Thanks for the prompt response.

 

[awoohaw]

Almost sorry I asked now I'll have a play.

Thanks for the prompt response.

You're welcome. Happy to help.

Best wishes!