Qpile скрипт для проверки скорости Quik.

Позволяет проверить запаздывание времени последней сделки отностительно времени сервера квик и времени  компьютера.

 
PORTFOLIO_EX TEST_NK;
DESCRIPTION Тест_Времени;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;

PROGRAM
 
st=CREATE_MAP()
T1=SUBSTR(get_value(GET_DATETIME(), «Datetime»),11,8) '` ‘текущее время’
st=SET_VALUE(st,«T1»,T1)
T3=0+GET_VALUE(GET_PARAM_EX(«SPBFUT», «RIU1», «changetime»),«param_value») '‘ время сделки
T5=GET_INFO_PARAM(«SERVERTIME») '‘время сервера
st=SET_VALUE(st,«T5»,T5)
T3=SUBSTR (T3,0,2) & ":" & SUBSTR (T3,2,2) & ":" & SUBSTR (T3, 4,2) '‘переводим в HH:MM:SS
st=SET_VALUE(st,«T3»,T3)
T4=60*(60*SUBSTR (T3,0,2) + SUBSTR (T3, 3,2))+ SUBSTR (T3, 6,2)
T2=60*(60*SUBSTR (T1,0,2) + SUBSTR (T1, 3,2))+ SUBSTR (T1, 6,2)
T6=60*(60*SUBSTR (T5,0,2) + SUBSTR (T5, 3,2))+ SUBSTR (T5, 6,2)
T7=T6-T4 '‘разность сервера и сделки
st=SET_VALUE(st,«T7»,T7)
T8=T2-T4 '‘разность текущего и сделки
st=SET_VALUE(st,«T8»,T8)
T9=T2-T6 '‘разность текущего и сервера
st=SET_VALUE(st,«T9»,T9)
ADD_ITEM(1,st)
END_PROGRAM
PARAMETER T1;
PARAMETER_TITLE TimePC;
PARAMETER_DESCRIPTION TimePC;
PARAMETER_TYPE STRING(8);
END
PARAMETER T3;
PARAMETER_TITLE TimeLast;
PARAMETER_DESCRIPTION TimeLast;
PARAMETER_TYPE STRING(8);
END
PARAMETER T5;
PARAMETER_TITLE TimeSERV;
PARAMETER_DESCRIPTION TimeServer;
PARAMETER_TYPE STRING(8);
END
PARAMETER T7;
PARAMETER_TITLE SERV_Last;
PARAMETER_DESCRIPTION Server_Last;
PARAMETER_TYPE NUMERIC(3,0);
END
PARAMETER T8;
PARAMETER_TITLE PC_Last;
PARAMETER_DESCRIPTION PC_Last;
PARAMETER_TYPE NUMERIC(3,0);
END
PARAMETER T9;
PARAMETER_TITLE PC_SERV;
PARAMETER_DESCRIPTION PC_SERV;
PARAMETER_TYPE NUMERIC(3,0);
END
END_PORTFOLIO_EX

Инструкция как запустить это в квике есть тут: http://smart-lab.ru/blog/wisdom/7879.php