DTBCD en DATE_AND_TIME
DTBCD_TO_DT convertit une valeur du type de données DTBCD en une valeur du type de données DATE_AND_TIME.
Entrée
Date et heure au format BCD
Sortie
Date et heure
Toutes les variables d’entrée et de sortie utilisées pour programmer cette fonction ont été déclarées dans l’en-tête du POU. Le même en-tête de POU est utilisé pour tous les langages de programmation.
VAR
bStart: BOOL:=FALSE;
DT_value: DATE_AND_TIME;
DTBCD_value: DTBCD:=MinSec := 16#0000,
DayHour := 16#1012,
YearMonth := 16#1310;
END_VAR
La fonction est exécutée lorsque la variable bStart est définie sur TRUE.
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_DTBCD_TO_DT!,,13,1,21,5,,?DEN?D?AENO?C);
B(B_VARIN,,DTBCD_value,11,3,13,5,);
B(B_VAROUT,,DT_value,21,3,23,5,);
B(B_CONTACT,,bStart,4,2,6,4,);
L(1,3,4,3);
L(6,3,13,3);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF bStart then
DT_value := DTBCD_TO_DT(DTBCD_value);
END_IF;