Método Application.BaseCalendarEditDays (Project)
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.