LOTUSSCRIPT/COM/OLE CLASSES


Examples: GetItemValueDateTimeArray 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 count As Integer
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 times = doc.GetItemValueDateTimeArray("Times")
 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