Свойство Assignment.ActualCost (Project)

Получает или устанавливает фактическую стоимость задания. Для чтения и записи, Variant.

Синтаксис

выражение. ActualCost

выражение Переменная, представляющая объект назначения .

Примечания

Свойство Фактические затраты можно установить для объектов Назначение и Задача (но не для суммарных задач), если на вкладке График диалогового окна Параметры проекта снят флажок Фактические затраты всегда вычисляются по проверкаГрафик.

Фактические затраты также доступны для задач и ресурсов. Если установлен флажок «Фактические затраты всегда вычисляются по проверке проекта», Project рассчитывает текущие фактические затраты по назначению на основе таблиц норм затрат ресурсов и фактических трудозатрат, выполненных назначенным ресурсом. Для программного доступа к таблицам норм затрат ресурсов используйте коллекцию CostRateTables .

Пример

В следующем примере пользователю предлагается ввести фактические затраты на выполнение задач без учета ресурсов в активном проекте. Предполагается, что поле «Фактические затраты всегда вычисляются по проверке проекта» снято.

Sub GetActualCostsForTasks() 
 
 Dim Entry As String ' User input 
 Dim T As Task ' Task object used in For Each loop 
 
 ' Count the resources of each task in the active project. 
 For Each T In ActiveProject.Tasks 
 
 ' If a task has no resources, then prompt user for actual cost. 
 If T.Resources.Count = 0 Then 
 
 Do While 1 
 Entry = InputBox$("Enter the cost for " & T.Name & ":") 
 
 ' Exit loop if user enters number or clicks Cancel. 
 If IsNumeric(Entry) Or Entry = Empty Then 
 Exit Do 
 
 ' User didn't enter a number; tell user to try again. 
 Else 
 MsgBox ("You didn't enter a number; try again.") 
 End If 
 Loop 
 
 ' If user didn't click Cancel, assign actual cost to task. 
 If Not StrComp(Entry, Empty, 1) = 0 Then T.ActualCost = Entry 
 End If 
 
 Next T 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.