Compartir a través de

Propiedad Month.Working (Project)

  • Artículo

True si cualquiera de los días del mes es un día laborable. Boolean de lectura y escritura.

Sintaxis

expresión. Working

Expresión Variable que representa un objeto Month .

Ejemplo:

En el siguiente ejemplo, se convierten los meses de junio, julio y agosto en meses no laborables para los recursos del grupo "Student" del proyecto activo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.