Questione : Cercando NETWORKDAYS VBA equivalente senza analisi ToolPack o analisi ToolPack VBA

Ho una situazione di utilizzo in cui Excel 2003 è spostato e così incapace di effettuare c'è ne reinstallare-disinstallano la funzione senza passare con un regionale ESSO approvazione. il

I ha sviluppato di recente una procedura di VBA per effettuare il calcolo, ma bisogni che la funzionalità di NETWORKDAYS ha fornito dall'addizionale. Ho osservato su e giù ma la maggior parte dei suggerimenti verteranno mettere:
del

With .AddIns (“analisi Toolpak„). Installato = False
. Installato = True

which non ha funzionato per me. La mia domanda è realmente, è ci una funzione completa in VBA che è libero addizionale e sostituisce NETWORKDAYS 100%? Faccio una tabella di festa effettuare nell'accesso in modo da è improbabile la festa che le date possono essere hardcoded. Posso esportare la tabella di festa di accesso dentro ad una lima di testo ma la funzione di VB deve potere leggere l'idea del testo file.

Any? class= del

Risposta : Cercando NETWORKDAYS VBA equivalente senza analisi ToolPack o analisi ToolPack VBA

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

Funzione Networkdaysvba (startDate come data, endDate come data, feste facoltative come variante) come numero intero
    Oscurare la i come numero intero
    Oscurare il tmp come numero intero
    Oscurare il distacco come data, dtStart come data
    
    tmp = ((endDate - startDate + settimane del lavoro di 1) \ 7) * 5 'intere
    dtStart = startDate + (tmp * 7/5) 'movimento verso la settimana scorsa
    Per distacco = dtStart a endDate
        Se giorno della settimana (distacco, vbMonday) <>= h allora
                tmp = tmp - 1
            Concluder se
        Dopo
    Concluder se
    Networkdaysvba = tmp
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us