Расчет индекса календарного плана и затрат в Microsoft Project

Сводка

Microsoft Project не вычисляет индекс производительности календарного плана или индекс производительности затрат. В этой статье содержится образец макроса, который вычисляет ИОКП и ИПЭ для каждой задачи в проекте.

ПРИМЕЧАНИЕ: ИОКП — это отношение трудоемких работ, запланированных к запланированным (БСВП и БСЗ). ИЦП — это отношение бюджетных затрат к фактическим затратам (БСЗ/ФСЗ).

Дополнительные сведения

ПРИМЕЧАНИЕ: Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации без гарантии, выраженной или подразумеваемой. В частности, это подразумевает подразумеваемые гарантии пригодности для купли-связи или пригодности для определенной цели. В этой статье предполагается, что вы знакомы с языком программирования, который демонстрируется, и средствами, используемыми для создания и от debug procedures. Специалисты службы поддержки Майкрософт могут объяснить функциональные возможности конкретной процедуры, но не будут изменять эти примеры, чтобы предоставить дополнительные функции или процедуры по построению с учетом ваших конкретных требований. 

Следующий макрос вычисляет индекс производительности календарного плана и индекс производительности затрат (CPI) для каждой задачи и помещает результаты в числовые поля. ИОКП для каждой задачи равен БСВП или БСЗ. ИЦП для каждой задачи равен БСВП или ФСВП.

Чтобы создать этот макрос, выполните следующие действия:

1. В меню Инструменты наведите указатель на пункт Макрос, а затем выберите Макрос. В Project 2010 перейдите на вкладку Вид и нажмите кнопку Макрос.

2. В поле Имя макроса введите "CalcSPI_CPI", а затем нажмите кнопку Создать, чтобы открыть редактор Visual Basic макроса.

3. Создайте макрос, введя следующий подгрудин:

   
   Sub CalcSPI_CPI() Dim t As Task
   Для каждого t в ActiveProject.Tasks
     If Not Is Nothing Then
       Если t.BCWS <> 0 Then
           t.Number10 = t.BCWP / t.BCWS 'это вычисляет SPI
       End If
       Если t.ACWP <> 0 Then
           t.Number11 = t.BCWP / t.ACWP 'это вычисляет ИП
       End If
     End If
   Далее t
   End Sub
   
   NOTE: в этом примере используются поля "Число10" и "Число11". Можно использовать любое из других доступных числовых и буквино-числовых полей. Для форматирование результатов можно также использовать форматирование.

4. В редакторе Visual Basic выберите в меню Файл пункт Закрыть и вернуться к Microsoft Project.

5. В Microsoft Project меню Инструменты найдите пункт Макрос ивыберите пункт Макрос. В Project 2010 перейдите на вкладку Вид и нажмите кнопку Макрос.

6. В списке макроов выберите CalcSPI_CPI. Щелкните Выполнить.

Чтобы просмотреть результаты макроса, вставьте поле "Число10" и "Число11" в таблицу задач. Для этого выполните указанные ниже действия.

1. В меню Вставка выберите пункт Столбец.
   
   В Project 2010 перейдите на вкладку Формат и нажмите кнопку Вставить столбец.

2. В списке Имя поля выберите число10.

3. Нажмите кнопку ОК.

4. Повторите шаги 1–3 для поля "Число11".