如何使用VBA返回MS Project中的最后一个可用时间

Question

我希望能够在MS Project中返回给定日期结束时的值（或设置为变量）。例如，如果2019年2月28日的结束时间是下午5:00，那么我希望能够将此日期/时间返回到另一部分代码中。

Answer 1

项目可以有多个日历，因此第一步是确定要查询的日历。 Project Calendar（如项目信息对话框中所示）可以像这样访问：ActiveProject.Calendar。要引用不同的日历，请使用BaseCalendars属性，如下所示：ActiveProject.BaseCalendars("Night Shift")。

要获得日历的工作日结束时间，有助于了解当天是否有多个班次。默认为两班：上午8:00 - 下午12:00和下午1:00 - 下午5:00。例如，使用中间窗口*检查2019年2月28日第二班的结束时间：

? ActiveProject.Calendar.Period(#28 Feb 2019#).Shift2.Finish
5:00 PM

*从VB编辑器中，按Ctrl + G调出Intermediate Window。