Question : Alternative d'EOMONTH, d'EDATE et de NETWORKDAYS

Bonjour, le

Using le code joint j'obtiens le #NAME d'erreur ? sur quelques machines. Je pense que je l'ai indiqué exactement vers le bas au fait que les les versions de excellent la gamme de 2000 - 2003 sp3 et certains n'ont-ils pas le toolpack d'analyse installé ?

Is là une alternative que je peux employer pour les quatre lignes ci-dessous ?
-------------------------------------------------------------------------------------------------------------------

Range (« AS2 »). Formule =

Range (« A47 » du « =EOMONTH (AL2,1) « ). Formule = « =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) « -------------------------------------------------------------------------------------------------------------------le



What que j'essaye de réaliser est que cette cellule AS2 est avancée par plus 1 mois s'étendent alors les listes A47-A58 les 12 derniers mois comprenant le mois courant s'étendent également D47 : D58 donne tous les jours ouvrables pour chacun ces de
Sq




 de months.

Thanks à l'avance class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet779726 de
class= de

Réponse : Alternative d'EOMONTH, d'EDATE et 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 :

Fonction Networkdaysvba (startDate en tant que le double, l'endDate comme date, vacances facultatives comme variante) comme nombre entier
    Obscurcir I comme nombre entier
    Obscurcir le tmp comme nombre entier
    Obscurcir le décollement comme date, dtStart comme date
    
    startDate = difficulté (startDate)
    tmp = ((endDate - startDate + semaines entières de travail de 1) \ 7) * 5 '
    dtStart = startDate + (tmp * 7/5) 'mouvement à la semaine dernière
    Pour décollement = dtStart à l'endDate
        Si jour de la semaine (décollement, vbMonday) <>= h alors
                tmp = tmp - 1
            Finir si
        Après
    Finir si
    Networkdaysvba = tmp
Fonction de fin

Fonction EOMonthVBA (startDate en tant que le double, mois en tant que longtemps) comme date
    startDate = difficulté (startDate)
    EOMonthVBA = DateAdd (« m », mois + 1, startDate - jour (startDate) + 1) - 1
Fonction de fin

Fonction EDateVBA (startDate en tant que le double, mois en tant que longtemps) comme date
    startDate = difficulté (startDate)
    EDateVBA = DateAdd (« m », mois, startDate)
Fonction de fin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us