Last Friday of each month: Difference between revisions

Using theFree Pascal's DateUtils library includedwould with Free Pascal woulddramatically simplify the coding (see the Delphi example) but for older Pascal implementations the needed routines are the programmer's responsibility!.

{ findback immediatelyup prioras occuranceneeded ofto weekdaydesired kweekday }

dLastWeekday := d - (ord(w) - ord(k))

dLastWeekday := d - (7 - ord(k)) - ord(w);