Objet Day (Project)
Représente un jour du mois. L’objet Day est membre de la collection Days.
Exemple
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
Méthodes
Nom |
---|
Default |
Propriétés
Nom |
---|
Application |
Calendar |
Count |
Index |
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour