Objeto Month (Project)
Representa um mês em um ano. O objeto Month é um membro da coleção meses.
Usando o objeto 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 . 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 |
---|
Default |
Nome |
---|
Application |
Calendário |
Contagem |
Days |
Índice |
Nome |
Responsável |
Shift1 |
Shift2 |
Shift3 |
Shift4 |
Shift5 |
Working |
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.