使用英语阅读

通过


Days 对象 (Project)

包含 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 


属性

另请参阅

项目对象模型

支持和反馈

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