плк 150 - не идут часы.

[Александр Ч.]

1. Открываем в менеджере библиотек -Syslibtime.lib
2. В объявлении переменных прописываем
TimeAndDate:SystemTimeDate;
Sys_Time: SysTime64;
GetTime:CurTimeEx;
3. В теле программы прописываем
TimeAndDate.Day :=0;
TimeAndDate.DayOfWeek :=0;
TimeAndDate.dwHighMsec :=0;
TimeAndDate.dwLowMSecs :=0;
TimeAndDate.Milliseconds :=0;
TimeAndDate.Minute :=0;
TimeAndDate.Second :=0;
TimeAndDate.Hour :=0;
TimeAndDate.Year :=0;
TimeAndDate.Month :=0;
Sys_time.ulHigh :=0;
Sys_time.ulLow :=0;
GetTime (SystemTime:=Sys_Time,TimeDate:=TimeAndDate);

4. Значения какого либо параметра времени присваем пользовательской переменной, например
sec:=TimeAndDate.Second;
И все работает.( Формат sec-UINT).