Find the last Sunday of each month: Difference between revisions
m
→{{header|ALGOL-M}}
Line 354:
END;
% RETURN
INTEGER FUNCTION ISLEAPYR(Y);
INTEGER Y;
Line 386:
COMMENT
RETURN THE DAY OF THE MONTH CORRESPONDING TO LAST
OF WEEKDAY K (SUN=0, MON=1, ETC.) FOR A GIVEN MONTH AND YEAR;
INTEGER FUNCTION LASTKDAY(K, M, Y);
Line 395:
D := MONTHDAYS(M, Y);
W := DAYOFWEEK(M, D, Y);
%
IF W >= K THEN
D := D - (W - K)
| |||