LOTUSSCRIPT/COM/OLE CLASSES


Examples: GetValueDateTimeArray method
This agent gets the value of the date-time item named "Times." The agent checks each element of the value to see if it is a NotesDateTime or NotesDateRange object.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim item As NotesItem
 Dim count As Integer
 Dim times As Variant
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set item = doc.GetFirstItem("Times")
 times = item.GetValueDateTimeArray()
 count = 0
 Forall t In times
   count = count + 1
   If Typename(t) = "NOTESDATETIME" Then
     Messagebox t.LocalTime,, "Date/time # " & count
   Elseif Typename(t) = "NOTESDATERANGE" Then
     Messagebox t.StartDateTime.LocalTime & " - " & _
     t.EndDateTime.LocalTime,, "Date/time # " & count
   End If
 End Forall
End Sub

See Also