Fonction Networkdaysvba (startDate en tant que le double, l'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
startDate = difficulté (startDate)
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
Fonction EOMonthVBA (startDate en tant que le double, mois en tant que longtemps) comme date
startDate = difficulté (startDate)
EOMonthVBA = DateAdd (« m », mois + 1, startDate - jour (startDate) + 1) - 1
Fonction de fin
Fonction EDateVBA (startDate en tant que le double, mois en tant que longtemps) comme date
startDate = difficulté (startDate)
EDateVBA = DateAdd (« m », mois, startDate)
Fonction de fin
|