Gültigkeitsprüfung des DATE-Werts
IS_VALID_DATE_INT prüft, ob die Kombination der INT-Werte für Jahr, Monat und Tag einen gültigen DATE-Wert ergibt. Wenn das Datum gültig ist, wird der Boolesche Ausgangsmerker gesetzt.
Eingang
1. Eingang: Jahr
2. Eingang: Month
3. Eingang: Tag
Ausgang
TRUE, wenn der Ergebniswert für das Datum gültig ist.
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
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);