通过

Application.BaseCalendarEditDays Method

  • 项目
Project Developer Reference

Changes one or more days in a base calendar.

Syntax

expression.BaseCalendarEditDays(Name, StartDate, EndDate, WeekDay, Working, From1, To1, From2, To2, From3, To3, Default, From4, To4, From5, To5)

expression   A variable that represents an Application object.

Parameters

Name Required/Optional Data Type Description
Name Required String String. The name of the base calendar to change.
StartDate Optional Variant The first date to change. If StartDate is specified without EndDate, that date is the only day affected. If WeekDay is specified, StartDate is ignored.
EndDate Optional Variant The last date to change. If EndDate is specified without StartDate, that date is the only day affected. If WeekDay is specified, EndDate is ignored.
WeekDay Optional Long The weekday to change. If StartDate or EndDate is specified, WeekDay is ignored. Can be one of the PjWeekday constants.
Working Optional Boolean True if the days are working days.
From1 Optional Variant The start time of the first shift.
To1 Optional Variant The end time of the first shift.
From2 Optional Variant The start time of the second shift.
To2 Optional Variant The end time of the second shift.
From3 Optional Variant The start time of the third shift.
To3 Optional Variant The end time of the third shift.
Default Optional Boolean Resets the dates specified by StartDate and EndDate, or by WeekDay, to the default values. If Working is specified, Default is ignored.
From4 Optional Variant The start time of the fourth shift.
To4 Optional Variant The end time of the fourth shift.
From5 Optional Variant The start time of the fifth shift.
To5 Optional Variant The end time of the fifth shift.

Return Value
Boolean

Example
The following example makes Wednesday a nonworking day in the Standard calendar.

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

The following example makes the days from 2/10/97 through 2/12/97 nonworking days in the Standard calendar.

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

See Also