function   ToLog (str)
    local  datetime  =   os.date ( "*t" , os.time ());  -- Текущие дата/время 
    local  sec_mcs_str  =  tostring( os.clock ());  -- Секунды с микросекундами 
   -- local mcs_str = string.sub(sec_mcs_str, sec_mcs_str:find("%.") + 1);   -- Микросекунды 
    -- Записывает в лог-файл переданную строку, добавляя в ее начало время с точностью до микросекунд 
   Log:write(tostring(datetime.day) .. " - "
             .. tostring(datetime.month) .. " - "
             .. tostring(datetime.year) .. "  "
            ..tostring(datetime.hour).." :"
             .. tostring(datetime.min) .. ":"
             .. tostring(datetime.sec) .. "."
            -  -   .. mcs_str .. "  "
            ..str.." \n");   -- Записывает в лог-файл 
   Log:flush();    -- Сохраняет изменения в лог-файле 
 end ;
  

function ToLog(str)
   local datetime = os.date("*t",os.time()); -- Текущие дата/время
   local sec_mcs_str = tostring(os.clock()); -- Секунды с микросекундами
  -- local mcs_str = string.sub(sec_mcs_str, sec_mcs_str:find("%.") + 1);   -- Микросекунды
   -- Записывает в лог-файл переданную строку, добавляя в ее начало время с точностью до микросекунд
   Log:write(tostring(datetime.day).."-"
            ..tostring(datetime.month).."-"
            ..tostring(datetime.year).." "
            ..tostring(datetime.hour)..":"
            ..tostring(datetime.min)..":"
            ..tostring(datetime.sec).."."
           -- ..mcs_str.." "
            ..str.."\n");  -- Записывает в лог-файл
   Log:flush();   -- Сохраняет изменения в лог-файле
end;