Question : Recherchant NETWORKDAYS VBA équivalent sans analyse ToolPack ou analyse ToolPack VBA

J'ai un environnement d'utilisateur où Excel 2003 est enveloppé et ainsi incapable d'exécuter réinstaller-en désinstallent la fonction sans passer par un régional IL approbation. le

I ont développé récemment une routine de VBA pour exécuter le calcul, mais les besoins que la fonctionnalité de NETWORKDAYS a fournis par l'addition. J'ai regardé à travers mais la plupart des suggestions se concentreront sur la mise :
du

With .AddIns (« analyse Toolpak »). Installé = False
. Installé = True

which n'a pas fonctionné pour moi. Ma question y a-t-il vraiment, est-il une fonction complète dans VBA qui est libre addition et remplace NETWORKDAYS 100% ? Je fais maintenir une table de vacances dans l'accès ainsi il est peu probable les vacances où les dates peuvent être hardcoded. Je peux exporter la table de vacances d'accès dedans vers un dossier des textes mais la fonction de VB doit-elle pouvoir lire l'idée des textes file.

Any ? class= de

Réponse : Recherchant NETWORKDAYS VBA équivalent sans analyse ToolPack ou analyse ToolPack VBA

Voici que vous allez.

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

Fonction Networkdaysvba (startDate comme date, endDate comme date, vacances facultatives comme variante) comme nombre entier Obscurcir I comme nombre entier Obscurcir le tmp comme nombre entier Obscurcir le décollement comme date, dtStart comme date tmp = ((endDate - startDate + semaines entières de travail de 1) \ 7) * 5 ' dtStart = startDate + (tmp * 7/5) 'mouvement à la semaine dernière Pour décollement = dtStart à l'endDate Si jour de la semaine (décollement, vbMonday) <>= h alors tmp = tmp - 1 Finir si Après Finir si Networkdaysvba = tmp Fonction de fin