Код:
PROGRAM PLC_PRG
VAR
DTNow: SystemTimeDate;
STNow: SysTime64;
GetCurrentTime: CurTimeEx;
PackedTime: DWORD;
END_VAR
Код:
(*Обнуляем, чтобы получить тек.время*)
DTNow.Year := 0;
DTNow.Month := 0;
DTNow.Day := 0;
DTNow.Hour := 0;
DTNow.Minute := 0;
DTNow.Second := 0;
DTNow.DayOfWeek := 0;
STNow.ulHigh := 0;
STNow.ulLow := 0;
(*получаем текущее время*)
GetCurrentTime(SystemTime:=STNow , TimeDate:=DTNow );
(*Преобразуем в DWORD*)
PackedTime := SystemTimeDate_TO_DT(DTNow);
(*И в PackedTime всегда 0, хотя в DTNow - нормальное текущее время*)