Months object (Project)
Contains a collection of Month objects.
Use Months (Index ), whereIndex is the month index number, month name, or PjMonth constant, to return a single Month object.
Using the Months Collection 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.
ActiveProject.Calendar.Years(2012).Months.Count
Name |
---|
Application |
Count |
Item |
Parent |
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.