hello

now i have added elapsed time, also using msgbox - not eligible for anything.

elapsed time shows "0 secs" i am not certain if i am doing the calculation correct.

Code:

dim t1 as y
t1=ctot(time())
dim t2 as y
dim x as n
for x = 2000 to 3000
if mod(x,10)=9
if mod(x,9)=8
if mod(x,8)=7
if mod(x,7)=6
if mod(x,6)=5
if mod(x,5)=4
if mod(x,4)=3
if mod(x,3)=2
t2=ctot(time())
d=(t2-t1)/60
msgbox("The answer is",str(x))
msgbox("Elapsed time","It took "+alltrim(str(d))+" seconds")
end if
end if
end if
end if
end if
end if
end if
end if
next

## Bookmarks