setting clock in wago 750-862

[ganutenator]

Does anyone know how to set the time and date programmatically in the wago 750-862?
Or direct me to the library that I need & link?
I am using codesys v2.3.9.62

 

[ganutenator]

figured it out

currentDT := SysRtcGetTime(dummy);

IF hmi_set_clock THEN
	sYear := INT_TO_STRING(iYear);
	sMonth := INT_TO_STRING(iMonth);
	sDay := INT_TO_STRING(iDay);
	sHour := INT_TO_STRING(iHour);
	sMinute := INT_TO_STRING(iMinute);
	sSecond := INT_TO_STRING(iSecond);

	sNewTime := CONCAT('DT#',sYear);
	sNewTime := CONCAT(sNewTime,'-' );
	sNewTime := CONCAT(sNewTime,sMonth);
	sNewTime := CONCAT(sNewTime,'-' );
	sNewTime := CONCAT(sNewTime,sDay);
	sNewTime := CONCAT(sNewTime,'-' );
	sNewTime := CONCAT(sNewTime,sHour);
	sNewTime := CONCAT(sNewTime,':' );
	sNewTime := CONCAT(sNewTime,sMinute);
	sNewTime := CONCAT(sNewTime,':' );
	sNewTime := CONCAT(sNewTime,sSecond);

	dtSetTime := STRING_TO_DT(sNewTime);
	SysRtcSetTime(dtSetTime);

	hmi_set_clock := FALSE;
	MikeCount:= MikeCount + 1;
END_IF

tPlcTimeRun:= TIME();
iPlcTimeRun:= TIME_TO_INT(tPlcTimeRun);

 

[ganutenator]

And how to read the time from the plc.

(*get current time*)

MyCurTimeEx(SystemTime:= MySystemTime, TimeDate:= MyTimeDate );

hour:= MyTimeDate.Hour;
minute:= MyTimeDate.Minute;
second:= MyTimeDate.Second;