Objet PayRates (Project)

Article
04/07/2023

Contient une collection d’objets PayRate .

Exemple

Utilisation de l'objet PayRate

Utilisez PayRates (Index ), oùIndex est le numéro d’index de taux de rémunération ou la date pour laquelle retourner les taux en vigueur, pour renvoyer un seul objet PayRate . L'exemple suivant montre comment renvoyer le taux de salaire standard pour la première ligne de taux de Tamara dans la table des taux de coûts C.

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

Utilisation de la collection PayRates

Utilisez la propriété PayRates pour renvoyer une collection PayRates . L’exemple suivant montre comment répertorier les taux de salaire standard pour toutes les tables des taux de coûts de la ressource située dans la cellule active.

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

Utilisez la méthode Add pour ajouter un objet PayRate à la collection PayRates . L’exemple suivant ajoute une ligne à la table de taux de coût de Tamara « C » avec une date d’entrée en vigueur du 1er septembre 2012, un taux standard de 40 ,00 $ l’heure, un taux d’heures supplémentaires de 60 ,00 $ par heure et un coût par utilisation de 0 $.

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

Méthodes

Nom
Add

Propriétés

Nom
Application
Count
Élément
Parent

Voir aussi

Modèle objet Project

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.