Application.BaseCalendarEditDays-Methode (Project)

Ändert mindestens einen Tag in einem Basiskalender.

Syntax

Ausdruck. BaseCalendarEditDays( _Name_, _StartDate_, _EndDate_, _WeekDay_, _Working_, _From1_, _To1_, _From2_, _To2_, _From3_, _To3_, _Default_, _From4_, _To4_, _From5_, _To5_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Name	Erforderlich	String	Zeichenfolge. Der Name des Basiskalenders ändern.
StartDate	Optional	Variant	Das erste Datum zu ändern. Wenn StartDate ohne EndDate angegeben wird, ist der einzige Tag betroffen. Wenn WeekDay angegeben wird, wird StartDate ignoriert.
EndDate	Optional	Variant	Das letzte Datum ändern. Wenn EndDate ohne StartDate angegeben wird, ist der einzige Tag betroffen. Wenn WeekDay angegeben wird, wird EndDate ignoriert.
Wochentag	Optional	Long	So ändern Sie den Wochentag an. Wenn StartDate oder EndDate angegeben wird, wird WeekDay ignoriert. Dies kann eine der PjWeekday -Konstanten sein.
Working	Optional	Boolean	True, Wenn die Tage Arbeitstage sind.
Von 1	Optional	Variant	Die Anfangszeit der ersten Schicht.
To1	Optional	Variant	Die Endzeit der ersten Schicht.
Von 2	Optional	Variant	Die Anfangszeit der zweiten Schicht.
To2	Optional	Variant	Die Endzeit der zweiten Schicht.
Von3	Optional	Variant	Die Anfangszeit der dritten Schicht.
To3	Optional	Variant	Die Endzeit der dritten Schicht.
Default	Optional	Boolean	Setzt die durch StartDate und EndDate oder durch WeekDay angegeben, auf die Standardwerte zurück. Wenn Working angegeben wird, wird die standardmäßige ignoriert.
Von 4	Optional	Variant	Die Anfangszeit der vierten Schicht.
To4	Optional	Variant	Die Endzeit der vierten Schicht.
Von 5	Optional	Variant	Die Anfangszeit der fünften Schicht.
To5	Optional	Variant	Die Endzeit der fünften Schicht.

Rückgabewert

Boolean

Beispiel

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 und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.