Objeto Years (Project)

Contiene un conjunto de objetos Year.

Comentarios

El conjunto Years en Project comienza en 1984 y termina en 2149. En versiones anteriores de Project, la programación puede ejecutar desde 1984 a 2049.

Ejemplos

Uso del objeto Year

Use Years ( Index), donde Index es el número de índice del año, para devolver un único objeto Year . En el ejemplo siguiente se cuenta el número de días laborables del mes de septiembre de 2012 para cada recurso seleccionado.

Dim r As Resource
Dim d As Integer
Dim workingDays As Integer
Dim theMonth As PjMonth

theMonth = pjSeptember

For Each r In ActiveSelection.Resources()
    workingDays = 0
    With r.Calendar.Years(2012).Months(theMonth)
        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 for month " & theMonth
Next r

Uso del conjunto Years

Utilice la propiedad Years para devolver un conjunto Years. En el ejemplo siguiente se enumeran todos los años del calendario del proyecto activo.

Sub CountYears()
    Dim c As Long
    Dim temp As String
        
    For c = 1 To ActiveProject.Calendar.Years.Count
        temp = temp & ListSeparator & " " & _
            ActiveProject.Calendar.Years(c + 1983).Name
    Next c
            
    MsgBox Right$(temp, Len(temp) - Len(ListSeparator & " "))
End Sub

La figura 1 muestra los resultados de la macro CountYears.

Figura 1. Obtención de la lista de años disponibles

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Vea también

Modelo de objetos de Project

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.