Thank you.
I found a way to give the result with hours and minut.
Please try this: (PS Can you help me how can I color the code in this web site like you did?)
local nSatert,nfinish,nDelay,nHours,nMinutes,nSeconds
nSatert=datetime()
create cursor test (id i)
for i =1 to 850000
insert into test value (i)
endfor
nfinish=datetime()
nDelay=nfinish-nSatert
nHours=floor(nDelay/3600)
nMinutes=floor(mod(nDelay,3600)/60)
nSeconds=mod(nDelay,60)
cTimestring=alltrim(str(nHours))+':'+padl(alltrim(str(nMinutes)),2,'0')+':'+ ;
padl(alltrim(str(nSeconds)),2,'0')
Messagebox('The operation done in '+cTimestring)