通过

Exception.Shift4 属性 (Project)

  • 项目

获取一个 班次 对象，该对象代表日历例外日期的日、 月、 期、 工作日，或在整个一年中第四个工作班次。 只读的 班次 。

语法

expression。 Shift4

表达 一个代表 Exception 对象的变量。

示例

下例通过创建从上午 8 点到中午 12 点的班次，排定星期五半天的任务。

Sub HalfDayFridays() 

 

 With ActiveProject.Calendar.WeekDays(pjFriday) 

 .Shift1.Start = #8:00:00 AM# 

 .Shift1.Finish = #12:00:00 PM# 

 .Shift2.Clear 

 .Shift3.Clear 

 End With 

 

End Sub

另请参阅

Exception 对象

支持和反馈

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