Mahlzeit
Bei mir sieht das so aus:
PROGRAM GetTime
VAR
SysTime: CurTimeEx;
sST: SysTime64;
sTD: SystemTimeDate;
END_VAR
VAR_OUTPUT
strStringBuffer: STRING(255);
END_VAR
(* ----------------------------------------------------------------------------------------------------------- *)
SysTime(SystemTime:=sST,TimeDate:=sTD);
strStringBuffer := '';
IF sTD.Hour < 10 THEN
strStringBuffer := CONCAT(strStringBuffer,'0');
END_IF
strStringBuffer := CONCAT(strStringBuffer,UINT_TO_STRING(sTD.Hour));
strStringBuffer := CONCAT(strStringBuffer,':');
IF sTD.Minute < 10 THEN
strStringBuffer := CONCAT(strStringBuffer,'0');
END_IF
strStringBuffer := CONCAT(strStringBuffer,UINT_TO_STRING(sTD.Minute));
strStringBuffer := CONCAT(strStringBuffer,':');
IF sTD.Second < 10 THEN
strStringBuffer := CONCAT(strStringBuffer,'0');
END_IF
strStringBuffer := CONCAT(strStringBuffer,UINT_TO_STRING(sTD.Second));
strStringBuffer := CONCAT(strStringBuffer,',');
IF sTD.Milliseconds < 10 THEN
strStringBuffer := CONCAT(strStringBuffer,'00');
ELSIF sTD.Milliseconds < 100 THEN
strStringBuffer := CONCAT(strStringBuffer,'0');
END_IF
strStringBuffer := CONCAT(strStringBuffer,UINT_TO_STRING(sTD.Milliseconds));