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