Метод Application.BaseCalendarEditDays (Project)

Изменяет один или несколько дней в базовом календаре.

Синтаксис

выражение. BaseCalendarEditDays( _Name_, _StartDate_, _EndDate_, _WeekDay_, _Working_, _From1_, _To1_, _From2_, _To2_, _From3_, _To3_, _Default_, _From4_, _To4_, _From5_, _To5_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Строка. Имя изменяемого базового календаря.
StartDate	Необязательный	Variant	Первая дата изменения. Если параметр StartDate указан без endDate, эта дата является единственным затронутым днем. Если указано Значение WeekDay , параметр StartDate игнорируется.
EndDate	Необязательный	Variant	Дата последнего изменения. Если параметр EndDate указан без startDate, эта дата является единственным затронутым днем. Если задано значение WeekDay , параметр EndDate игнорируется.
Будний день	Необязательный	Long	Рабочий день, который нужно изменить. Если указан параметр StartDate или EndDate , weekDay игнорируется. Может быть одной из констант PjWeekday .
Working	Необязательный	Логический	Значение True , если дни являются рабочими днями.
От1	Необязательный	Variant	Время начала первой смены.
To1	Необязательный	Variant	Время окончания первой смены.
From2	Необязательный	Variant	Время начала второй смены.
To2	Необязательный	Variant	Время окончания второй смены.
Из 3	Необязательный	Variant	Время начала третьей смены.
To3	Необязательный	Variant	Время окончания третьей смены.
По умолчанию	Необязательный	Логический	Сбрасывает даты, указанные в параметрах StartDate и EndDate или WeekDay, до значений по умолчанию. Если задано значение Working , значение по умолчанию игнорируется.
От4	Необязательный	Variant	Время начала четвертой смены.
To4	Необязательный	Variant	Время окончания четвертой смены.
From5	Необязательный	Variant	Время начала пятой смены.
To5	Необязательный	Variant	Время окончания пятой смены.

Возвращаемое значение

Boolean

Пример

В следующем примере среда является нерабочим днем в Standard календаре.

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

В следующем примере дни с 10.02.97 по 12.02.97 нерабочие дни в Standard календаре.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.