通过

Resource.OvertimeRate 属性 (Project)

  • 项目

获取或设置资源的加班费率。 读/写 Variant。

语法

expression。 OvertimeRate

表达 一个代表 Resource 对象的变量。

备注

OvertimeRate 属性不返回任何有意义的信息，对于材料资源。 设置的值返回一个可捕获的错误 (错误代码为 1101年) 应用于材料资源时。

示例

下面的示例将活动项目中每个资源的当前加班费率均设置为其标准费率的 1.5 倍。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。