为类添加功能

可以通过在对象引用的调用之前调用类模块中的任何公共 Sub，Function 或 Property：

Object.Procedure

在 DateRange 类中，Sub 可用于在结束日期添加若干天：

Public Sub AddDays(ByVal NoDays As Integer)
    mEndDate = mEndDate + NoDays
End Sub

Function 可以返回下个月末的最后一天（请注意，GetFirstDayOfMonth 在课外不可见，因为它是私有的）：

Public Function GetNextMonthEndDate() As Date
    GetNextMonthEndDate = DateAdd("m", 1, GetFirstDayOfMonth())
End Function

Private Function GetFirstDayOfMonth() As Date
    GetFirstDayOfMonth = DateAdd("d", -DatePart("d", mEndDate), mEndDate)
End Function

过程可以接受任何类型的参数，包括对正在定义的类的对象的引用。

以下示例测试当前 DateRange 对象是否具有包含另一个 DateRange 对象的开始日期和结束日期的开始日期和结束日期。

Public Function ContainsRange(ByRef TheRange As DateRange) As Boolean
    ContainsRange = TheRange.StartDate >= Me.StartDate And TheRange.EndDate <= Me.EndDate
End Function

请注意使用 Me 表示法来访问运行代码的对象的值。