Objet Mois (projet)

Contient une collection d’objets Month .

Remarques

Utilisez Mois (Index ), oùIndex est le numéro d’index du mois, le nom du mois ou la constante PjMonth , pour retourner un objet Mois unique.

Exemple

Utilisation de l’objet de collection Months

L’exemple suivant compte le nombre de jours ouvrés de chaque mois de 2012 pour chaque ressource sélectionnée.

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

Utilisation de la collection Months

Utilisez la propriété Mois pour renvoyer une collection Mois . L’exemple suivant compte le nombre de mois en 2012.

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

Propriétés

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.