Objet Years (Project)

Contient une collection d’objets Year .

Remarques

La collection Years dans Project commence en 1984 et se termine en 2149. Dans les versions précédentes de Project, la planification peut s’exécuter de 1984 à 2049.

Exemples

Utilisation de l'objet Year

Utilisez Years ( Index), où Index est le numéro d’index de l’année, pour renvoyer un seul objet Year . L’exemple suivant compte le nombre de jours ouvrés du mois de septembre 2012 pour chaque ressource sélectionnée.

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

Utilisation de la collection Years

Utilisez la propriété Years pour renvoyer une collection Years . L’exemple suivant montre comment répertorier toutes les années contenues dans le calendrier du projet actif.

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 figure 1 montre les résultats de la macro CountYears .

Figure 1. Obtention de la liste des années disponibles

Propriétés

Nom
Application
Count
Élément
Parent

Voir aussi

Modèle objet Project

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.