Свойство Task. Актуалкост (Project)Task.ActualCost property (Project)

Получает или задает фактические затраты для задачи.Gets or sets the actual cost for the task. Для чтения и записи, Variant.Read/write Variant.

СинтаксисSyntax

выражение.expression. ActualCost

Expression (выражение ) Переменная, представляющая объект Task .expression A variable that represents a Task object.

ПримечанияRemarks

Свойство актуалкост можно задать для объектов назначений и задач (но не для суммарных задач), если не установлен флажок фактические затраты всегда рассчитываются по проектам на вкладке Расписание диалогового окна Параметры проекта .The ActualCost property can be set for Assignment and Task objects (but not for summary tasks) if the Actual costs are always calculated by Project check box is cleared on the Schedule tab of the Project Options dialog box.

Фактические затраты также доступны для ресурсов и назначений.Actual costs are also available for resources and assignments. Если установлен флажок фактические затраты всегда рассчитываются по проектам , Project вычисляет текущие фактические затраты для задачи из таблиц норм затрат ресурсов и фактические трудозатраты, для которых были выполнены назначенные задаче ресурсы.If the Actual costs are always calculated by Project check box is checked, Project calculates the current actual cost for the task from resource cost rate tables and the actual work that resources assigned to the task have completed. Для программного доступа к таблицам норм затрат ресурсов используйте коллекцию CostRateTables .For programmatic access to the resource cost rate tables, use the CostRateTables collection.

ПримерExample

В следующем примере пользователю запрашивается фактическая стоимость задач без ресурсов в активном проекте.The following example prompts the user for actual costs of tasks with no resources in the active project. Предполагается, что не установлен флажок фактические затраты всегда рассчитываются по проектам .It assumes that the Actual costs are always calculated by Project check box is cleared.

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

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.