procedure THIConvertor._work_doConvert13(var _Data:TData; Index:word);//RealToDate
var Result:String;
    S:Real;
begin
    S := ReadReal(_Data,_data_Data,0); //ReadReal - определена в HiAsm: share.pas
    Result := DateTime2StrShort(S); //DateTime2StrShort - определена KOL
    Day_of_Week := DayOfWeek(S); //DayOfWeek - определена KOL
    _hi_OnEvent(_event_onResult,Result); //_hi_OnEvent - определена в HiAsm: share.pas
//Хотя правильней было бы так:
//  _hi_CreateEvent(_Data,@_event_onResult,Result);
end;