F_GetDayOfMonthEx

VAR_INPUT

VAR_INPUT
    wYear  : WORD(1601..30827);
    wMonth : WORD(1..12);
    wWOM   : WORD(1..5);
    wDOW   : WORD(0..6);
END_VAR

wYear: year (1601 to 30827).

wMonth: month (1 to 12).

wWOM: week in month (1 of 5). The value 1 corresponds to week 1, 2 to week 2 and 5 to the last week (even if the month does not have 5 weeks).

wDOW: day of the week (0 to 6). 0 = Sunday, 1 = Monday... 6 = Saturday.

Example:

The example determines the date of the second Monday in August 2011. The result is: 8.

PROGRAM P_Dok_F_GetDayOfMonthEx
VAR
    wYear   : WORD := 2011;
    wMonth  : WORD := 8;
    wWOM    : WORD(1..5) := 2;(* Week of month: 2 = Second week *)
    wDOW    : WORD(0..6) := 1;(* Day of week 1 = Monday *)
    wDay    : WORD;(* Day of month *)
END_VAR

wDay := F_GetDayOfMonthEx( wYear, wMonth, wWOM, wDOW );

Requirements