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.