Objeto Day (Project)

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

Exemplo

Usando o objeto Day

Utilize Dias (Índice ), em queÍndice é o número de í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 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

Propriedades

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.