Вопрос : Ищущ NETWORKDAYS VBA соответствующее без анализа ToolPack или анализа ToolPack VBA

Я имею окружающую среду потребителя где Эксел 2003 обернуто и таким образом неспособно для того чтобы выполнить любые заново устанавливать-деинсталлируют функцию без идти до регионарное ОНО утверждение.

I недавн начинало режим VBA для того чтобы выполнить вычисление, но потребности функциональность NETWORKDAYS, котор обеспечила add-in. Я смотрел вверх и вниз но большинств предложения сконцентрируют класть:


With .AddIns («анализа Toolpak»). Установлено = False
. Я установлено = True

which не работало для меня. Мое вопрос в том, что реально, вполне функция в VBA которое add-in свободно и заменяет ть NETWORKDAYS 100%? Я имею таблицу праздника быть поддержанным в доступе поэтому маловероятно праздник, котор даты могут быть hardcoded. Я могу ехпортировать таблицу праздника доступа внутри к архиву текста но функция VB должна мочь прочитать идею текста file.

Any? class=

Ответ : Ищущ NETWORKDAYS VBA соответствующее без анализа ToolPack или анализа ToolPack VBA

Здесь вы идете.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:

Функция Networkdaysvba (startDate как дата, endDate как дата, опционные праздники как вариант) как интежер Затемните I как интежер Затемните tmp как интежер Затемните dt как дата, dtStart как дата tmp = ((endDate - startDate + недели работы 1) \ 7) * 5 'все dtStart = startDate + (tmp * 7/5) 'движение к последней неделе Для dt = dtStart к endDate Если будний день (dt, vbMonday) <>= h после этого tmp = tmp - 1 Закончитесь если Затем Закончитесь если Networkdaysvba = tmp Функция конца