Years-Objekt (Project)

Enthält eine Auflistung von Year -Objekten.

HinwBemerkungeneise

Die Years -Auflistung in Project beginnt mit 1984 und endet in 2149. In früheren Versionen von Project kann Planen von 1984 bis 2049 ausführen.

Beispiele

Verwenden des Year-Objekts

Verwenden Sie Years ( Index), wobei Index die Jahresindexnummer ist, um ein einzelnes Year-Objekt zurückzugeben. Im folgenden Beispiel wird ermittelt die Anzahl von Arbeitstagen im Monat September 2012 für jede ausgewählte Ressource.

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

Verwenden der Years-Auflistung

Verwenden Sie die Years -Eigenschaft, um eine Years -Auflistung zurückzugeben. Im folgenden Beispiel werden alle Jahre im Kalender des aktiven Projekts aufgelistet.

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

Abbildung 1 zeigt die Ergebnisse des CountYears Makros.

Abbildung 1: Abrufen der Liste der verfügbaren Jahre

Eigenschaften

Name
Anwendung
Count
Element
Parent

Siehe auch

Project-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.