Application.BaseCalendarEditDays method (Project) (Método Application.BaseCalendarEditDays [Projeto])

Altera um ou mais dias em um calendário base.

Sintaxe

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

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	Cadeia de caracteres. O nome do calendário base para alterar.
StartDate	Opcional	Variant	A primeira data para alterar. Se for especificado sem EndDateStartDate nessa data é o único dia afetado. Se WeekDay for especificado, StartDate será ignorada.
EndDate	Opcional	Variant	A última data para alterar. Se for especificado sem StartDateEndDate nessa data é o único dia afetado. Se WeekDay for especificado, EndDate será ignorada.
Dia Da Semana	Opcional	Long	O dia da semana para alterar. Se StartDate ou EndDate for especificado, WeekDay será ignorada. Pode ser uma das seguintes constantes PjWeekday.
Working	Opcional	Boolean	True se os dias forem dias úteis.
De1	Opcional	Variant	A hora de início do primeiro turno.
Para1	Opcional	Variant	A hora de término do primeiro turno.
A partir de 2	Opcional	Variant	A hora de início do segundo turno.
To2	Opcional	Variant	A hora de término do segundo turno.
De 3	Opcional	Variant	A hora de início do terceiro turno.
To3	Opcional	Variant	A hora de término do terceiro turno.
Default	Opcional	Boolean	Redefine as datas especificadas por StartDate e EndDate ou por dia da semana, para os valores padrão. Se trabalhando for especificado, o padrão será ignorada.
A partir de 4	Opcional	Variant	A hora de início do quarto turno.
To4	Opcional	Variant	A hora de término do quarto turno.
De5	Opcional	Variant	A hora de início do quinto turno.
To5	Opcional	Variant	A hora de término do quinto turno.

Valor de retorno

Boolean

Exemplo

O exemplo a seguir transforma a quarta-feira em um dia de folga no calendário Padrão.

Sub MakeWednesdaysNonWorking() 
 BaseCalendarEditDays Name:="Standard", Weekday:=pjWednesday, Working:=False 
End Sub

O exemplo a seguir transforma os dias de 10/02/97 a 12/02/97 em dias de folga no calendário Standard.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.