Auf Englisch lesen

Freigeben über


Months-Objekt (Project)

Enthält eine Auflistung von Month -Objekten.

Hinweise

Verwenden Sie Monate (Index ), wobeiIndex die Monatsindexnummer, den Monatsnamen oder die PjMonth-Konstante ist, um ein einzelnes Month-Objekt zurückzugeben.

Beispiel

Verwenden des Months-Auflistungsobjekts

Im folgenden Beispiel wird ermittelt die Anzahl von Arbeitstagen in jeden Monat des 2012 für jede ausgewählte Ressource.

Dim R As Resource 
Dim D As Integer, M As Integer, WorkingDays As Integer 
 
For Each R In ActiveSelection.Resources() 
    WorkingDays = 0 

    With R.Calendar.Years(2012) 
        For M = 1 To .Months.Count 
            WorkingDays = 0 
            For D = 1 To .Months(M).Days.Count 
                If .Months(M).Days(D).Working = True Then 
                    WorkingDays = WorkingDays + 1 
                End If 
            Next D 

            MsgBox "There are " & WorkingDays & " working days in " & _
                .Months(M).Name & " for " & R.Name & "." 
        Next M 
    End With 
Next R

Verwenden der Months-Auflistung

Verwenden Sie die Months -Eigenschaft, um eine Months -Auflistung zurückzugeben. Im folgenden Beispiel wird ermittelt die Anzahl der Monate in 2012.

ActiveProject.Calendar.Years(2012).Months.Count

Eigenschaften

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.