Project (的 PayRates 物件)

包含 PayRate 物件的集合。

範例

使用 PayRate 物件

使用 PayRates (Index ) ,其中Index 是要傳回有效費率的支付率索引編號或日期,可傳回單一 PayRate 物件。 下列範例會傳回 Tamara 的第一列率的標準工資率在成本比率表 c。

ActiveProject.Resources("Tamara").CostRateTables("C").PayRates(1).StandardRate

使用 PayRates 集合

使用 PayRates 屬性,可以傳回 PayRates 集合。 下面範例列出使用中儲存格中資源的所有成本比率表之標準工資率。

Dim CRT As CostRateTable
DIM PR As PayRate
Dim Rates As String

For Each CRT In ActiveCell.Resource.CostRateTables
    For Each PR In CRT.PayRates
        Rates = Rates & "CostRateTable " & CRT.Name & ": " & PR.StandardRate & vbCrLf
    Next PR
Next CRT
    
MsgBox Rates

使用 Add 方法將 PayRate 物件新增至 PayRates 集合。 下列範例會將一條線新增至 Tamara 的成本比率表每小時、 每小時 $60.00 加班工資率和每次使用成本 $0"C"具有有效的日期 2012 年 9 月 1 日的 $40.00 標準工資率。

ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"

方法

名稱
Add

屬性

名稱
Application
數目
項目
Parent

另請參閱

Project 物件模型

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應