如何使用 VBA return MS Project 中的最后可用时间
How to return the last available time of day in MS Project using VBA
我希望能够 return MS Project 中给定日期结束时的值（或设置为变量）。例如，如果 2019 年 2 月 28 日的一天结束是 5:00pm，那么我希望能够 return 这个 date/time 用于代码的进一步部分。
一个项目可以有多个日历，所以第一步是确定要查询哪个日历。 Project Calendar (as shown in the Project Information dialog box) can be accessed like this: ActiveProject.Calendar. To reference a different calendar, use the BaseCalendars 属性 像这样：ActiveProject.BaseCalendars("Night Shift").
要获取日历工作日的结束时间，了解当天是否有多个班次会有所帮助。默认值是两个班次：8:00 AM - 12:00 PM 和 1:00 PM - 5:00 PM。例如，使用中级 Window* 来检查 2019 年 2 月 28 日第二班的结束时间：
? ActiveProject.Calendar.Period(#28 Feb 2019#).Shift2.Finish
5:00 PM
* 在 VB 编辑器中，按 Ctrl+G 调出 Intermediate Window.
我希望能够 return MS Project 中给定日期结束时的值（或设置为变量）。例如，如果 2019 年 2 月 28 日的一天结束是 5:00pm，那么我希望能够 return 这个 date/time 用于代码的进一步部分。
一个项目可以有多个日历，所以第一步是确定要查询哪个日历。 Project Calendar (as shown in the Project Information dialog box) can be accessed like this: ActiveProject.Calendar. To reference a different calendar, use the BaseCalendars 属性 像这样：ActiveProject.BaseCalendars("Night Shift").
要获取日历工作日的结束时间，了解当天是否有多个班次会有所帮助。默认值是两个班次：8:00 AM - 12:00 PM 和 1:00 PM - 5:00 PM。例如，使用中级 Window* 来检查 2019 年 2 月 28 日第二班的结束时间：
? ActiveProject.Calendar.Period(#28 Feb 2019#).Shift2.Finish
5:00 PM
* 在 VB 编辑器中，按 Ctrl+G 调出 Intermediate Window.