ibec_GetTickCount

Retrieves the number of milliseconds that have elapsed since Windows was started.

function ibec_GetTickCount : integer;

 execute IBEBlock
 returns (cout varchar(100))
 as
 begin
   Time1 = ibec_GetTickCount();
 
   select * from rdb$fields as dataset ds;
   close dataset ds;

   Time2 = ibec_GetTickCount();
   cout = 'Time elapsed: ' || ((Time2 - Time1) / 1000) || ' seconds';
   suspend;
 end