UnitQESBPCSDateTime
DeclarationFunction IsMondayNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsMondayNow: Boolean; begin Result := DayOfWeek (Date) = 2; End;