Examples: NotesDateRange class

  1. This example sets the StartDateTime and EndDateTime properties of a NotesDateRange object, then displays the value of the Text property. The Text property, at this point, has the value: "08/18/96 01:36:22 PM - 08/19/96 01:36:22 PM."
    Dim dateRange As NotesDateRange
    Dim session As New NotesSession
    Dim dateTime1 As New NotesDateTime("08/18/96 01:36:22 PM")
    Dim dateTime2 As New NotesDateTime("08/19/96 01:36:22 PM")
    Set dateRange = session.CreateDateRange()
    Set dateRange.StartDateTime = dateTime1
    Set dateRange.EndDateTime = dateTime2
    Messagebox dateRange.Text
  2. This example writes a value to the Text property, then displays the LocalTime property of the StartDateTime and EndDateTime properties (which are NotesDateTime objects). The LocalTime properties, at this point, are "08/18/96 01:36:22 PM" and "08/19/96 01:36:22 PM."
    Dim dateRange As NotesDateRange
    Dim session As New NotesSession
    Set dateRange = session.CreateDateRange()
    dateRange.Text= _
    "08/18/96 01:36:22 PM - 08/19/96 01:36:22 PM"
    Messagebox dateRange.StartDateTime.LocalTime
    Messagebox dateRange.EndDateTime.LocalTime
  3. This example sets a value for a NotesDateRange object, then changes the NotesDateTime object on which the EndDateTime property is based. This implicitly changes the EndDateTime property.
    Dim dateRange As NotesDateRange
    Dim session As New NotesSession
    Dim dateTime1 As New NotesDateTime("Today")
    Dim dateTime2 As New NotesDateTime("Tomorrow")
    Set dateRange = session.CreateDateRange()
    Set dateRange.StartDateTime = dateTime1
    Set dateRange.EndDateTime = dateTime2
    Messagebox dateRange.Text
    Call dateTime2.AdjustDay(1)
    Messagebox dateRange.Text