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