Edit

Application.BaseCalendarEditDays method (Project)

  • Article

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.

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.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.