Traditionally, VB programmers benchmark their code using the Timer function. However, if your processmight terminate on the following day, you must take into account that the value returned by that function isreset at midnight. If you’re satisfied with one-second precision, you can simplify your code using the Nowfunction:
Dim startTime As DateStartTime = Now' the code to be benchmarked' ...Print "elapsedSeconds = " & Format$ _ ((Now - startTime) * 86400, "#####")
You need the Format$ function to round the result to the nearest Integer.