Months Collection Object (Project)
Contains a collection of Month objects.
Remarks
Use Months ( Index ), where Index is the month index number, month name, or PjMonth constant, to return a single Month object.
Example
Using the Months Collection Object
The following example counts the number of working days in each month of 2010 for each selected resource.
Dim R As Resource
Dim D As Integer, M As Integer, WorkingDays As Integer
For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2010)
For M = 1 To .Months.Count
WorkingDays = 0
For D = 1 To .Months(M).Days.Count
If .Months(M).Days(D).Working = True Then
WorkingDays = WorkingDays + 1
End If
Next D
MsgBox "There are " & WorkingDays & " working days in " & _
.Months(M).Name & " for " & R.Name & "."
Next M
End With
Next R
Using the Months Collection
Use the Months property to return a Months collection. The following example counts the number of months in 2010.
ActiveProject.Calendar.Years(2010).Months.Count