如何获得员工（资源）的工作日和缺勤日？

Question

如何从MS-Project获得VBA员工的工作和缺勤日期？ （雇员是一个的ressource）

一些额外的相关信息：

我知道如何让任务

Dim ts as Tasks 
Set ts = ActiveProject.Tasks 

，我知道如何从我的项目文件中获取ressources：

Dim rs as Resources 
Set rs = ActiveProject.ressources 

但我没有找到一个（微不足道的）方法来从这些变量中获得工作和缺勤天数。

Answer 1

你需要看的资源对象，找到工作和非工作日：

ActiveProject.Resources.Item(1).Calendar 

在我们的项目中拿起第一资源这个简单的例子，拉出它相关的日历。

资源日历会从它继承的基础日历：

...Calendar.BaseCalendar 

和两个资源日历和基本日历定义工作日，工作周和例外。例外情况通常是如何定义缺勤期限......即它们是正常工作模式的例外：

...Calendar.WorkWeeks 
...Calendar.WeekDays 
...Calendar.Exceptions