Compartir a través de

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.

  • Last updated on