Compartir a través de

Objeto Day (Project)

  • Artículo

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.