通过

Months.Count Property

  • 项目
Project Developer Reference

Returns the number of items in the Months collection for the years 1984 - 2049. Read-only Integer.

Syntax

expression.Count

expression   A variable that represents a Months object.

Return Value
Integer

Example
The following example in the Immediate window returns 12, the number of months in 2008. If you set the year to 1983 or 2050, the result is "Run-time error '1101'; the argument is not valid."

Visual Basic for Applications 
  ? activeproject.Resources(1).Calendar.Years(2008).Months.Count

The following example shows the use of the Count property for the Assignments object. It prompts the user for the name of a resource and then assigns that resource to tasks without any resources.

Visual Basic for Applications 
  Sub AssignResource()

Dim T As Task            ' Task object used in For Each loop
Dim R    As Resource        ' Resource object used in For Each loop
Dim Rname As String    ' Resource name
Dim RID As Long        ' Resource ID

RID = 0
RName = InputBox$("Enter the name of a resource: ")

For Each R in ActiveProject.Resources
    If R.Name = RName Then
        RID = R.ID
        Exit For
    End If
Next R

If RID <> 0 Then
    ' Assign the resource to tasks without any resources.
    For Each T In ActiveProject.Tasks
        If T.Assignments.<strong class="bterm">Count</strong> = 0 Then
            T.Assignments.Add ResourceID:=RID
        End If
    Next T
Else
    MsgBox Prompt:=RName &amp; " is not a resource in this project.", buttons:=vbExclamation
End If



End Sub

See Also