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