Получение времени сервера

Несколько удивляет, но часто получаю вопрос - как вывести время сервера во внешнее приложение. Выложил простейший код портфеля на форуме quik, продублирую здесь.

PORTFOLIO_EX SERVERTIME ;
DESCRIPTION SERVERTIME ;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;

PROGRAM
delete_all_items()
add_item(1,set_value(create_map(),"SERVERTIME",get_info_param("SERVERTIME")))
END_PROGRAM

PARAMETER SERVERTIME;
PARAMETER_TITLE SERVERTIME;
PARAMETER_DESCRIPTION SERVERTIME;
PARAMETER_TYPE STRING(10);
END

После чего через DDE или ODBC - куда угодно.