I have a Delphi 2007 procedure to determine the numerical value of the first Monday in the current year. My code is as follows:
Var
WeekDay: integer;
MyDate: TDateTime;
begin
Decodedate(Date,Y,M,D);
MyDate := EncodeDate(Y,1,1);
WeekDay := DayOfWeek(MyDate);
if...