Было много раз на форуме.
Код:
PROGRAM GetingTime
VAR
	GetTime: CurTimeEx;
	TimeAndDate: SystemTimeDate;
	Sys_Time: SysTime64;

END_VAR
VAR_OUTPUT
	out_hour: UINT;
	out_minute: UINT;
	out_DayOfWeek: UINT;
END_VAR
------------------------------------
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);

out_hour:=TimeAndDate.Hour ;
out_minute:=TimeAndDate.Minute;
out_DayOfWeek:=TimeAndDate.DayOfWeek;
Потом использовать например так...
plc0.jpg