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.
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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