Application.BaseCalendarEditDays 方法 (Project)

更改基准日历中的一个或多个工作日。

语法

expression。 BaseCalendarEditDays( _Name_, _StartDate_, _EndDate_, _WeekDay_, _Working_, _From1_, _To1_, _From2_, _To2_, _From3_, _To3_, _Default_, _From4_, _To4_, _From5_, _To5_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	String	字符串 。 若要更改的基准日历的名称。
StartDate	可选	Variant	要更改的第一个日期。 如果没有 结束日期 指定了 开始日期 ，该日期是唯一受到影响。 如果指定 工作日 ，则会忽略 起始日期 。
EndDate	可选	Variant	要更改的最后一个日期。 如果没有 开始日期 指定 结束日期 ，则该日期是唯一受到影响。 如果指定 工作日 ，则 结束日期 将被忽略。
工作日	可选	Long	要更改的工作日。 如果指定了 开始日期 或 结束日期 ，则忽略 工作日 。 可以是 PjWeekday 常量之一。
Working	可选	Boolean	如此 如果天是工作天。
From1	可选	Variant	第一班次的开始时间。
To1	可选	Variant	第一班次的结束时间。
From2	可选	Variant	第二班次的开始时间。
To2	可选	Variant	第二班次的结束时间。
From3	可选	Variant	第三班次的开始时间。
To3	可选	Variant	第三班次的结束时间。
Default	可选	Boolean	重置为默认值指定由 起始日期 和 终止日期 ，或 工作日 的日期。 如果 使用 未指定， 默认值 将被忽略。
From4	可选	Variant	第四班次的开始时间。
To4	可选	Variant	第四班次的结束时间。
From5	可选	Variant	第五班次的开始时间。
To5	可选	Variant	第五班次的结束时间。

返回值

Boolean

示例

以下示例在"Standard"（标准）日历中将星期三设为非工作日。

Sub MakeWednesdaysNonWorking() 
 BaseCalendarEditDays Name:="Standard", Weekday:=pjWednesday, Working:=False 
End Sub

以下示例在"Standard"（标准）日历中将 97 年 2 月 10 日到 97 年 2 月 12 日的时间段全部设为非工作日。

Sub MakeSelectedDaysNonWorking() 
 BaseCalendarEditDays Name:="Standard", StartDate:="2/10/97", EndDate:="2/12/97", Working:=False 
End Sub

支持和反馈

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