Объект "Месяцы" (проект)

Содержит коллекцию объектов Month .

Примечания

Используйте Months (Index ), гдеIndex — это номер индекса месяца, название месяца или константа PjMonth , чтобы вернуть один объект Month .

Пример

Использование объекта коллекции "Месяцы"

В следующем примере подсчитывается количество рабочих дней в каждом месяце 2012 г. для каждого выбранного ресурса.

Dim R As Resource 
Dim D As Integer, M As Integer, WorkingDays As Integer 
 
For Each R In ActiveSelection.Resources() 
    WorkingDays = 0 

    With R.Calendar.Years(2012) 
        For M = 1 To .Months.Count 
            WorkingDays = 0 
            For D = 1 To .Months(M).Days.Count 
                If .Months(M).Days(D).Working = True Then 
                    WorkingDays = WorkingDays + 1 
                End If 
            Next D 

            MsgBox "There are " & WorkingDays & " working days in " & _
                .Months(M).Name & " for " & R.Name & "." 
        Next M 
    End With 
Next R

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

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

ActiveProject.Calendar.Years(2012).Months.Count

Свойства

Имя
Application
Count
Item
Parent

См. также

Объектная модель Project

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

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