Поделиться через


Объект PayRates (Project)

Содержит коллекцию объектов PayRate .

Пример

Использование объекта PayRate

Используйте PayRates (Index ), гдеIndex — это номер индекса ставки оплаты или дата, для которой возвращаются ставки, чтобы вернуть один объект PayRate . В следующем примере возвращается стандартная ставка оплаты для первой строки ставок Тамары в таблице ценовых ставок 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 . В следующем примере в таблицу затрат Тамары "C" добавляется строка с датой вступления в силу 1 сентября 2012 г., стандартной ставкой 40,00 долл. США в час, ставкой сверхурочных 60,00 долл. США в час и стоимостью использования в размере 0 долл. США.

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

Методы

Имя
Add

Свойства

Имя
Application
Count
Item
Parent

См. также

Объектная модель Project

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.