LotusScript to search Lotus Notes documents created in a specific time zone

This database search functionality will search for Lotus Notes documents created in a specific time zone -- within the date/time range the user gives -- with just a couple of steps.

1. Get the From date and time and the To date and time of Lotus Notes documents created from the search form.

2. Now, search for the Lotus Notes documents created in that particular date and time range. The following code should be implemented into the search button:

 Dim wks As NotesUIWorkspace 
Dim session As NotesSession
Dim db As NotesDatabase
 
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim docCurrent As NotesDocument

Dim From_datetime As NotesDateTime
Dim To_datetime As NotesDateTime
 
Dim strFromDateTime As String
Dim strToDateTime As String
 
Set wks = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set uidoc = wks.CurrentDocument
Set docCurrent = uidoc.Document
 
'FromDate and FromTime are the fields 
to get corresponding Date and Time 
values of Search form
 strFromDateTime = 
Format(docCurrent.FromDate(0), "Short Date") 
&" " & Format(docCurrent.FromTime(0), 
"Long Time")
 Set From_datetime = 
New NotesDateTime(strFromDateTime)
 
'ToDate and ToTime are the fields to get 
corresponding Date and Time values of 
Search form 
 strToDateTime = 
Format(docCurrent.ToDate(0), "Short Date") 
&" " & Format(docCurrent.ToTime(0), "Long Time")
 Set To_datetime = 
New NotesDateTime(strToDateTime)
 
'docCreatedOnUS holds the date/time 
field (in US timezone) of the document created. 
'This query will helps to find the result. 
 querysearch$ = { Form = 
"Sample" & (docCreatedOnUS >= [} 
& From_datetime.ZoneTime & _ 
 {]) & (docCreatedOnUS 
<=  [} & To_datetime.ZoneTime & {])} 
'The collection of documents as result
 Set dc = 
db.Search(querysearch$, Nothing, 0)
 Msgbox dc.Count,0+64, db.Title

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip library by member Gunasekaran Subramanian. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.