Fungera Networkdaysvba (startDate så dubbelt, endDate som daterar, valfria ferier som Variant) som heltal
Dunkelt I som heltal
Dunkel tmp som heltal
Dunkel avskiljare som daterar, dtStart som daterar
startDate = knipa (startDate)
tmp = ((endDate - startDate + 1) \ 7) * 5 'hela arbetsveckor
dtStart = startDate + (tmp * 7/5) 'flyttning att vara vecka
För avskiljare = dtStart till endDate
Om vardag (avskiljare som, är vbMonday) <>= H därefter
tmp = tmp - 1
Avsluta om
Därefter
Avsluta om
Networkdaysvba = tmp
Avsluta fungerar
Fungera EOMonthVBA (startDate så dubbelt, månader som Long) som daterar
startDate = knipa (startDate)
EOMonthVBA = DateAdd (”M”, månader + 1, startDate - dagen (startDate) + 1) - 1
Avsluta fungerar
Fungera EDateVBA (startDate så dubbelt, månader som Long) som daterar
startDate = knipa (startDate)
EDateVBA = DateAdd (”M”, månader, startDate)
Avsluta fungerar
|