http://www.owen.ru/forum/showthread....ll=1#post74538

Только с тех пор я проще придумал:
Код:
VAR
	    timedate: SystemTimeDate;
	    systime: SysTime64;
	    datetime_packed: DT;
	    GetTime: CurTimeEx;
END_VAR
VAR CONSTANT
	    nulldt: SystemTimeDate;
	    nullst: SysTime64;
END_VAR

timedate := nulldt;
systime := nullst;
GetTime(SystemTime := systime, TimeDate := timedate);
datetime_packed := DATE_TO_DT(
	    PackDate(timedate.Year, timedate.Month, timedate.Day) +
	    PackTime(timedate.Hour, timedate.Minute, timedate.Second, timedate.Milliseconds) / 1000);
С получением времени вообще всё плохо очень. И трудно, и часы у 110/160 идут как пьяные.