Objeto Dias (Projeto)
Contém uma coleção de objetos Day.
Usando o objeto Days Collection
Utilize **Dias(**Índice), em queÍndice é o número do índice do dia ou constante PjWeekday , para devolver um único objeto Dia . O exemplo a seguir conta o número de dias úteis no mês de setembro de 2002 para cada recurso selecionado.
Dim R As Resource, D As Integer, WorkingDays As Integer
For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2002).Months(pjSeptember)
For D = 1 To .Days.Count
If .Days(D).Working = True Then
WorkingDays = WorkingDays + 1
End If
Next D
End With
MsgBox "There are " & WorkingDays & " working days in " _
& R.Name & "'s calendar."
Next R
Obtendo o objeto Days Collection.
Use a propriedade Days para retornar uma coleção Days. O exemplo a seguir conta o número de dias do mês de setembro de 2002.
MsgBox ActiveProject.Calendar.Years(2006).Months(pjNovember).Days.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.