Day of First Month

[Michael II]

Delphi-Quellcode:

function FirstMondayOfMonth( year, month : integer ):TDateTime;
var dof, firstday : integer;
begin
    firstday := trunc(EncodeDate( year, month, 1 ));
    dof := DayOfWeek( firstday );  // dof : 1= Sunday 2=Monday 3=Tuesday ...
    if dof <= 2 then Result := firstday + 2-dof
    else Result := firstday + 9-dof;
end;