关于SCL 中时间的问题

VAR_OUTPUT
    DateTimeArr : ARRAY[0..5] OF BYTE;  // 新增一个数组变量
END_VAR

BEGIN
IF Zero = 0 AND Occupy =1 THEN
    DateTimeArr[0]:= DTTimeAT[0];
    DateTimeArr[1]:= DTTimeAT[1];
    DateTimeArr[2]:= DTTimeAT[2];
    DateTimeArr[3]:= DTTimeAT[3];
    DateTimeArr[4]:= DTTimeAT[4];
    DateTimeArr[5]:= DTTimeAT[5];
END_IF;
IF Zero = 1 AND Occupy =0 THEN
    DateTimeArr[0]:= 16#00;
    DateTimeArr[1]:= 16#00;
    DateTimeArr[2]:= 16#00;
    DateTimeArr[3]:= 16#00;
    DateTimeArr[4]:= 16#00;
    DateTimeArr[5]:= 16#00;
END_IF;

END_FUNCTION_BLOCK
用这种方法输出的是数组，但是系统不支持这个类型
FUNCTION_BLOCK FB1120
TITLE = 'DT_TO_Byte'
{S7_m_c :='true'}
VAR_INPUT
    DTTime : DATE_AND_TIME ;
    DTTimeAT AT DTTime : ARRAY[0..7] OF BYTE;
    Zero : BOOL;
    Occupy :BOOL;
    
END_VAR

VAR_OUTPUT
    Year {S7_m_c :='true'}:BYTE ;
    Month{S7_m_c :='true'} : BYTE;
    Day {S7_m_c :='true'}: BYTE;
    Hour {S7_m_c :='true'}: BYTE;
    Minute{S7_m_c :='true'} :BYTE;
    Second{S7_m_c :='true'} :BYTE;
    
END_VAR

BEGIN
IF Zero = 0 AND Occupy =1 THEN
    Year:= DTTimeAT[0];
    Month:= DTTimeAT[1];
    Day:= DTTimeAT[2];
    Hour:= DTTimeAT[3];
    Minute:= DTTimeAT[4];
    Second:= DTTimeAT[5];
END_IF;
IF Zero = 1 AND Occupy =0 THEN
    Year:= 16#00;
    Month:= 16#00;
    Day:= 16#00;
    Hour:= 16#00;
    Minute:= 16#00;
    Second:= 16#00;
END_IF;

END_FUNCTION_BLOCK
   这种分开输出年月日时分秒虽然可以输出，但是又太耗费内存，还有其他方法可以整体的输出年月日时分秒吗