次の方法で共有

Resource.OvertimeRate プロパティ (Project)

  • [アーティクル]

取得またはリソースの超過単価を設定します。 値の取得と設定が可能なバリアント型 (Variant) の値です。

構文

式。 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 のサポートおよびフィードバックを参照してください。