Month Object (Project)
Represents a month in a year. The Month object is a member of the Months collection.
Using the Month Object
Use Months ( Index ), where Index is the month index number, month name, or PjMonth constant, to return a single Month object. The following example counts the number of working days in each month of 2012 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(2012) 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 2012.