RosettaCodeData/Task/Time-a-function/BASIC/time-a-function.basic
2023-07-01 13:44:08 -04:00

9 lines
260 B
Text

DIM timestart AS SINGLE, timedone AS SINGLE, timeelapsed AS SINGLE
timestart = TIMER
SLEEP 1 'code or function to execute goes here
timedone = TIMER
'midnight check:
IF timedone < timestart THEN timedone = timedone + 86400
timeelapsed = timedone - timestart