Определить последний рабочий день и изменить подстроку значения ячейки

Question

Я пытаюсь изменить 2 даты ('10 -06-19 '! F333 + '10 -06-19'! Y555) в значении ячейки на последний рабочий день.

У меня есть список в Excelгосударственных праздников, которые могут быть сохранены.

У меня есть код для распознавания выходных и праздничных дней.Может ли кто-нибудь помочь с кодом для изменения (datepart) подстроки значения ячейки со значением Wrkdate.

Sub ChangeSubstringOfDate() 
    Dim WrkDate
    WrkDate = Date

    If (Application.Weekday(Date - 1, 2) = 7) Then      '  for  Sunday
        WrkDate = WrkDate - 2
    Else
        If (Application.Weekday(Date - 1, 2) = 6) Then  '  for  Saturday
            WrkDate = WrkDate - 1      
        Else
            'check for  for  holidays
            WrkDate = Application.WorksheetFunction.WorkDay(Date, -1, Worksheets("Sheet3").Range("A:A"))
        End If
    End If

    Range("C7").Value = Format(WrkDate - 1, "dd mm yy")  
    '10-06-19'!F333+'10-06-19'!Y555-- change date to i.e. 06-06-19.    
End Sub

Answer 1

Последний рабочий день

Sub Test()
    MsgBox CDate(Evaluate("WORKDAY(TODAY(),-1)"))
End Sub