專案) (Days 物件
包含 Day 物件的集合。
使用 Days 集合物件
使用 **Days (**Index) ,其中Index 是日索引編號或 PjWeekday 常數,可傳回單一 Day 物件。 下列範例會計算中針對每個選定資源 2002 年 9 月的工作天數目。
Dim R As Resource, D As Integer, WorkingDays As Integer
For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2002).Months(pjSeptember)
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."
Next R
取得 Days 集合物件。
使用 Days 屬性,可以傳回 Days 集合。 下面範例會統計 2002 年 9 月的天數。
MsgBox ActiveProject.Calendar.Years(2006).Months(pjNovember).Days.Count
名稱 |
---|
Application |
數目 |
項目 |
Parent |
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。