Fråga : EOMONTH-, EDATE- & NETWORKDAYS-alternativ

Hi fäste för

Using kodifierar mig får fel#NAMEen? på något bearbetar med maskin. Funderare I har jag preciserat den besegrar till faktumet som versionerna av överträffar spänner från 2000 - 2003 sp3 och några har inte den installerade analystoolpacken?

Is där ett alternativ som jag kan använda för fyrana, fodrar nedanfört?
-------------------------------------------------------------------------------------------------------------------

Range (”AS2”). Formel =

Range (”A47” ”för =EOMONTH (AL2,1) ”). Formel = ”=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:

för R23C13) ”-------------------------------------------------------------------------------------------------------------------den pröva förmiddagen för



What I att uppnå är att den cell AS2 är avancerad vid plus 1 månad då spänner A47-A58 listar jumbon som 12 inklusive månader strömmånaden spänner också D47: D58 ger de sammanlagda funktionsdugliga dagarna för varje av dessa months.

Thanks i advance
Sq




 > för 
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:
" codeBody " " >Private underMonthPlus1 för class= " för
" klar "

Svar : EOMONTH-, EDATE- & NETWORKDAYS-alternativ 

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:

Fungera Networkdaysvba (startDate så dubbelt, endDate som daterar, valfria ferier som Variant) som heltal
    Dunkelt I som heltal
    Dunkel tmp som heltal
    Dunkel avskiljare som daterar, dtStart som daterar
    
    startDate = knipa (startDate)
    tmp = ((endDate - startDate + 1) \ 7) * 5 'hela arbetsveckor
    dtStart = startDate + (tmp * 7/5) 'flyttning att vara vecka
    För avskiljare = dtStart till endDate
        Om vardag (avskiljare som, är vbMonday) <>= H därefter
                tmp = tmp - 1
            Avsluta om
        Därefter
    Avsluta om
    Networkdaysvba = tmp
Avsluta fungerar

Fungera EOMonthVBA (startDate så dubbelt, månader som Long) som daterar
    startDate = knipa (startDate)
    EOMonthVBA = DateAdd (”M”, månader + 1, startDate - dagen (startDate) + 1) - 1
Avsluta fungerar

Fungera EDateVBA (startDate så dubbelt, månader som Long) som daterar
    startDate = knipa (startDate)
    EDateVBA = DateAdd (”M”, månader, startDate)
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us