Funkcja Networkdaysvba (startDate Kopia, endDate Jako Data, Fakultatywny wakacje Jako Wariant) Jako Integer
Ćmić i Jako Integer
Ćmić tmp Jako Integer
Ćmić dt Jako Data, dtStart Data
startDate = Dylemat (startDate)
tmp = ((endDate - startDate + 1) \ 7) * 5 'całkowity praca tydzień
dtStart = startDate + (tmp * 7/5) 'ruch w zeszłym tygodniu
Dla dt = dtStart EndDate
Jeżeli Dzień powszedni (dt, vbMonday) <>= h Wtedy
tmp = tmp - (1)
Kończyć Jeżeli
Następnie
Kończyć Jeżeli
Networkdaysvba = tmp
Końcówka Funkcja
Funkcja EOMonthVBA (startDate Jako Kopia, miesiąc Długo) Data
startDate = Dylemat (startDate)
EOMonthVBA = DateAdd ("m", miesiąc + (1), startDate - Dzień (startDate) + 1) - (1)
Końcówka Funkcja
Funkcja EDateVBA (startDate Jako Kopia, miesiąc Długo) Data
startDate = Dylemat (startDate)
EDateVBA = DateAdd ("m", miesiąc, startDate)
Końcówka Funkcja
|