Objet PayRates (Project)
Contient une collection d’objets PayRate .
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"
Nom |
---|
Add |
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.