If you're ever curious how long it takes for one of your agents to run, (i.e. nightly agents), you can use this simple piece of code. It will print the output on the command console or you can add a "sendemail" chunk of code to drop the runtimes in your mailbox the following day. Hope you find it useful.
REM Copy to Declarations section Dim dt1 As NotesDateTime, dt2 As NotesDateTime Dim dtdiff As Long, dtvalue As Double REM Copy to top of initialize section Set dt1=New NotesDateTime(Now) REM Copy to bottom of initialize section, right above End Sub if you don't have any other labels or GoTo's that would stop you from hitting this code REM Elapsed time to run agent Set dt2=New NotesDateTime(Now) REM Time difference in seconds dtdiff=dt2.TimeDifference(dt1) REM Time diff minutes dtvalue = dtdiff/60 REM Time diff in hours 'dtvalue = dtdiff/3600 REM Time diff in days 'dtvalue = dtdiff/84600 Print "Elapsed seconds = " & dtdiff & ", elapsed mins = " & dtvalue
This was first published in January 2003