Objet Year (Project)

Article
04/07/2023

Représente une année dans un calendrier de projet. L’objet Year est membre de la collection Years .

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

Années disponibles pour la planification de projet

Méthodes

Nom
Default

Propriétés

Nom
Application
Calendar
Count
Index
Months
Name
Parent
Shift1
Shift2
Shift3
Shift4
Shift5
Working

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.

Partager via