Pergunta : Procurando NETWORKDAYS VBA equivalente sem análise ToolPack ou análise ToolPack VBA

Eu tenho um ambiente de usuário onde Excel 2003 seja envolvido e assim incapaz de executar algum reinstalar-desinstale a função sem atravessar um regional ELE aprovaçã0. o

I tem desenvolvido recentemente uma rotina de VBA para executar o cálculo, mas necessidades que a funcionalidade de NETWORKDAYS forneceu pelo add-in. Eu olhei acima e para baixo mas a maioria de sugestões centrar-se-ão em torno da colocação:
do

With .AddIns (“análise Toolpak”). Instalado = False
. Instalado = True

which não trabalhou para mim. Minha pergunta há realmente, está uma função completa em VBA que está livre add-in e substitui NETWORKDAYS 100%? Eu tenho uma tabela do feriado mantida no acesso assim que é improvável o feriado onde as datas podem ser hardcoded. Eu posso exportar a tabela do feriado do acesso dentro para uma lima de texto mas a função de VB deve poder ler a idéia do texto file.

Any? class= do

Resposta : Procurando NETWORKDAYS VBA equivalente sem análise ToolPack ou análise ToolPack VBA

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

Função Networkdaysvba (startDate como a data, endDate como a data, feriados opcionais como a variação) como o inteiro
    Escurecer i como o inteiro
    Escurecer o tmp como o inteiro
    Escurecer o descolamento como a data, dtStart como a data
    
    tmp = ((endDate - startDate + 1) \ 7) * 5 'semanas inteiras do trabalho
    dtStart = startDate + (tmp * 7/5) 'movimento a na semana passada
    Para descolamento = dtStart ao endDate
        Se dia útil (descolamento, vbMonday) <>= h então
                tmp = tmp - 1
            Terminar se
        Em seguida
    Terminar se
    Networkdaysvba = tmp
Função do fim
Outras soluções  
 
programming4us programming4us