PROGRAM PLC_PRG (* библиотеки SysLibTime, TimeExp *)
VAR
	clock: CurTimeEx;
	st64: SysTime64;
	systd: SystemTimeDate;
END_VAR
VAR CONSTANT
	systd_init: SystemTimeDate;
END_VAR

systd := systd_init;
clock(SystemTime := st64, TimeDate := systd);

(* EPOCH — 4-байтовый в конфигурации *)
EPOCH := DATE_TO_UDINT(
	PackDate(systd.Year, systd.Month, systd.Day) +
	PackTime(systd.Hour, systd.Minute, systd.Second, systd.Milliseconds) / 1000);

(* UPTIME_MS — 4-байтовый в конфигурации *)
UPTIME_MS := TIME_TO_UDINT(TIME());