Partager via

Objet Day (Project)

  • Article

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.