Ler em inglês

Compartilhar via


Objeto Months (Project)

Contém uma coleção de objetos Month.

Comentários

Use Meses (Índice ), emque Index é o número do índice do mês, o nome do mês ou a constante PjMonth , para retornar um único objeto Month .

Exemplo

Usando o objeto Months Collection

O exemplo a seguir conta o número de dias úteis em cada mês de 2012 para cada recurso selecionado.

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

Usando a coleção Months

Use a propriedade meses para retornar uma coleção de meses. O exemplo a seguir conta o número de meses no 2012.

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

Propriedades

Confira também

Modelo de objeto do projeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.