FUNCTION FC 6 : VOID
TITLE =
VERSION : 0.1


VAR_TEMP
Datum_Tijd : DATE_AND_TIME ;
RV : INT ;
Datum_Tijd_Nieuw : DATE_AND_TIME ;
Fout_SFC : INT ;
END_VAR
BEGIN


NETWORK
TITLE = Lezen klok

CALL SFC 1 (
RET_VAL := #RV,
CDT := #Datum_Tijd);
NOP 0;


NETWORK
TITLE = tijd naar integer

L LB 3;
BTI ;
L 100;
*I ;
L LB 4;
BTI ;
+I ;
T MW 28;


NETWORK
TITLE = Dag bepalen

L LW 6;
L W#16#F;
UW ;
T MB 27;


NETWORK
TITLE =

U( ;
L MW 28;
L 300;
>=I ;
) ;
U( ;
L MW 28;
L 500;
<I ;
) ;
= M 50.0;


NETWORK
TITLE =

U( ;
L MW 28;
L 715;
>=I ;
) ;
U( ;
L MW 28;
L 1230;
<I ;
) ;
= M 50.1;


NETWORK
TITLE =

U( ;
L MW 28;
L 1346;
>=I ;
) ;
U( ;
L MW 28;
L 1711;
<I ;
) ;
= M 50.2;


NETWORK
TITLE =

U( ;
L MW 28;
L 2200;
>=I ;
) ;
U( ;
L MW 28;
L 2300;
<I ;
) ;
= M 50.3;
END_FUNCTION