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