Syslibtime

[Safron]

Всем доброго время суток. Подскажите где есть примеры с использованием библиотеки SysLibTime. В справке так сухо описано. Непонятен синтаксис. И как ею пользоваться. Ошибка 4062. Спасибо

[capzap]

непробовали поиском поискать, кто писал про эту бибку или сюда http://www.owen.ru/forum/showthread.php?t=13588 заглянуть

[Safron]

Спасибо. Нашёл. Теперь у меня непонятки с модулем с модулем Архиватор. Статус Архиватора выдаёт ошибку 8. В то время как ПЛК конфигурации такой ошибки не описано. Есть 0,1,2 и 4. И как прочитать сам за архивированный файл? спасибо

[lara197a]

Можно скачать через ПЛК браузер.

[Safron]

там можно только скопировать, переименовать и список файлов получить

[petera]

там можно только скопировать, переименовать и список файлов получить

Наличие файла смотрим через ПЛК браузер, а читаем через меню Онлайн.
2.png

[Safron]

спасибо..ещё вопрос по ходу ...как просто получить текущее системное время и дату в формате DT. SystemTimeDate из блока CurTimeEx (SysLibTime) не преобразовывается в формат DT. Написал выражение IF tr THEN
dat_:= DATE ();
END_IF компилятор ругается - ошибка 4268

[Yegor]

http://www.owen.ru/forum/showthread....ll=1#post74538

Только с тех пор я проще придумал:

VAR
	    timedate: SystemTimeDate;
	    systime: SysTime64;
	    datetime_packed: DT;
	    GetTime: CurTimeEx;
END_VAR
VAR CONSTANT
	    nulldt: SystemTimeDate;
	    nullst: SysTime64;
END_VAR

timedate := nulldt;
systime := nullst;
GetTime(SystemTime := systime, TimeDate := timedate);
datetime_packed := DATE_TO_DT(
	    PackDate(timedate.Year, timedate.Month, timedate.Day) +
	    PackTime(timedate.Hour, timedate.Minute, timedate.Second, timedate.Milliseconds) / 1000);

С получением времени вообще всё плохо очень. И трудно, и часы у 110/160 идут как пьяные.

[rapucha]

http://www.owen.ru/forum/showthread....ll=1#post74538

Только с тех пор я проще придумал:

VAR
	    timedate: SystemTimeDate;
	    systime: SysTime64;
	    datetime_packed: DT;
	    GetTime: CurTimeEx;
END_VAR
VAR CONSTANT
	    nulldt: SystemTimeDate;
	    nullst: SysTime64;
END_VAR

timedate := nulldt;
systime := nullst;
GetTime(SystemTime := systime, TimeDate := timedate);
datetime_packed := DATE_TO_DT(
	    PackDate(timedate.Year, timedate.Month, timedate.Day) +
	    PackTime(timedate.Hour, timedate.Minute, timedate.Second, timedate.Milliseconds) / 1000);

С получением времени вообще всё плохо очень. И трудно, и часы у 110/160 идут как пьяные.

Спасибо, кстати. Со временем, да - треш, угар и содомия. Хуже только отсутствие однострочного комментария "//" )))

[capzap]

Хуже только отсутствие однострочного комментария "//" )))

(* текст комментария *)

так то чем не устраивает, в одну строку не помещается?