Uwaga
Dostęp do tej strony wymaga autoryzacji. Może spróbować zalogować się lub zmienić katalogi.
Dostęp do tej strony wymaga autoryzacji. Możesz spróbować zmienić katalogi.
Gets a Shift object representing the fourth work shift in a calendar exception for a day, month, period, weekday, or throughout a year. Read-only Shift.
Syntax
expression. Shift4
expression A variable that represents an Exception object.
Example
The following example schedules a half-day of work on Fridays by creating a shift from 8 A.M. to noon.
Sub HalfDayFridays()
With ActiveProject.Calendar.WeekDays(pjFriday)
.Shift1.Start = #8:00:00 AM#
.Shift1.Finish = #12:00:00 PM#
.Shift2.Clear
.Shift3.Clear
End With
End Sub
See also
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.