TimeScaleData Method
Returns timephased information for an assignment, resource, or task.
Syntax
expression .TimeScaleData(StartDate, EndDate, Type, TimeScaleUnit, Count)
expression
Required. An expression that returns an object in the Applies To list.
StartDate Required Variant. The start date for the timephased data. If the start date falls within an interval, it is "rounded" to the start of the interval. For example, if TimeScaleUnit was pjTimescaleWeeks and StartDate specified a Wednesday, it would be rounded to the preceding Monday (assuming the work week started on a Monday).
EndDate Required Variant. The end date for the timephased data. If the end date falls within an interval, it is "rounded" to the end of the interval.
Type Optional Long. The type of timephased data. The default value is pj expression TimescaledWork, where expression is Assignment, Resource, or Task.
PjAssignmentTimescaledData
| pjAssignmentTimescaledActualCost | pjAssignmentTimescaledCumulativeCost |
| pjAssignmentTimescaledActualOvertimeWork | pjAssignmentTimescaledCumulativeWork |
| pjAssignmentTimescaledActualWork | pjAssignmentTimescaledCV |
| pjAssignmentTimescaledACWP | pjAssignmentTimescaledOverallocation |
| pjAssignmentTimescaledBaseline1-10Cost | pjAssignmentTimescaledOvertimeWork |
| pjAssignmentTimescaledBaseline1-10Work | pjAssignmentTimescaledPeakUnits |
| pjAssignmentTimescaledBaselineCost | pjAssignmentTimescaledPercentAllocation |
| pjAssignmentTimescaledBaselineWork | pjAssignmentTimescaledRegularWork |
| pjAssignmentTimescaledBCWP | pjAssignmentTimescaledSV |
| pjAssignmentTimescaledBCWS | pjAssignmentTimescaledWork |
| pjAssignmentTimescaledCost |
|
| pjResourceTimescaledActualCost | pjResourceTimescaledCumulativeWork |
| pjResourceTimescaledActualOvertimeWork | pjResourceTimescaledCV |
| pjResourceTimescaledActualWork | pjResourceTimescaledOverallocation |
| pjResourceTimescaledACWP | pjResourceTimescaledOvertimeWork |
| pjResourceTimescaledBaseline1-10Cost | pjResourceTimescaledPeakUnits |
| pjResourceTimescaledBaseline1-10Work | pjResourceTimescaledPercentAllocation |
| pjResourceTimescaledBaselineCost | pjResourceTimescaledRegularWork |
| pjResourceTimescaledBaselineWork | pjResourceTimescaledRemainingAvailability |
| pjResourceTimescaledBCWP | pjResourceTimescaledSV |
| pjResourceTimescaledBCWS | pjResourceTimescaledUnitAvailability |
| pjResourceTimescaledCost | pjResourceTimescaledWork |
| pjResourceTimescaledCumulativeCost | pjResourceTimescaledWorkAvailability |
| pjTaskTimescaledActualCost | pjTaskTimescaledCumulativePercentComplete |
| pjTaskTimescaledActualFixedCost | pjTaskTimescaledCumulativeWork |
| pjTaskTimescaledActualOvertimeWork | pjTaskTimescaledCV |
| pjTaskTimescaledActualWork | pjTaskTimescaledCVP |
| pjTaskTimescaledACWP | pjTaskTimescaledFixedCost |
| pjTaskTimescaledBaseline1-10Cost | pjTaskTimescaledOverallocation |
| pjTaskTimescaledBaseline1-10Work | pjTaskTimescaledOvertimeWork |
| pjTaskTimescaledBaselineCost | pjTaskTimescaledPercentComplete |
| pjTaskTimescaledBaselineWork | pjTaskTimescaledRegularWork |
| pjTaskTimescaledBCWP | pjTimescaledSPI |
| pjTaskTimescaledBCWS | pjTaskTimescaledSV |
| pjTaskTimescaledCost | pjTaskTimescaledSVP |
| pjTaskTimescaledCPI | pjTaskTimescaledWork |
| pjTaskTimescaledCumulativeCost |
|
TimeScaleUnit Optional Long. Can be one of the following PjTimescaleUnit constants: pjTimescaleYears, pjTimescaleQuarters, pjTimescaleMonths, pjTimescaleWeeks, pjTimescaleDays, pjTimescaleHours, pjTimescaleMinutes. The default value is pjTimescaleWeeks.
Count Optional Long. The number of timescale units to group together. The default value is 1.
Remarks
The TimeScaleData method should be used instead of the TimeScaledData method, which is hidden by default in the object browser.
The following example displays the number of hours of work per day for a resource during the first full week in October. It assumes a resource view is the active view.
Sub WorkHoursPerDay()
Dim TSV As TimeScaleValues, HowMany As Long
Dim HoursPerDay As String
Set TSV = ActiveCell.Resource.TimeScaleData("10/7/02", "10/11/02", _
TimescaleUnit:=pjTimescaleDays)
For HowMany = 1 To TSV.Count
If TSV(HowMany).Value = "" Then
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": 0 hours" & vbCrLf
Else
HoursPerDay = HoursPerDay & TSV(HowMany).StartDate & " - " & _
TSV(HowMany).EndDate & ": " & TSV(HowMany).Value / 60 & _
" hours" & vbCrLf
End If
Next HowMany
MsgBox HoursPerDay
End Sub