Month 对象 (Project)
包含 Month 对象的集合。
使用 Month (Index ) ,其中Index 是月份索引号、月份名称或 PjMonth 常量,可返回单个 Month 对象。
使用 Months 集合对象
下面的示例对中每个选定资源 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
名称 |
---|
Application |
Count |
项目 |
Parent |
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。