Resource.PayRates 属性 (Project)

获取一个 PayRates 集合,代表不同的付薪比率上的资源的成本费率表。 只读的 PayRates

语法

expressionPayRates

表达 一个代表 Resource 对象的变量。

备注

对于 资源 对象,则 PayRates 属性返回成本费率表 A,默认表的付薪比率。

示例

以下示例列出了活动单元格中资源的所有成本费率表的标准工资费率。

Sub ListPayRates() 
 Dim CRT As CostRateTable, 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 & " (Effective " & PR.EffectiveDate & _ 
 ")" & vbCrLf 
 Next PR 
 Next CRT 
 
 MsgBox Rates 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。