UnitQESBPCSDateTime
DeclarationFunction IsWeekendNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsWeekendNow: Boolean; begin Result := DayOfWeek (Date) in [1, 7]; End;