Share via

Years Collection Object

  • Article
Project Developer Reference

Contains a collection of Year objects.

Remarks

The Years collection in Project begins at 1984 and ends at 2049.

Example

Using the Year Object

Use Years(Index), where Index is the year index number, to return a single Year object. The following example counts the number of working days in the month of September 2002 for each selected resource.

Visual Basic for Applications 
  Dim R As Resource, D As Integer, WorkingDays As Integer

For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2002).Months(pjSeptember)
For D = 1 To .Days.Count
If .Days(D).Working = True Then
WorkingDays = WorkingDays + 1
End If
Next D
End With
MsgBox "There are " & WorkingDays & " working days in " _
& R.Name & "'s calendar."
Next R

Using the Years Collection

Use the Years property to return a Years collection. The following example lists all the years in the calendar of the active project.

Visual Basic for Applications 
  Dim C As Long, Temp As String
    
For C = 1 To ActiveProject.Calendar.Years.Count
    Temp = Temp & ListSeparator & " " & _
        ActiveProject.Calendar.Years(C + 1983).Name
Next C
        
MsgBox Right$(Temp, Len(Temp) - Len(ListSeparator & " "))

See Also