Método Application.BaseCalendarEditDays (Project)
Cambia uno o más días en un calendario base.
Sintaxis
expresión. BaseCalendarEditDays( _Name_, _StartDate_, _EndDate_, _WeekDay_, _Working_, _From1_, _To1_, _From2_, _To2_, _From3_, _To3_, _Default_, _From4_, _To4_, _From5_, _To5_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Name | Obligatorio | String | Cadena. El nombre del calendario base que se va a cambiar. |
| StartDate | Opcional | Variant | La primera fecha que se va a cambiar. Si se especifica StartDate sin EndDate, dicha fecha es el único día afectado. Si se especifica WeekDay, se omitirá StartDate. |
| EndDate | Opcional | Variant | La última fecha que se va a cambiar. Si se especifica EndDate sin StartDate, dicha fecha es el único día afectado. Si se especifica WeekDay, se omitirá EndDate. |
| Día laborable | Opcional | Long | El día laborable para cambiar. Si se especifica StartDate o EndDate, se omitirá WeekDay. Puede ser una de las constantes PjWeekday. |
| Working | Opcional | Boolean | True si son días laborables. |
| From1 | Opcional | Variant | Hora de comienzo del primer turno. |
| To1 | Opcional | Variant | Hora de fin del primer turno. |
| From2 | Opcional | Variant | Hora de comienzo del segundo turno. |
| To2 | Opcional | Variant | Hora de fin del segundo turno. |
| From3 | Opcional | Variant | Hora de comienzo del tercer turno. |
| To3 | Opcional | Variant | Hora de fin del tercer turno. |
| Default | Opcional | Boolean | Restablece las fechas especificadas por StartDate y EndDate o por WeekDay a los valores predeterminados. Si se especifica Working, se omitirá Default. |
| From4 | Opcional | Variant | Hora de comienzo del cuarto turno. |
| To4 | Opcional | Variant | Hora de fin del cuarto turno. |
| From5 | Opcional | Variant | Hora de comienzo del quinto turno. |
| To5 | Opcional | Variant | Hora de fin del quinto turno. |
Valor devuelto
Boolean
Ejemplo:
En el ejemplo siguiente se convierte el miércoles en día no laborable en el calendario Standard.
Sub MakeWednesdaysNonWorking()
BaseCalendarEditDays Name:="Standard", Weekday:=pjWednesday, Working:=False
End Sub
En el ejemplo siguiente se convierten los días del 10-2-97 al 12-2-97 en días no laborables en el calendario Standard.
Sub MakeSelectedDaysNonWorking()
BaseCalendarEditDays Name:="Standard", StartDate:="2/10/97", EndDate:="2/12/97", Working:=False
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.