Table of contents
TOC
Collapse the table of content
Expand the table of content

Month.Working Property (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

True if any day in the month is a working day. Read/write Boolean.

Syntax

expression. Working

expression A variable that represents a Month object.

Example

The following example makes June, July, and August nonworking months for resources in the "Student" group of the active project.

Sub GiveStudentsSummerOff() 

 Dim R As Resource ' Resource object used in For Each loop 
 Dim Y As Year ' Year object used in For Each loop 

 ' Look for resources in the "Student" group of the active project. 
 For Each R In ActiveProject.Resources 

 ' Give the summer off to resources in the "Student" group. 
 If R.Group = "Student" Then 
 For Each Y In R.Calendar.Years 
 Y.Months("June").Working = False 
 Y.Months("July").Working = False 
 Y.Months("August").Working = False 
 Next Y 
 End If 

 Next R 

End Sub
© 2018 Microsoft