Função Networkdaysvba (startDate como o dobro, o endDate como a data, feriados opcionais como a variação) como o inteiro
Escurecer i como o inteiro
Escurecer o tmp como o inteiro
Escurecer o descolamento como a data, dtStart como a data
startDate = reparo (startDate)
tmp = ((endDate - startDate + 1) \ 7) * 5 'semanas inteiras do trabalho
dtStart = startDate + (tmp * 7/5) 'movimento a na semana passada
Para descolamento = dtStart ao endDate
Se dia útil (descolamento, vbMonday) <>= h então
tmp = tmp - 1
Terminar se
Em seguida
Terminar se
Networkdaysvba = tmp
Função do fim
Função EOMonthVBA (startDate como o dobro, os meses como por muito tempo) como a data
startDate = reparo (startDate)
EOMonthVBA = DateAdd (“m”, meses + 1, startDate - dia (startDate) + 1) - 1
Função do fim
Função EDateVBA (startDate como o dobro, os meses como por muito tempo) como a data
startDate = reparo (startDate)
EDateVBA = DateAdd (“m”, meses, startDate)
Função do fim
|