PayRates object (Project)
Contains a collection of PayRate objects.
Example
Using the PayRate Object
Use PayRates (Index ), whereIndex is the pay rate index number or date for which to return the rates in effect, to return a single PayRate object. The following example returns the standard pay rate for Tamara's first row of rates in cost rate table C.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates(1).StandardRate
Using the PayRates Collection
Use the PayRates property to return a PayRates collection. The following example lists the standard pay rates for all the cost rate tables of the resource in the active cell.
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
Use the Add method to add a PayRate object to the PayRates collection. The following example adds a line to Tamara's cost rate table "C" with an effective date of September 1, 2012, a standard rate of $40.00 per hour, an overtime rate of $60.00 per hour, and a per-use cost of $0.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"
Methods
| Name |
|---|
| Add |
Properties
| Name |
|---|
| Application |
| Count |
| Item |
| Parent |
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.