Real time clock in scl

FUNCTION_BLOCK FB336

VAR_INPUT

IN_TIME: DATE_AND_TIME;

TDINT AT IN_TIME : ARRAY[0..7] OF BYTE;  //IN_TIME

Time_Zone       : TIME := T#8h;

END_VAR

VAR_TEMP

tmp_DT                  : DT;

tmp_INT                 : INT;

tmp_WORD                : WORD;

END_VAR

VAR_OUTPUT

Year:INT;

Month:INT;

Day:INT;

Hour:INT;

Minute:INT;

Seconds:INT;

Ms:INT;

//Week_day:INT;

END_VAR

BEGIN

tmp_INT :=  READ_CLK(CDT := IN_TIME);

IN_TIME  :=  AD_DT_TM(T := IN_TIME,D := Time_Zone);

Year:= BCD_TO_INT (TDINT[0]);

Month:= BCD_TO_INT (TDINT[1]);

Day:= BCD_TO_INT (TDINT[2]);

Hour:= BCD_TO_INT (TDINT[3]);

Minute:= BCD_TO_INT (TDINT[4]);

Seconds:= BCD_TO_INT (TDINT[5]);

Ms:= BCD_TO_INT (TDINT[6])*10 + (BCD_TO_INT(TDINT[7] AND 2#11110000)/10);

//Week_day:= BCD_TO_INT(TDINT[7] AND 2#11110000);

END_FUNCTION_BLOCK