通过

Application.OptionsCalendar 方法 (Project)

设置活动项目中的日历选项。

语法

expression。 OptionsCalendar( _StartWeekOnMonday_, _StartYearIn_, _StartTime_, _FinishTime_, _HoursPerDay_, _HoursPerWeek_, _SetDefaults_, _StartWeekOn_, _UseFYStartYear_, _DaysPerMonth_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
StartWeekOnMonday 可选 Boolean 如此 如果日历中的周从星期一开始。 假 如果日历中的周从星期日开始。 如果指定了 StartWeekOn ， StartWeekOnMonday将被忽略。 ( StartWeekOn参数是指定的一周开始的更好方法)。
StartYearIn 可选 Long 财政年度的第一个月。 可以是 PjMonth 常量之一。
StartTime 可选 Variant 工作日的默认开始时间。
FinishTime 可选 Variant 工作日的默认结束时间。
HoursPerDay 可选 Double 每天的默认工作小时数。
HoursPerWeek 可选 Double 每周的默认工作小时数。
SetDefaults 可选 Boolean 如果将 StartYearIn、StartTime、FinishTime、HoursPerDay、HoursPerWeek、StartWeekOn 和 UseFYStartYear 的值用作新项目的默认值，则为 True。 默认值为 False。
StartWeekOn 可选 Long 周的第一天。 可以是 PjWeekday 常量之一。
UseFYStartYear 可选 Boolean 如此 如果财政年度由该会计年度的第一个月的年度。 如果由会计年度的最后一个月确定，则为 False。例如，如果 StartYearIn 为 pjJuly (表示 2012 年 7 月) 且 UseFYStartYEar 为 True，则结束于 2012 年 6 月的会计年度将是 FY2012。
DaysPerMonth 可选 Double 默认的每月的工作日数。

返回值

Boolean

说明

如果省略某个参数，则其默认值由 "项目选项" 对话框 "日程" 选项卡的设置来指定。

使用未指定任何参数的 OptionsCalendar 方法显示 项目选项对话框中选择 常规选项卡。

示例

以下示例将财政年度的第一个月份设置为 4 月，将每天默认的工作小时数设置为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on