通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。