Tenere Traccia della durata di un agente

Spesso quando si realizzano Agenti LS che girano in back-ground in un server Domino è utile capire quale sia la durata dello stesso...
Mettendo il seguente pezzo di codice all'inizio ed alla fine dell'agente realizzato è possibile fare tutto ciò:
**************************
  Dim begintime As New NotesDateTime("")
   Dim endtime As New NotesDateTime("")
   Dim diff As Long
   Dim elapsedtime As String
   Call begintime.SetNow
   
   ' include agent code here
   
   Call endtime.SetNow
   diff = endtime.TimeDifference(begintime)
   elapsedtime = Format$(Timenumber (0,0,diff),"hh:nn:ss:")
**************************