' The following lines will assist in timing a long running process. The "gvarTotalTime" variable will be
' the total number of minutes for the entire process.


Option Explicit

Public gvarStartTime
Public gvarEndTime
Public gvarTotalTime


Sub DoSomething()
	Dim lstrTimerMsg, lstrMinType
	gvarStartTime = Timer
	DoSomeLongRunningProcessHere
	gvarEndTime = Timer
	gvarTotalTime = gvarEndTime - gvarStartTime
	gvarTotalTime = Round(gvarTotalTime / 60)
	If gvarTotalTime < 1 Then
		gvarTotalTime = 1
		lstrMinType = " minute."
	Else
		lstrMinType = " minutes."
	End If
	lstrTimerMsg = "Total time is " & gvarTotalTime & lstrMinType
	WScript.Echo lstrTimerMsg
End Sub