返回或设置一个 Long 指定给定的定期类型的两次发生之间的单位数。 读/写。
语法
expression。 Interval
表达式 表示 RecurrencePattern 对象的变量。
备注
设置 PatternEndDate 之前，必须设置 时间间隔 属性。
例如，将 时间间隔 属性设置为 2 和 介于 1 到 olRecursWeekly 属性会导致每两周发生的模式。
当 是介于 1 到 olRecursYearNth 或 olRecursYear 设置时， 时间间隔 属性指示两次发生之间的年份数。 例如， 间隔 等于 1 表示重复周期是每年、 时间间隔 等 2 指示重复周期为每 2 年，依此类推。
示例
此 Visual Basic for Applications 示例使用 GetRecurrencePattern 获取新创建的 AppointmentItem 的 RecurrencePattern 对象。 设置了属性 RecurrenceType、 DayOfWeekMask、 PatternStartDate、 Interval、 PatternEndDate 和 Subject ，保存约会并显示以下模式：“每 3 周发生一次， (星期一) ，自 2003 年 1 月 21 日起至 2004 年 12 月 21 日，下午 2：00 至下午 5：00。”
Sub CreateAppointment()
Dim myApptItem As AppointmentItem
Dim myRecurrPatt As RecurrencePattern
Set myApptItem = Application.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/2003 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2004 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display
Set myOlApp = Nothing
Set myApptItem = Nothing
Set myRecurrPatt = Nothing
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。