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