Mon Feb 16 10:27:48 2026,задержка(сек)=60
Mon Feb 16 10:28:18 2026,задержка(сек)=90
Mon Feb 16 10:28:48 2026,задержка(сек)=120
Mon Feb 16 10:29:18 2026,задержка(сек)=150
Mon Feb 16 10:30:18 2026,задержка(сек)=31
Mon Feb 16 10:30:48 2026,задержка(сек)=61
Mon Feb 16 10:31:18 2026,задержка(сек)=91
Mon Feb 16 10:31:48 2026,задержка(сек)=122

Mon Feb 16 11:11:18 2026,задержка(сек)=60
Mon Feb 16 11:11:48 2026,задержка(сек)=90
Mon Feb 16 11:12:18 2026,задержка(сек)=120

Mon Feb 16 14:25:19 2026,задержка(сек)=39
Mon Feb 16 14:25:49 2026,задержка(сек)=69
Mon Feb 16 14:26:19 2026,задержка(сек)=99
Mon Feb 16 14:26:49 2026,задержка(сек)=129

Mon Feb 16 16:43:49 2026,задержка(сек)=32
Mon Feb 16 16:44:19 2026,задержка(сек)=62
Mon Feb 16 16:44:49 2026,задержка(сек)=92
Mon Feb 16 16:45:19 2026,задержка(сек)=122
Mon Feb 16 16:45:49 2026,задержка(сек)=152

Mon Feb 16 19:22:50 2026,задержка(сек)=42
Mon Feb 16 19:23:19 2026,задержка(сек)=72
Mon Feb 16 19:23:50 2026,задержка(сек)=102
Mon Feb 16 19:24:20 2026,задержка(сек)=132
Mon Feb 16 19:24:50 2026,задержка(сек)=162
Mon Feb 16 19:25:50 2026,задержка(сек)=58
Mon Feb 16 19:26:20 2026,задержка(сек)=89
Mon Feb 16 19:26:50 2026,задержка(сек)=119

Mon Feb 16 19:27:50 2026

function HMS(T) 
   local hms=0; for s in T:gmatch("[^:]+") do hms=60*hms+tonumber(s) end 
return hms;
end
MaxTime=30 
function main()
   while run do
      TS=getInfoParam("SERVERTIME")--  Время сервера  
      TW=getInfoParam("LASTRECORDTIME")--  Время последней записи  
      if TS and TW  then 
         TL=getInfoParam("LASTPINGTIME")  --Время последней проверки связи  
         if TL_OLD and TL~=TL_OLD then
            local str=os.date()
            if D>MaxTime then str=str..",задержка(сек)="..D; end 
            Log:seek("set",begin); 
            Log:write(str.."\n");    Log:flush(); 
            if D>MaxTime then begin=Log:seek(); end
         end
         TS_HMS=HMS(TS);   D=math.abs(HMS(TW)-TS_HMS)
      end
         TL_OLD=TL;
      sleep(200);
   end
end
function OnInit(ph)
ph=ph:sub(1,ph:len()-3).."log"; 
Log = io.open(ph, "w");Log:close(); Log = io.open(ph, "r+");
 begin=Log:seek(); 
D=0;
   run=true
end