バイナリ日時 -> 秒
FP_DTBIN_TO_SECは、データ型DTBINのバイナリ値を秒に変換します。
入力
バイナリ形式による日時
出力
秒
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
VAR
bStart: BOOL:=FALSE;
DTBIN_value: DTBIN:=Year_2digits := 14,
Month := 01,
Day := 23,
Hour := 22,
Min := 22,
Sec := 22;
wSeconds: WORD:=0;
END_VAR
変数bStartが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,FP_DTBIN_TO_SEC!,,9,1,19,5,,?DEN?D@'s'?AENO?Cd);
B(B_CONTACT,,bStart,5,2,7,4,);
B(B_VARIN,,DTBIN_value,7,3,9,5,);
B(B_VAROUT,,wSeconds,19,3,21,5,);
L(1,3,5,3);
L(7,3,9,3);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF bStart then
wSeconds := FP_DTBIN_TO_SEC(DTBIN_value);
END_IF;