Объект Year (Project)
Представляет год в календаре проекта. Объект Year является членом коллекции Years .
Коллекция Years в Project начинается в 1984 году и заканчивается в 2149 году. В предыдущих версиях Project планирование может выполняться с 1984 по 2049 год.
Использование объекта Year
Используйте Years ( Index), где Index — это номер индекса года, чтобы вернуть один объект 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 для возврата коллекции 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 |
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.