Función Networkdaysvba (startDate como doble, endDate como fecha, días de fiesta opcionales como variante) como número entero
Amortiguar i como número entero
Amortiguar el tmp como número entero
Amortiguar despegue como fecha, dtStart como fecha
startDate = arreglo (startDate)
tmp = ((endDate - startDate de + semanas enteras del trabajo 1) \ 7) * 5 '
dtStart = startDate + (tmp * 7/5) 'movimiento a la semana pasada
Para despegue = dtStart al endDate
Si día laborable (despegue, vbMonday) <>= h entonces
tmp = tmp - 1
Terminar si
Después
Terminar si
Networkdaysvba = tmp
Función del final
Función EOMonthVBA (startDate como doble, meses como de largo) como fecha
startDate = arreglo (startDate)
EOMonthVBA = DateAdd (“m”, meses + 1, startDate - día (startDate) + 1) - 1
Función del final
Función EDateVBA (startDate como doble, meses como de largo) como fecha
startDate = arreglo (startDate)
EDateVBA = DateAdd (“m”, meses, startDate)
Función del final
|