The Timespan object provides an interface to a simple timer for tracking the duration of activities. It's useful for tracking how an action has taken or if a specified time has elapsed from some starting event.

Supported Interfaces

Description

 
 REM ******************************************************
 REM Compute the number of millisecs to perform a task
 REM ******************************************************
 timer = CreateObject("roTimespan")
 timer.Mark()
 DoTimeConsumingTask()
 Print "Task took: " + itostr(timer.TotalMilliseconds()) 
 
 REM ******************************************************
 REM Compute how many seconds until rental expires
 REM ******************************************************
 Function secondsLeft(String expirationDate) As Integer
     str = expirationDate
     if str = invalid return -1
     ts = CreateObject("roTimespan")
     seconds = ts.GetSecondsToISO8601Date(str)
     print "Expires: " + str + " secs: " + Stri(seconds)
     return seconds
 End Function