[VBScript] Timer class

A class to set multiple timers and get back program run time in seconds, or as a nicely formatted hours-minutes-seconds. class StopWatch private dThen, dNow private bTicking private sub Class_Initialize() bTicking = False end sub public sub Start IF bTicking = False Then bTicking = True dThen = Now Else MsgBox "StopWatch already ticking" End If end sub public sub Finish If bTicking = True Then bTicking = False dNow = Now Else MsgBox "StopWatch not ticking" End If end sub public function StartTime() If bTicking = True Then StartTime = dThen Else MsgBox "StopWatch not started" StartTime = Empty End If end function public function FinishTime() If bTicking = False Then FinishTime = dNow Else MsgBox "StopWatch still ticking" FinishTime = Empty End If end function public function Seconds() If bTicking = False Then Seconds = DateDiff( "s", dThen, dNow ) Else MsgBox "StopWatching still ticking" Seconds = Empty End If end function public function LapTime() Dim dTemp, iHour, iMin, iSec if bTicking = False Then dTemp = DateAdd( "s", DateDiff( "s", dThen, dNow ), Empty ) iHour = Hour( dTemp ) iMin = Minute( dTemp ) iSec = Second( dTemp ) LapTime = iHour & "h " & iMin & "m " & iSec & "s" Else MsgBox "StopWatch still ticking" LapTime = Empty End If end function end class An example: dim ticker set ticker = new stopwatch ticker.start WScript.Echo ticker.StartTime() 'Waste a lot of time uselessly For i = 1 to 100000 str = Join( Split( Join( Split( "1.2.3.4.5.6.7.8.9.0.1.2.3.4.5.6.7.8.9.0...........","."),"."),"."),".") next ticker.Finish WScript.Echo ticker.FinishTime() WScript.Echo ticker.Laptime() ... which gave (at time of testing) ... 19/09/2005 4:04:11 PM 19/09/2005 4:04:18 PM 0h 0m 7s