UnitQESBPCSDateTime
DeclarationFunction IsWeekdayNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsWeekdayNow: Boolean; begin Result := DayOfWeek (Date) in [2..6]; End;