procedure THIDateConvertor._work_doConvert18;//DateUnixToDateReal
begin
   dtReal(FResult,(ReadInteger(_Data,_data_Data,0) / 86400) + UnixStartDate + VCLDATE0);
   _hi_CreateEvent(_Data,@_event_onResult, FResult);
end;

const
   // Sets UnixStartDate to TDateTime of 01/01/1970 in VCL format
  UnixStartDate: TDateTime = 25569;