Structured Text user function block to return the Day of the Week
DISCLAIMER
The example below is intended to demonstrate one or more features or methods and is presented as a configuration example only. Schneider Electric assumes no liability for the use or application of this example or any portion thereof.
ClearSCADA allows the user to create its own Structured Text library, where several user function blocks can be stored.
A function that is periodically requested by users is one that returns the day of the week from a DATE_AND_TIME input variable. The code below returns the day of the week as a number (0 = Sunday to 6 = Saturday):
| FUNCTION_BLOCK DayOfTheWeek VAR_INPUT InDate : DATE_AND_TIME; END_VAR VAR_OUTPUT DayOfWeek : INT; END_VAR VAR Year : INT; cYear : INT; Month : INT; Day : INT; CP : INT; YP : INT; MP : INT; LeapYear : BOOL := FALSE; Valid :BOOL; END_VAR Year := EXTRACT_DT_YEAR(InDate); cYear := STRING_TO_INT(RIGHT(INT_TO_STRING(Year),2)); Month := EXTRACT_DT_MONTH(InDate); Day := EXTRACT_DT_DAY(InDate); Valid := TRUE; CASE Year OF 1752..1799 : CP := 4; 1800..1899 : CP := 2; 1900..1999 : CP := 0; 2000..2099 : CP := 6; ELSE Valid := FALSE; END_CASE; YP := cYear / 4; IF (MOD(cYear,400) = 0) THEN LeapYear := TRUE; ELSIF (MOD(cYear,100) = 0) THEN LeapYear := FALSE; ELSIF (MOD(cYear,4) = 0) THEN LeapYear := TRUE; ELSE LeapYear := FALSE; END_IF; CASE Month OF 1 : IF LeapYear THEN MP := 6; ELSE MP := 0; END_IF; 2 : IF LeapYear THEN MP := 2; ELSE MP := 3; END_IF; 3 : MP := 3; 4 : MP := 6; 5 : MP := 1; 6 : MP := 4; 7 : MP := 6; 8 : MP := 2; 9 : MP := 5; 10 : MP := 0; 11 : MP := 3; 12 : MP := 5; END_CASE; IF Valid THEN DayOfWeek := MOD(CP + cYear + YP + MP + Day, 7 ); ELSE DayOfWeek := -1; END_IF; END_FUNCTION_BLOCK |
Once added to a library, this function can be called from both ST or FBD logic program.
Below a picture of the function being called from an FBD program:
Below a picture of the function being called from an ST program:
Note: Don't forget to add the library that contains the function block you are going to use to your logic program before calling the function. For more information on how to do that, please search the manual for "ST and Function Block Libraries".
Publikováno pro: Schneider Electric Česká republika
Potřebujete pomoc?
Nástroj pro výběr produktů
Rychle a snadno vyhledávejte správné produkty a příslušenství pro vaše aplikace.
Získejte nabídku
Poptejte se nás online a náš lokální specialista se s vámi spojí!
Kde nakoupit?
Jednoduše najděte nejbližšího distributora výrobků Schneider Electric ve vašem okolí.
Centrum nápovědy
Zdroje podpory pro všechny své potřeby najdete na jednom místě.