Propriété Resource.OvertimeRate (Project)
Obtient ou définit le taux des heures supplémentaires d’une ressource. Variant en lecture/écriture.
Syntaxe
expression. OvertimeRate
Expression Variable qui représente un objet Resource .
Remarques
La propriété OvertimeRate ne renvoie aucune information utile pour les ressources matérielles. La définition d’une valeur renvoie une erreur récupérable (code d’erreur 1101) lorsque cette propriété est appliquée à des ressources matérielles.
Exemple
L’exemple suivant montre comment définir le taux actif des heures supplémentaires pour chaque ressource du projet actif à 1,5 fois son taux standard.
Sub SetOverTimeRate()
Dim R As Resource ' Resource object used in For Each loop
Dim StdRate As Double ' Numeric value of resource's standard rate
Dim Count As Integer ' Counter used in For Next loop
Dim FirstNumber As Integer ' Position of the first number
For Each R In ActiveProject.Resources
' Find the first character that is a number
For Count = 1 To Len(R.StandardRate)
If IsNumeric(Mid(R.StandardRate, Count, 1)) Then
FirstNumber = Count - 1
Exit For
End If
Next Count
' Strip off any leading currency symbol and then use the
' Val function to ignore any characters that follow the number
StdRate = Val(Right$(R.StandardRate, Len(R.StandardRate) - FirstNumber))
' Set the overtime rate
R.OvertimeRate = 1.5 * StdRate
Next R
End Sub
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.