Compartir a través de

Objeto Months (Project)

  • Artículo

Contiene una colección de objetos Month.

Comentarios

Use Months (Index ), dondeIndex es el número de índice del mes, el nombre del mes o la constante PjMonth , para devolver un único objeto Month .

Ejemplo:

Usar el objeto de colección Months

En el ejemplo siguiente se cuenta el número de días laborables de cada mes de 2012 para cada recurso seleccionado.

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

Uso del conjunto Months

Utilice la propiedad Months para devolver una colección Months. En el ejemplo siguiente se cuenta el número de meses de 2012.

ActiveProject.Calendar.Years(2012).Months.Count

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Vea también

Modelo de objetos de Project

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.