daterange

have been stuck with this for sometime now. the key is to use the forall loop to read thru all values in the date range.

Dim dateRange As NotesDateRange
Dim session As New NotesSession
Dim dateTime1 As New NotesDateTime(gdoccur1.fl_submissionDt(0))
Dim dateTime2 As New NotesDateTime(gdoccur1.caseclosed(0))
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
dtText = "["+dateRange.Text+"]"
'Messagebox dateRange.Text
m=Evaluate( |@Explode(@TextToTime("| & dtText & |"))|)
Dim n As Variant
n= Evaluate( |@Elements(m)|)
'Msgbox n(0)
'Messagebox("Date is " & Cstr(m(0)))
'Messagebox("Date is " & Cstr(m(1)))
'Messagebox("Date is " & Cstr(m(2)))
Forall curDate In m
Print curDate
' For each item in persStats, print its tag and value.
End Forall