Share via

CostRateTables Property

  • Article

Returns a CostRateTables collection representing the cost rate tables for the resource. Read-only.

Example

The following example lists the standard pay rates for all the cost rate tables of the resource in the active cell.

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

Applies to | Resource Object, Resources Collection Object

See Also | CostRateTable Object, CostRateTables Collection Object | CostRateTable Property | PayRates Property