Funzione Networkdaysvba (startDate come doppio, 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
startDate = difficoltà (startDate)
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
Funzione EOMonthVBA (startDate come doppio, mesi come lungamente) come data
startDate = difficoltà (startDate)
EOMonthVBA = DateAdd (“m.„, mesi + 1, startDate - giorno (startDate) + 1) - 1
Funzione di conclusione
Funzione EDateVBA (startDate come doppio, mesi come lungamente) come data
startDate = difficoltà (startDate)
EDateVBA = DateAdd (“m.„, mesi, startDate)
Funzione di conclusione
|