Project) (Month 对象

表示一年中的月份。 月 对象是集合的成员 数月 。

示例

使用 Month 对象

使用 Month (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

使用 Months 集合

使用 月 属性返回 月 集合。 下面的示例计算 2012年中的月数。

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

方法

属性

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。