Task.ActualOvertimeWork 屬性 (Project)
取得實際加班工時 (以分鐘為單位) 的工作。 唯讀 Variant 。
語法
expression。 ActualOvertimeWork
表達 代表 Task 物件的變數。
範例
下列範例會說明加班成本,其方式為計算包含加班工時在內的總任務成本,以及分解每項任務的個別成本。
Sub PriceOfOvertime()
Dim T As Task
Dim Price As Variant
Dim 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 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應