Objeto Days (Project)
Contém uma coleção de objetos Day.
Exemplo
Usando o objeto Days Collection
Use **Days(**Index), emque Index é o número do índice do dia ou a constante PjWeekday , para retornar um único objeto Day . 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
Propriedades
Nome |
---|
Aplicativo |
Count |
Item |
Parent |
Confira também
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de