Николай Камынин

Автор: Николай Камынин

Ниже приведена программа портфеля,  позволяющая проверить запаздывание времени последней сделки отностительно времени сервера QUIK и времени Вашего компьютера

PORTFOLIO_EX TEST_NK;
DESCRIPTION Тест_Времени_Сбербанк 22.03.2010;
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(«EQBR», «SBER03», «TIME»),»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

Как выясинлось в процессе исследований и консультаций с разработчиками QUIK  дял более стабильной работы надо снять флаг «Запрашивать данные раз в …»   в НАСТРОЙКА/ОСНОВНЫЕ/ПОЛУЧЕНИЕ ДАННЫХ

При этом получаются следующие данные, например, по акции Сбербанка сегодня: