Ler em inglês

Compartilhar via


Objeto Years (Project)

Contém uma coleção de objetos Year.

Comentários

A coleção Years no Project começa em 1984 e termina no 2149. Nas versões anteriores do projeto, agendamento pode executar de 1984 2049.

Exemplos

Usando o objeto Year

Use Years ( Index), em que Index é o número do índice do ano, para retornar um único objeto Year . O exemplo a seguir conta o número de dias úteis no mês de setembro de 2012 para cada recurso selecionado.

Dim r As Resource
Dim d As Integer
Dim workingDays As Integer
Dim theMonth As PjMonth

theMonth = pjSeptember

For Each r In ActiveSelection.Resources()
    workingDays = 0
    With r.Calendar.Years(2012).Months(theMonth)
        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 for month " & theMonth
Next r

Usando a coleção Years

Use a propriedade Years para retornar uma coleção Years. O exemplo a seguir lista todos os anos do calendário do projeto ativo.

Sub CountYears()
    Dim c As Long
    Dim temp As String
        
    For c = 1 To ActiveProject.Calendar.Years.Count
        temp = temp & ListSeparator & " " & _
            ActiveProject.Calendar.Years(c + 1983).Name
    Next c
            
    MsgBox Right$(temp, Len(temp) - Len(ListSeparator & " "))
End Sub

A Figura 1 mostra os resultados da macro CountYears.

Figura 1. Obtendo a lista de anos disponíveis

Years available for project planning

Propriedades

Confira também

Modelo de objeto do projeto

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.