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