关于在博途V13中怎么实现对时钟

如何将其拆开 年 月 日 再加上   "D20MesDB".ClockTime := TOD#03:00:00; 时间

通过 WR_SYS_T函数对时间进行一致性调整呢？

//时钟同步  年月日 凌晨3点对接时钟同步

IF "D20_MesConn".D20***[10] = 1 THEN

    "D20MesDB".ClockTime := TOD#03:00:00;

    "D20MesDB".DateString := '19910120';

    "D20MesDB".yearString := LEFT(IN := "D20MesDB".DateString, L:= 4);

    "D20MesDB".yearString:= LEFT(IN:="D20MesDB".DateString, L:=4);

    "D20MesDB".monthString := MID(IN := "D20MesDB".DateString, L := 2, P := 5);

    "D20MesDB".dayString:=MID(IN := "D20MesDB".DateString, L := 2, P := 7);

    "D20MesDB".yearInt := STRING_TO_INT("D20MesDB".yearString);

    "D20MesDB".monthInt:=STRING_TO_INT("D20MesDB".monthString);

    "D20MesDB".dayInt := STRING_TO_INT("D20MesDB".dayString);

   // p#db39.dbx264.0:=INT_TO_BCD16("D20MesDB".yearInt);

    //"D20MesDB".TimeAndDate.Year := DINT_TO_BYTE("D20MesDB".yearInt);

   // "D20MesDB".TimeAndDate.Month := DINT_TO_BYTE("D20MesDB".monthInt);

    //"D20MesDB".TimeAndDate.Day := DINT_TO_BYTE("D20MesDB".dayInt);

   // DINT_TO_BCD32("D20MesDB".yearInt)

   // "D20MesDB".timeReturn := WR_SYS_T(CONCAT_DATE_TOD(IN1:=DINT_TO_DATE(STRING_TO_DINT("D20MesDB".DateString)), IN2:="D20MesDB".ClockTime));

   // "D20MesDB".timeReturn := WR_SYS_T(CONCAT_DATE_TOD(IN1 :=INT_TO_BCD16("D20MesDB".dataTest), IN2 := "D20MesDB".ClockTime));

END_IF;