Pergunta : Alternativa de EOMONTH, de EDATE & de NETWORKDAYS

Olá!, o

Using o código unido eu começ o #NAME do erro? em algumas máquinas. Eu penso que eu o localizei para baixo ao fato que o as versões de primam a escala de 2000 - 2003 sp3 e alguns não têm o toolpack da análise instalado?

Is lá uma alternativa que eu posso se usar para as quatro linhas abaixo?
-------------------------------------------------------------------------------------------------------------------

Range (“AS2”). Fórmula = do “

Range =EOMONTH (AL2,1) “(“A47”). Fórmula = “=AS2- ((EOMONTH (AS2,0) - EOMONTH (AS2, - 1))- 1) “

Range (“A48: A58”) .FormulaR1C1 = “=EDATE (R [- 1] C [], - 1) “

Range (“D47: D58”) .FormulaR1C1 = “=NETWORKDAYS (RC [- 3], EOMONTH (RC [- 3], 0), Control! R2C13:

de R23C13) “-------------------------------------------------------------------------------------------------------------------o



What que eu estou tentando conseguir é que essa pilha AS2 está avançada pelo sinal de adição 1 mês varia então as lista A47-A58 os últimos 12 meses compreendendo o mês atual igualmente variam D47: D58 dá os dias de trabalho totais para cada um estes do
Sq




 de months.

Thanks adiantado class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
>Private notpretty MonthPlus1 secundários " do class= " do id= " codeSnippet779726 do
class= do

Resposta : Alternativa de EOMONTH, de EDATE & de NETWORKDAYS 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

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
Outras soluções  
 
programming4us programming4us