Year-Objekt (Project)

Stellt ein Jahr in einem Projektkalender dar. Das Year -Objekt ist ein Mitglied der Years -Auflistung.

Hinweise

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

Methoden

Name
Default

Eigenschaften

Name
Application
Kalender
Count
Index
Monate
Name
Parent
Shift1
Shift2
Shift3
Shift4
Shift5
Arbeiten

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.