Objeto Day (Project)

Artigo
04/07/2023

Representa um dia de um mês. Objeto Day é um membro da coleção dias.

Exemplo

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

Métodos

Nome
Default

Propriedades

Nome
Application
Calendário
Contagem
Índice
Nome
Responsável
Shift1
Shift2
Shift3
Shift4
Shift5
Working

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.

Compartilhar via