RosettaCodeData/Task/Time-a-function/BASIC/time-a-function.basic

10 lines
260 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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