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.
Code
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
