formular in standart cost rate field of work resources?

[Riko Wichmann]

Dear all,

is it possible to use a formular to calculate the standard cost rate for
a work resource?

We plan with a standard rate of x Euro in the year 2008, this rate is
supposed to increase by 1.5% per year due to inflation (both X and 1.5%
are "political" values).

Of course, I could define define per resource the proper dates with the
corresponding rate, but with many resources in the projects this is
slave work. Much mor convenient and less error prone would be the
possibility to enter someting like

rate = (1.015)^year-2008 * x

Is that at all possible?
I fear not, but maybe a macro can fill those fields properly ....

Thanks,

Riko

MS Project 2007 Enterprise

 

[Marc Soester [MVP]]

Hi Riko,

I would recommend using the functionality that Project SErver provides and
that you described. I know that may be "slave work" but the best approach I
believe. As stated you could use macros to update your rate. I cannot see any
other way then using what Project provides.
Thanks
Marc

 

[Riko Wichmann]

Just to follow-up on this, after reading a brief VBA tutorial, I hacked
out a few lines of code, which do exactly what I needed. Maybe not
elegant, but works

--------------------------------

Sub FillCostRates()

Dim RATES(10) As String
Dim DATES(10) As String

Dim MyRes As Resource
Dim i As Integer

' define rates and dates as strings here

RATES(1) = "81,60 k€/y"
RATES(2) = "84,05 k€/y"
RATES(3) = "86,57 k€/y"
RATES(4) = "89,17 k€/y"
RATES(5) = "91,84 k€/y"
RATES(6) = "94,60 k€/y"
RATES(7) = "97,44 k€/y"
RATES(8) = "100,36 k€/y"
RATES(9) = "103,37 k€/y"

DATES(1) = "01/01/07"
DATES(2) = "01/01/08"
DATES(3) = "01/01/09"
DATES(4) = "01/01/10"
DATES(5) = "01/01/11"
DATES(6) = "01/01/12"
DATES(7) = "01/01/13"
DATES(8) = "01/01/14"
DATES(9) = "01/01/15"


' loop over all resources in project
' check if work resource (type = 0)
' set the 9 rates and effective dates defined above
' fill only cost rate table 'A' ... what do the others do?

For Each MyRes In ActiveProject.Resources
If MyRes.Type = 0 Then
For i = 1 To 9
MyRes.CostRateTables("A").PayRates.Add DATES(i), RATES(i)
Next i
End If
Next MyRes

End Sub


Cheers,

Riko