Блог им. tilt_man |Qpile скрипт для проверки скорости Quik.

    • 13 сентября 2011, 14:20
    • |
    • tilt
  • Еще
Позволяет проверить запаздывание времени последней сделки отностительно времени сервера квик и времени  компьютера.

 
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);


( Читать дальше )

....все тэги
UPDONW
Новый дизайн