Системное время преобразовать в DATE

[KRUPSKIY]

Необходимо на вход ФБ OSCAT SUN_TIME (UTC) подать системное время ПЛК. Запутался, ничего не получается.

[lara197a]

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;

[Валенок]

Тупо в лоб

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);

PS
О, Lara197a тоже подогнал ))

[KRUPSKIY]

Спасибо! Завтра попробую.

[KRUPSKIY]

Благодарю, работает!