Метод Application.OptionsCalendar (Project)
Задает параметры календаря активного проекта.
Синтаксис
выражение. OptionsCalendar
( _StartWeekOnMonday_
, _StartYearIn_
, _StartTime_
, _FinishTime_
, _HoursPerDay_
, _HoursPerWeek_
, _SetDefaults_
, _StartWeekOn_
, _UseFYStartYear_
, _DaysPerMonth_
)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
StartWeekOnMonday | Необязательный | Логический | Значение true , если календарная неделя начинается с понедельника. False , если календарная неделя начинается с воскресенья. Если параметр StartWeekOn указан, параметр StartWeekOnMonday игнорируется. (Аргумент StartWeekOn — это лучший способ указать начало недели.) |
StartYearIn | Необязательный | Long | Первый месяц финансового года. Может быть одной из констант PjMonth . |
StartTime | Необязательный | Variant | Время начала по умолчанию для рабочих дней. |
FinishTime | Необязательный | Variant | Время окончания по умолчанию для рабочих дней. |
HoursPerDay | Необязательный | Double | Количество рабочих часов по умолчанию в день. |
HoursPerWeek | Необязательный | Double | Количество рабочих часов по умолчанию в неделю. |
SetDefaults | Необязательный | Логический | Значение true , если значения StartYearIn, StartTime, FinishTime, HoursPerDay, HoursPerWeek, StartWeekOn и UseFYStartYear используются в качестве значений по умолчанию для новых проектов. Значение по умолчанию — False. |
StartWeekOn | Необязательный | Long | Первый день недели. Может быть одной из констант PjWeekday . |
UseFYStartYear | Необязательный | Логический | Значение true , если финансовый год определяется годом первого месяца этого финансового года. Значение false , если определяется последним месяцем финансового года. Например, если StartYearIn имеет значение pjJuly (обозначает июль 2012 г.), а UseFYStartYear имеет значение True, финансовый год, заканчивающийся в июне 2012 г., будет иметь значение FY2012. |
DaysPerMonth | Необязательный | Double | Количество рабочих дней в месяц по умолчанию. |
Возвращаемое значение
Boolean
Примечания
Если аргумент опущен, значение по умолчанию указывается параметром на вкладке Расписание диалогового окна Параметры проекта .
При использовании метода OptionsCalendar без указания аргументов отображается диалоговое окно Параметры проекта с выбранной вкладкой Общие .
Пример
В следующем примере для первого месяца финансового года устанавливается апрель, по умолчанию — 4 часа, а по умолчанию — 20 часов.
Sub Options_Calendar()
Dim HoursDay As Double
Dim HoursWeek As Double
HoursDay = 4
HoursWeek = 20
OptionsCalendar StartYearIn:=pjApril, HoursPerDay:=HoursDay, HoursPerWeek:=HoursWeek
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.