Вопрос : Алтернатива EOMONTH, EDATE & NETWORKDAYS

Hi,

Using прикрепленное Кодий я получаю #NAME ошибки? на некоторых машинах. Я думаю я pinpointed оно вниз к факту, котор варианты первенствуют ряд от 2000 - 2003 sp3 и некоторые не имеют установленное toolpack анализа?

Is там алтернатива, котор я могу использовать для 4 линий ниже?
-------------------------------------------------------------------------------------------------------------------

Range («AS2»). Формула = «

Range =EOMONTH (AL2,1) «(«A47»). Формула = «=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:

R23C13) «-------------------------------------------------------------------------------------------------------------------



What, котор я пытаюсь достигнуть что та клетка AS2 выдвинута положительной величиной 1 месяц после этого колебается списки A47-A58 последние 12 месяца включая в настоящее время месяц также колебаются D47: D58 дает полные рабочих дни для каждого из этих
Sq




 months.

Thanks заранее class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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 Sub MonthPlus1 " class= " id= " codeSnippet779726
class=

Ответ : Алтернатива EOMONTH, EDATE & 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:

Функция Networkdaysvba (startDate как двойник, endDate как дата, опционные праздники как вариант) как интежер
    Затемните I как интежер
    Затемните tmp как интежер
    Затемните dt как дата, dtStart как дата
    
    startDate = починка (startDate)
    tmp = ((endDate - startDate + недели работы 1) \ 7) * 5 'все
    dtStart = startDate + (tmp * 7/5) 'движение к последней неделе
    Для dt = dtStart к endDate
        Если будний день (dt, vbMonday) <>= h после этого
                tmp = tmp - 1
            Закончитесь если
        Затем
    Закончитесь если
    Networkdaysvba = tmp
Функция конца

Функция EOMonthVBA (startDate как двойник, месяцы как длиной) как дата
    startDate = починка (startDate)
    EOMonthVBA = DateAdd («m», месяцы + 1, startDate - день (startDate) + 1) до 1
Функция конца

Функция EDateVBA (startDate как двойник, месяцы как длиной) как дата
    startDate = починка (startDate)
    EDateVBA = DateAdd («m», месяцы, startDate)
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us