После того, как я получил базовое представление о VB, достаточное для чтения этого кода, я обнаружил, что этот вопрос не столько о синтаксисе, сколько о простой работе через логику.@OldDate в конечном итоге станет числом около 470 дней с сегодняшнего дня, так как
DateAdd("d", -1, datActionDate)
вычитает день из datActionDate, который определяется как
datActionDate = Now()
Я был незнаком со днем недели (), который просто дает числовой день.Таким образом, следующее утверждение
if weekday(datActionDate) > 1 and weekday(datActionDate) < 7 then
в основном ищет дни, которые не являются субботой и воскресеньями (для которых 105 в году - это будет МИНИМУМ, уменьшенное с сегодняшнего дня)
Когдавычитая выходные в праздничные дни (для которых их около 11) в этой строке
if not holidayLs(datActiondate) then
Тогда datActionDate = суббота, 24 ноября 2018 года