Необходимо на вход ФБ OSCAT SUN_TIME (UTC) подать системное время ПЛК. Запутался, ничего не получается.:(
Вид для печати
Необходимо на вход ФБ OSCAT SUN_TIME (UTC) подать системное время ПЛК. Запутался, ничего не получается.:(
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);
(*а тут получаем текущее время к примеру в виде BYTE или как еще нужно*)
Day:=TimeAndDate.Day;
DayOfWeek:=TimeAndDate.DayOfWeek;
Second:=TimeAndDate.Second;
Minute:=TimeAndDate.Minute;
Hour:=TimeAndDate.Hour;
Month:=TimeAndDate.Month;
Year:=TimeAndDate.Year;
Тупо в лоб
PSКод:var
std,z : systemtimedate; //syslibtime
st64 : systime64; //...
get : curtimeex; //...
str : string;
var_output
севодня : date;
------------
std := z;
get(systemtime := st64, timedate:=std);
str := concat('d#'+ uint_to_string(std.year));
str := concat(str + '-');
str := concat(str+ uint_to_string(std.month));
str := concat(str + '-');
str := concat(str+ uint_to_string(std.day));
севодня := string_to_date(str);
О, Lara197a тоже подогнал ))
Спасибо! Завтра попробую.
Благодарю, работает!