SOunds like you are trying to build the "S" curve for BCWS (PV).
You can use the code below...
Mark
' ' I work in units of hours
'
For Each Activity In TheProject ' ignore blank tasks
If Not (Activity Is Nothing) Then 'Check to see if task
exists and that is not a external task.
If Not Activity.ExternalTask Then ' ignore external tasks
If Not Activity.Summary Then ' Ignore summary tasks
'
' Accumulate to-date planned value PV or BCWP
'
If Activity.BaselineFinish < CalculationDate Then '
calculation date is your "status date"
ToDateBaselinePlannedValueHours =
ToDateBaselinePlannedValueHours + _
(Activity.BaselineWork / gblMinutesPerHour)
End If
End If ' summary task
End If ' external task
End If ' nothing
Next Activity
--
_________________________________________________________
Mark Durrenberger, PMP
Principal, Oak Associates, Inc,
www.oakinc.com
"Advancing the Theory and Practice of Project Management"
________________________________________________________
The nicest thing about NOT planning is that failure
comes as a complete surprise and is not preceded by
a period of worry and depression.
- Sir John Harvey-Jones
