曜日計算
DAY_OF_WEEK0は、曜日データをINT型の値で返します。"0"は日曜日、"6"は土曜日に対応します。
入力
日付
出力
0 (日曜日)~6 (土曜日)
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。 POUヘッダは全プログラム言語で使用できます。
VAR
DATE_value: DATE:=D#2014-04-20;
iDAY_OF_WEEK_value: INT:=0;
END_VAR
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,DAY_OF_WEEK0!,,9,2,18,4,,?D?C);
B(B_VARIN,,DATE_value,7,2,9,4,);
B(B_VAROUT,,iDAY_OF_WEEK_value,18,2,20,4,);
L(1,0,1,5);
END_NETWORK_BODY
END_NET_WORK
END_BODY
値iDAY_OF_WEEK_value = 0は日曜日に対応します。
5日間のオフセットが必要な場合は、5が日曜日に対応します。
iDAY_OF_WEEK_value := DAY_OF_WEEK0(DATE_value);
(* if you want a time offset of 5 days, e.g. Sunday corresponds to 5 *)
iDAY_OF_WEEK_value := DAY_OF_WEEK0(DATE_value )+ 5 MOD 7;