UnitQESBPCSDateTime
DeclarationFunction IsSeptemberNow: Boolean;
CategoryDate/Time ComparisonImplementation
function IsSeptemberNow: Boolean; begin Result := Date2Month (Date) = 9; End;