Application.BaseCalendarEditDays method (Project)
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.