Необходимо на вход ФБ 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;
Последний раз редактировалось lara197a; 05.06.2016 в 16:59.
Тупо в лоб
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 тоже подогнал ))
Спасибо! Завтра попробую.
Благодарю, работает!