Свойство Task.RemainingOvertimeCost (Project)

Возвращает оставшуюся стоимость сверхурочных для задачи. Только для чтения, Variant.

Синтаксис

выражение. RemainingOvertimeCost

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

Пример

В следующем примере возвращается оставшаяся стоимость сверхурочных для каждой задачи в активном проекте.

Sub ReturnOvertimeCost() 
 Dim T As Task ' Task object used in For Each loop 
 Dim Results As String 
 
 For Each T In ActiveProject.Tasks 
 Results = Results & T.Name & ": " & ActiveProject.CurrencySymbol & _ 
 T.RemainingOvertimeCost & ListSeparator & " " 
 Next T 
 
 Results = Left$(Results, Len(Results) - Len(ListSeparator & " ")) 
 
 MsgBox Results 
 
End Sub

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

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