Objet Day (Project)
Représente un jour du mois. L’objet Day est membre de la collection Days.
Utilisation de l'objet Day
Utilisez Days (Index ), oùIndex est le numéro d’index du jour ou la constante PjWeekday , pour renvoyer un seul objet Day . L’exemple suivant montre comment compter le nombre de jours ouvrés du mois de septembre 2008 pour chaque ressource sélectionnée.
Dim R As Resource, D As Integer, WorkingDays As Integer
For Each R In ActiveSelection.Resources()
WorkingDays = 0
With R.Calendar.Years(2008).Months(pjSeptember)
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."
Next R
Utilisation de la collection Days
Utilisez la propriété Days pour renvoyer une collection Days . L’exemple suivant montre comment compter le nombre de jours ouvrés du mois de septembre 2008.
ActiveProject.Calendar.Years(2008).Months(pjSeptember).Days.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.