Objeto Day (Project)
Representa um dia de um mês. Objeto Day é um membro da coleção dias.
Usando o objeto Day
Use Dias (Índice ), 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 2008 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(2008).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
Usando a coleção Days
Use a propriedade Days para retornar uma coleção Days. O exemplo a seguir conta o número de dias úteis do mês de setembro de 2008.
ActiveProject.Calendar.Years(2008).Months(pjSeptember).Days.Count
Nome |
---|
Default |
Nome |
---|
Application |
Calendário |
Contagem |
Í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.