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

hello world

this blog will serve as a repository for all things techy that i work on. hopefully, in time of need i can come back here to get ideas on how to solve a particular problem based on past experience.

i'm a lotus developer. have been in this field for 4 years now. i'm forever indebted to my first boss for introducing me to this language.

i was with the first company for a little short of two years where i worked on purely client based applications. then when i moved to the second company, i received further exposure to this language where i learnt how to develop web-based applications.

i find the language to be very programmer friendly. it's easy to learn and manipulate. on the downside, i find its security to be a bit on the lacking side.

i find a comparison of lotus notes with microsoft outlook to be absurd. lotus is much more than an e-mail messaging system.