Objet Month (Project)
Représente un mois d’une année. L’objet Month est membre de la collection Months.
Utilisation de l'objet Month
Utilisez Months (Index ), oùIndex est le numéro d’index du mois, le nom du mois ou la constante PjMonth , pour renvoyer un seul objet Month . 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é Months pour renvoyer une collection Months . L’exemple suivant compte le nombre de mois en 2012.
ActiveProject.Calendar.Years(2012).Months.Count
Nom |
---|
Default |
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.