<div>
HI,<br />
<br />
pls try<br />
<br />

<pre><code id="code-20-41026046-1">Function ObservedBoxingDay(thedate As Date) As Date
dtXmas = DateValue(&quot;25/12/&quot; &amp; Year(thedate))
If dtXmas Mod 7 = 1 Then
    res = WorksheetFunction.WorkDay(dtXmas, 2)
Else
    res = WorksheetFunction.WorkDay(dtXmas, 1)
End If
ObservedBoxingDay = res

End Function
Function ObservedXmasDay(thedate As Date) As Date
dtXmas = DateValue(&quot;25/12/&quot; &amp; Year(thedate))
If dtXmas Mod 7 = 1 Then
    res = WorksheetFunction.WorkDay(dtXmas, 1)
Else 
    res = dtXmas
End If
ObservedXmasDay = res

End Function</code></pre>
Regards
</div>


HI,

pls try



Function ObservedBoxingDay(thedate As Date) As Date
dtXmas = DateValue("25/12/" & Year(thedate))
If dtXmas Mod 7 = 1 Then
    res = WorksheetFunction.WorkDay(dtXmas, 2)
Else
    res = WorksheetFunction.WorkDay(dtXmas, 1)
End If
ObservedBoxingDay = res

End Function
Function ObservedXmasDay(thedate As Date) As Date
dtXmas = DateValue("25/12/" & Year(thedate))
If dtXmas Mod 7 = 1 Then
    res = WorksheetFunction.WorkDay(dtXmas, 1)
Else 
    res = dtXmas
End If
ObservedXmasDay = res

End Function

Regards

<div>
The presented solution had errors when run. It did not properly dim the variables.
</div>


The presented solution had errors when run. It did not properly dim the variables.

<div>
<div class="content wysiwyg-content">
Looking for a VBA script of code to calculate both the observed Christmas and Boxing days.<br />
If Christmas falls on a Friday, then Boxing Day would be observed as Monday, December 28<br />
If Christmas falls on a Saturday, then observed holiday is December 24, and Boxing Day would be Sunday and observed as Monday December 27<br />
If Christmas falls on a Sunday, then Christmas is observed as Monday December 26, and Boxing Day moves to Tuesday December 27
</div>
</div>


Looking for a VBA script of code to calculate both the observed Christmas and Boxing days.
If Christmas falls on a Friday, then Boxing Day would be observed as Monday, December 28
If Christmas falls on a Saturday, then observed holiday is December 24, and Boxing Day would be Sunday and observed as Monday December 27
If Christmas falls on a Sunday, then Christmas is observed as Monday December 26, and Boxing Day moves to Tuesday December 27

Excel VBA to calculate observed Boxing Day Holiday

A spreadsheet is an interactive computer application program for organization, analysis and storage of data in tabular form. Spreadsheets developed as computerized simulations of paper accounting worksheets. The program operates on data represented as cells of an array, organized in rows and columns. Each cell of the array may contain either numeric or text data, or the results of formulas that automatically calculate and display a value based on the contents of other cells.

Spreadsheets

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.