DATE_AND_TIME in Datums- und Zeitangabe im BCD-Format
DT_TO_DTBCD wandelt einen Wert vom Datentyp DATE_AND_TIME in einen Wert vom Datentyp DTBCD um.
Eingang
Datum und Uhrzeit
Ausgang
Datum und Uhrzeit im BCD-Format
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
VAR
bStart: BOOL:=FALSE;
DT_value: DATE_AND_TIME:=DT#2013-10-10-012:00:00;
DTBCD_value: DTBCD;
END_VAR
Wenn die Variable bStart auf TRUE gesetzt wird, wird die Funktion ausgeführt.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 5 ;
NETWORK_BODY
B(B_F,E_DT_TO_DTBCD!,,10,1,18,5,,?DEN?D?AENO?C);
B(B_VARIN,,DT_value,8,3,10,5,);
B(B_VAROUT,,DTBCD_value,18,3,20,5,);
B(B_CONTACT,,bStart,3,2,5,4,);
L(1,3,3,3);
L(5,3,10,3);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF bStart then
DTBCD_value := DT_TO_DTBCD(DT_value);
END_IF;