代表一年一個月。 Month 物件是 Months 集合的成員。
範例
使用 Month 物件
使用 Monthly (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 集合物件
使用 Months 屬性可傳回 Months 集合。 下列範例會計算 2012年中的月數。
ActiveProject.Calendar.Years(2012).Months.Count
方法
| 名稱 |
|---|
| Default |
屬性
| 名稱 |
|---|
| Application |
| Calendar |
| 數目 |
| 日 |
| Index |
| Name (名稱) |
| Parent |
| Shift1 |
| Shift2 |
| Shift3 |
| Shift4 |
| Shift5 |
| Working |
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。