Task.RemainingOvertimeCost 属性 (Project)

获取此任务的剩余加班成本。 只读变体。

语法

expression。 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。