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 игнорируется.
WeekDay (День недели)	Необязательный	Long	День недели, который нужно изменить. Если указано значение StartDate или EndDate , значение WeekDay игнорируется. Может быть одной из констант PjWeekday .
Working	Необязательный	Логический	Верно , если дни являются рабочими.
От1	Необязательный	Variant	Время начала первой смены.
К1	Необязательный	Variant	Время окончания первой смены.
От2	Необязательный	Variant	Время начала второй смены.
К2	Необязательный	Variant	Время окончания второй смены.
От3	Необязательный	Variant	Время начала третьей смены.
К3	Необязательный	Variant	Время окончания третьей смены.
По умолчанию	Необязательный	Логический	Сбрасывает даты, заданные полями StartDate и EndDate или WeekDay, до значений по умолчанию. Если указан параметр "Работает ", значение по умолчанию игнорируется.
От4	Необязательный	Variant	Время начала четвертой смены.
К4	Необязательный	Variant	Время окончания четвертой смены.
От5	Необязательный	Variant	Время начала пятой смены.
К5	Необязательный	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 и обратная связь.