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