12-05-2009, 03:44 PM
Hi,
Code:
Services.StartTransaction "trans1"
Start=Timer
--- write Transaction code ----
------------------------------
Finish=Timer
Services.EndTransaction "trans1"
Transaction_Time=Finish-Start
msgbox "Time taken by the Transaction: "&Transaction_Time&" Seconds"