检查DATE是否有效
IS_VALID_DATE_INT检查年、月、日的INT值组合是否是有效的DATE值。如果日期有效,则设置布尔输出标志。
输入
第1个输入:年
第2个输入:月
第3个输入:日
输出
如果结果日期值有效,则设置为TRUE
所有用于编程此函数的输入和输出变量已在POU头中声明。 所有编程语言使用相同的POU头。
VAR
YEAR_value: INT:=2011;
MONTH_value: INT:=12;
DAY_value: INT:=24;
VALID: BOOL:=FALSE;
END_VAR
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 7 ;
NETWORK_BODY
B(B_VARIN,,YEAR_value,8,1,10,3,);
B(B_VARIN,,MONTH_value,8,2,10,4,);
B(B_VARIN,,DAY_value,8,3,10,5,);
B(B_F,IS_VALID_DATE_INT!,Instanz,10,0,20,5,,?DYEAR?DMONTH?DDAY?C);
B(B_VAROUT,,VALID,20,1,22,3,);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
VALID := IS_VALID_DATE_INT(YEAR := YEAR_value,
MONTH := MONTH_value,
DAY := DAY_value);