Days object (Project)
Contains a collection of Day objects.
Example
Using the Days Collection Object
Use **Days(**Index ), whereIndex is the day index number or PjWeekday constant, to return a single Day object. The following example counts the number of working days in the month of September 2002 for each selected resource.
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
Getting the Days Collection Object.
Use the Days property to return a Days collection. The following example counts the number of days in the month of September 2002.
MsgBox ActiveProject.Calendar.Years(2006).Months(pjNovember).Days.Count
Properties
| Name |
|---|
| Application |
| Count |
| Item |
| Parent |
See also
Support and feedback
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.