LotusScript to search Lotus Notes documents created in a specific time zone
SearchDomino.com member Gunasekaran Subramainian explains how to create a button using LotusScript that will search for Lotus Notes documents created in a specific time zone and within a specified date and time range.
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.
-
Get the From date and time and the To date and time of Lotus Notes documents created from the search form.
- 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.
Related information from SearchDomino.com:
- Verifying user's date setting and time zone on local PC
- LotusScript advice
- 30 LotusScript tips
- LotusScript tips and resources