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

 PjResourceTimescaledData

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

 PjTaskTimescaledData

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.

Example

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