Task.ActualOvertimeCost プロパティ (Project)

タスクの実績超過コストを取得します。 読み取り専用のバリアント型 (Variant) の値。

構文

式。 ActualOvertimeCost

式Task オブジェクトを表す変数。

例

次の使用例は、超過作業時間が設定されているタスクの総コストを計算して、超過時間のコストを示します。また、タスクごとのコスト詳細も表示します。

Sub PriceOfOvertime() 
 Dim T As Task 
 Dim Price As Variant, Breakdown As String 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 If T.ActualOvertimeWork <> 0 Then 
 Price = Price + T.ActualOvertimeCost 
 Breakdown = Breakdown & T.Name & ": " & _ 
 ActiveProject.CurrencySymbol & _ 
 T.ActualOvertimeCost & vbCrLf 
 End If 
 End If 
 Next T 
 
 If Breakdown <> "" Then 
 MsgBox Breakdown & vbCrLf & "Total: " & _ 
 ActiveProject.CurrencySymbol & Price 
 End If 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。