Compartir a través de

Objeto Year (Project)

  • Artículo

Representa un año de un calendario de proyecto. El objeto Year es un miembro de la colección de años.

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

Años disponibles para planeación de proyecto

Métodos

Nombre
Default

Propiedades

Nombre
Application
Calendario
Count
Índice
Meses
Name
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.