Objeto Months (Project)
Contém uma coleção de objetos Month.
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 .
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
Nome |
---|
Aplicativo |
Count |
Item |
Parent |
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.