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