Objeto Day (Project)

Representa un día en un mes. El objeto Day es un miembro de la colección de días.

Ejemplo

Uso del objeto Day

Use Days (Index ), dondeIndex es el número de índice de día o la constante PjWeekday , para devolver un solo objeto Day . En el ejemplo siguiente se cuenta el número de días laborables del mes de septiembre de 2008 para cada recurso seleccionado.

Dim R As Resource, D As Integer, WorkingDays As Integer 
 
For Each R In ActiveSelection.Resources() 
    WorkingDays = 0 
    With R.Calendar.Years(2008).Months(pjSeptember) 
        For D = 1 To .Days.Count 
            If .Days(D).Working = True Then 
                WorkingDays = WorkingDays + 1 
            End If 
        Next D 
    End With 
    MsgBox "There are " & WorkingDays & " working days in " _ 
        & R.Name & "'s calendar." 
Next R

Uso del conjunto Days

Use la propiedad Days para devolver un conjunto Days. En el ejemplo siguiente se cuentan los días laborables del mes de septiembre de 2008.

ActiveProject.Calendar.Years(2008).Months(pjSeptember).Days.Count

Métodos

Nombre
Default

Propiedades

Nombre
Application
Calendario
Count
Índice
Nombre
Parent
Shift1
Shift2
Shift3
Shift4
Shift5
Working

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.