Функция Networkdaysvba (startDate как двойник, endDate как дата, опционные праздники как вариант) как интежер
Затемните I как интежер
Затемните tmp как интежер
Затемните dt как дата, dtStart как дата
startDate = починка (startDate)
tmp = ((endDate - startDate + недели работы 1) \ 7) * 5 'все
dtStart = startDate + (tmp * 7/5) 'движение к последней неделе
Для dt = dtStart к endDate
Если будний день (dt, vbMonday) <>= h после этого
tmp = tmp - 1
Закончитесь если
Затем
Закончитесь если
Networkdaysvba = tmp
Функция конца
Функция EOMonthVBA (startDate как двойник, месяцы как длиной) как дата
startDate = починка (startDate)
EOMonthVBA = DateAdd («m», месяцы + 1, startDate - день (startDate) + 1) до 1
Функция конца
Функция EDateVBA (startDate как двойник, месяцы как длиной) как дата
startDate = починка (startDate)
EDateVBA = DateAdd («m», месяцы, startDate)
Функция конца
|