Объект года (проект)

Представляет год в календаре проекта. Объект "Год " входит в коллекцию "Годы ".

Примечания

Коллекция «Годы» в Project начинается в 1984 году и заканчивается в 2149 году. В предыдущих версиях Project планирование может выполняться с 1984 по 2049 год.

Примеры

Использование объекта "год"

Используйте поле Годы ( Индекс), где Индекс — это порядковый номер года, для возврата одного объекта Year . В следующем примере подсчитывается количество рабочих дней в сентябре 2012 г. для каждого выбранного ресурса.

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

Использование коллекции "Годы"

Используйте свойство Years для возврата коллекции Years . В следующем примере перечислены все годы в календаре активного проекта.

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

На рисунке 1 показаны результаты макроса CountYears .

Рис. 1. Получение списка доступных лет

Методы

Имя
Default

Свойства

Имя
Application
Calendar
Count
Index
Months
Name
Parent
Shift1
Shift2
Shift3
Shift4
Shift5
Working

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.