Método Application.BaseCalendarEditDays (Project)

  • Artigo

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.
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.
A partir de 1 Opcional Variant A hora de início do primeiro turno.
To1 Opcional Variant A hora de término do primeiro turno.
A partir de2 Opcional Variant A hora de início do segundo turno.
To2 Opcional Variant A hora de término do segundo turno.
A partir de3 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 de4 Opcional Variant A hora de início do quarto turno.
To4 Opcional Variant A hora de término do quarto turno.
A partir 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.